مساعدة في تعديل كود بحث

[سامر محمود]

On Error Resume Next
Dim s
s = InputBox("ادخل الرقم القومي المكون من14رقم", "ابدا البحث من فضلك")
DoCmd.GoToControl "IDNumber"
DoCmd.FindRecord s

الاخوة الخبراء الافاضل

من فضلكم محتاج تعديل علي الكود السابق انه يجيب سجلات الموظف حسب البحث بالرقم القومي لان الكود ده بيجيب بس اول سجل بيشوفه 

اكون شاكر لحضراتكم جدا 

[ابو البشر]

جرب هذا ....

On Error Resume Next
Dim s As String
s = InputBox("ادخل الرقم القومي المكون من 14 رقم", "ابدا البحث من فضلك")

If s <> "" Then
    ' تطبيق الفلتر
    Me.Filter = "IDNumber = '" & s & "'"
    Me.FilterOn = True
Else
    MsgBox "الرجاء إدخال الرقم القومي.", vbExclamation, "خطأ"
End If

 

[سامر محمود]

منذ ساعه, سامر محمود said:

On Error Resume Next
Dim s
s = InputBox("ادخل الرقم القومي المكون من14رقم", "ابدا البحث من فضلك")
DoCmd.GoToControl "IDNumber"
DoCmd.FindRecord s

الاخوة الخبراء الافاضل

من فضلكم محتاج تعديل علي الكود السابق انه يجيب سجلات الموظف حسب البحث بالرقم القومي لان الكود ده بيجيب بس اول سجل بيشوفه 

اكون شاكر لحضراتكم جدا 

الاخ الكريم @ابو البشر

بشكرك علي كرم الرد 

انا اخدت الكود بالظبط بس مشتغلش معايا بيطلع خطا وراجعته اكتر من مرة بس مش عارف الخطا فين 

[Foksh]

[سامر محمود]

1 ساعه مضت, سامر محمود said:

الاخ الكريم @ابو البشر

بشكرك علي كرم الرد 

انا اخدت الكود بالظبط بس مشتغلش معايا بيطلع خطا وراجعته اكتر من مرة بس مش عارف الخطا فين 

تم حل المشكلة الحمد الله اخ  @ابو البشر