الانتقال الى السجل الأول الذي يطابق شرط البحث ADO

عليكم السلام ورحمة الله وبركاته

بعدما تعمل جملة البحث اكتب بعدها كود الانتقال للسجل الأول movefirst

السلام عليكم

نعم يمكن ويمكنك استخدام استعلام SQL للانتقال الى اى سجلبالشروط التى تحددها

شكرا أخوتي على تجاوبكم الكريم ولكن أين أضع الكود

هذا هو كود الاستعلام عندي الرجاء التعديل عليه ليظهر عندي السجل الأول الذي يوافق شرط البحث وبعدها ينتقل الى السجل التالي وهكذا

أرجو ألا أكون قد أثقلت عليكم ولكن مساعدتكم لي لها أثر كبير وهام بالنسبة لي أشكركم سلفاً ولكل من يساهم في إعانة إخوته

Form1.Adodc1.RecordSource = "select id,titl,text from " & strName1 & " where text like '%" & strName2 & "%' and text like '%" & strName3 & "%'and text like '%" & strName4 & "%'and text like '%" & strName5 & "%' "

Form1.Adodc1.Refresh

أخوكم عبد الرحمن

Form1.Adodc1.RecordSource = "select id,titl,text from " & strName1 & " where text like '%" & strName2 & "%' and text like '%" & strName3 & "%'and text like '%" & strName4 & "%'and text like '%" & strName5 & "%' "
Form1.Adodc1.Refresh
form1.adodc1.movefirst

سأجرب الكود واخبرك أخي المتميز جزالك الله خيراً

لم ينفع الكود أخي المتميز

فالآداة adodc لا تدعم خاصية movefirst كما تدعمها أداة data

وهذا ما حيرني

ومازلت أبحث عن حل

فهل من مساعد

ينقذ أخوكم عبد الرحمن

السلام عليكم

اخي الكريم وجدت موضوع للاستاذ (محمد طاهر) في منتدى (اوفسينا)

قسم الاكسس - ارشيف اكسس والوحدات النمطية

شبيه لموظوعك سوف اضعه هنا إن شاء الله تلاقي مبتغاك

الموضوع:إضافة سجل باستخدام ADO, إضافة سجل من نموذج بدون مصدر بيانات

اقتباس

Dim mytable As ADODB.Recordset

Set mytable = New ADODB.Recordset

mytable.Open "TABLE1", ActiveConnection, adOpenDynamic

mytable.AddNew

mytable!Name = [Forms]![unboundForm]![Name]

mytable!Salary = [Forms]![unboundForm]![salary]

mytable!Birthday = [Forms]![unboundForm]![birthday]

mytable.Update

mytable.Close

ملف مرفق

http://www.uparab.com/img/=1134061556.zip

او

]المثال

شكراً لتفاعلكم ولكن لم أجد الحل حتى تاريخه