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

[سامر محمود]

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:

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

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

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

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

[Foksh]

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

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

مبارك حل المشكلة ، ويا حبذا لو تشاركنا طريقة الحل هنا ليستفيد منها الجميع 😇 ، ولتلافي الخطأ عند حصوله ..

[سامر محمود]

في 27‏/11‏/2024 at 15:24, سامر محمود said:

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

شرف ليا اخي @Foksh

Dim s As String
Dim coode As Integer

s = InputBox("ادخل رقم الموظف", "ابدا البحث من فضلك")

If s <> "" Then
    ' محاولة تحويل القيمة المدخلة إلى عدد صحيح
    If IsNumeric(s) Then
        coode = CInt(s)
        ' تطبيق الفلتر باستخدام القيمة الرقمية
        Me.Filter = "[coode] = " & coode
        Me.FilterOn = True
    Else
        MsgBox "الرجاء إدخال رقم موظف صالح.", vbExclamation, "خطأ"
    End If
Else
    MsgBox "الرجاء إدخال رقم الموظف.", vbExclamation, "خطأ"
End If