السلام عليكم اعضاء المنتدى الاعزاء وكل عام انتم بالف خير
انا لدي سؤال عن كيفية استخدام sql في النموذج ، اي اريد استفسار عن الاسم بمجرد ادخال رقم ولكن من غير استخدام دالة dlookup
مرفق قاعدة بيانات تحتوي على جدول فيه ثلاثة حقول الحقل الاول عبارة عن الرقم والثاني الاسم والثالث الوظيفة ، وفي نموذج sql مربع no ومربع name اريد بمجرد ادخال الرقم يقوم بالبحث في الجدول عن الاسم ، ارجو منكم حل هذه المشكلة حيث انني حاول كثيراً ولم تجدي الحلول نفعاً ، مع جزيل الشكر والعرفان
إليك الحل بواسطة الكائن ADO
2. في حدث بعد التحديث لمربع النص الخاص بالنموذج نكتب الكود التالي
Dim rst As New ADODB.Recordset
rst.Open "[tbl]", CurrentProject.Connection, adOpenDynamic, adCmdTable
rst.Find "no='" & Me![Text0] & "'"
Me.Text2 = rst("name")
rst.Update
rst.Closeوهذا المثال بعد التعديل
شكراً لك اخي مصلح الحربي ، لم يخطر لي هذه الطريقة مع انني استخدمتها من قبل لحفظ البيانات في جدول ، وجزاءك الله الف خير على مشاركتك، وفضلاً وليس امراً
لدي سؤال اخر، في حالة الرغبة في تحديث بيانات في الجدول او حذف بيانات مخزنة في الجدول فكيف تتم من خلال ado
مع جزيل الشكر والعرفان.
سأقوم بتطبيق ذلك على النموذج السابق في مثالك
للإضافة استخدم الكود التالي
On Error GoTo ERR
Dim rst As New ADODB.Recordset
rst.Open "[tbl]", CurrentProject.Connection, adOpenDynamic, adCmdTable
rst.AddNew
rst("no") = Me.Text0
rst("name") = Me.Text2
rst.Update
rst.Close
ERR:للتحديث استخدم الكود التالي
Dim rst As New ADODB.Recordset
rst.Open "[tbl]", CurrentProject.Connection, adOpenDynamic, adCmdTable
rst.Find "no='" & Me![Text0] & "'"
rst("no") = Me.Text0
rst("name") = Me.Text2
rst.Update
rst.Closeللحذف استخدم الكود التالي
rst.Open "[tbl]", CurrentProject.Connection, adOpenDynamic, adCmdTable rst.Find "no='" & Me![Text0] & "'" rst.Delete adAffectCurrent rst.Update rst.Close
بالتوفيق
شكراً لك اخي مصلح الحربي واعتذر عن التاخير في الرد بسبب بعض الظروف، مع تمنياتي لك بالمزيد من الابداع والتميز