عندما يكون التعامل مع قاعدة البيانات عن طريق ( DAO )
1- أستخدم وظيفة (Seek) للبحث عن سجل بشرك معين بغرض عرضه ثم التعديل في بياناته
2- بعد إجراء عملية البحث أختبر الخاصيه (NoMatch) فإذا كانت (True) دل هذا على عدم
وجود السجل المطلوب الذى يحقق الشرط داخل الجدول, وإذا كانت (False) دل هذا على
الوصول إلى السجل المطلوب
3- يصبح بذلك إمكانية عرض السجل ثم إجراء أى تعديل فيه
4- ومثال على ذلك:
.Index = "Index_Name"
.MoveLast
intLast = !Index_Field
.MoveFirst
intFirst = !Index_Field
strSeek = Val(Form1.Txet1)
.Seek "=", (strSeek)
If .NoMatch Then
MsgBox("السجل غير موجود","تنبيه")
Exit Sub
Else
MsgBox("السجل موجود","تنبيه")
End Ifالسؤال : كيف يمكن إستخدام وظيفة (Seek) عندما يكون التعامل مع قاعدة البيانات عن طريق ( ADO ) وأرجو التوضيح مع مثال
