بعد التحية والتقدير
اريد من الاخوة اذا بالامكان تصحيح الكود في القاعدة المرفقة لاستخراج فقط البيانات التي تم البحث عنها وليست جميع البيانات
الكود
Dim ROP_Licence_Number
ROP_Licence_Number = Me![ROP Licence Number]
Start_Date = InputBox("Enter Course Start Date :", "Search for the Course Start Date")
Finish_Date = InputBox("Enter Course Finish Date :", "Search for the Course Finish Date")
[Course Start Date].SetFocus
DoCmd.FindRecord Start_Date, acEntire, , acSearchAll, , acCurrent, True
If Me![ROP Licence Number] = ROP_Licence_Number Then
MsgBox "The trainee does not exist ."
Exit Sub
Else
If Start_Date <> Finish_Date Then
DoCmd.FindNext
End If
End If