ما طريقة الفلترة على حقل رقمي

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

شباب كيف أحوالكم عساكم طيبين وان شاء الله طيبين

ما هي طريقة الفلترة على حقل رقمي من الجدول مثلا رقم الموظف

في النموذج اضع حقل غير منظم حنب الى جنب مع الحقول المنظمة ثم

اضع الرقم مثلا المطلوب للبحث في الحقل الغير منظم ثم الحدث بعد التحديث يظهر النتيجة علما استخدمتها مع اكسس 97 النتيجة مائة بالمائة وعند كتابة الكود مع اكسس 2000 حدثت أخطاء والكود هو

Private Sub Text77_AfterUpdate()

Dim strCriteria

Dim dbs As Database, rst As Recordset

Docmd.Hourglass True

Set dbs = CurrentDb

Set rst = dbs.OpenRecordset("EMPLOYEE", dbOpenDynaset) 'dbReadOnly

strCriteria = "IDNUMB=" & "'" & Text77 & "'"

rst.FindFirst strCriteria

If rst.NoMatch Then

MsgBox "الموظف الحالي غير موجود", 32, "برنامج التدريب"

Me![Text77] = Null

Docmd.GoToControl "Text77"

Else

Me.Filter = "[iDNUMB]='" & Text77 & "'"

Me.FilterOn = True

' Command46.SetFocus

End If

rst.Close

Docmd.Hourglass False

End Sub

ما الخطأ فى اكسس 2000 هل هناك مرجع لطرقة البحث مثل بالفيجول مكتبات dao او ماذا ّ؟

وشكرا للجميع

:( :(