تصحيح الكود في القاعدة المرفقة

تحية طيبه

الكود بعد التعديل :wub:

Dim ROP_Licence_Number
ROP_Licence_Number = Me![ROP Licence Number]
Start_Date = InputBox("أدخل بداية الدورة :", "بحث عن بداية الدورة")
Finish_Date = InputBox("أدخل نهاية الدورة :", "بحث عن نهاية الدورة")
[Course Start Date].SetFocus
DoCmd.FindRecord Start_Date, acEntire, , acSearchAll, , acCurrent, True
If Me![ROP Licence Number] = ROP_Licence_Number Then
MsgBox "هذا الطالب غير موجود ."
Exit Sub
Else
If Start_Date <> Finish_Date Then
DoCmd.FindNext
End If
End If

وفق الله الجميع

لك الف شكر اخي العزيز وربنا يجعله في ميزان حسناتك

ولكن هل بالامكان ان يعرض فقط السجلات التي تم تصفيها وبعد ذلك يمكن استخام زر لعرض جميع السجلات