أخي @ابوآمنة بعدما أبحث عن اسم معين ويجده لي ، وبعد الانتهاء من البحث لا يعطيني الرسالة الموجودة في هذا الكود .
 
Private Sub C_Next()
On Error GoTo Err_C_Next
    DoCmd.GoToRecord , , acNext
     Find
Exit_C_Next:
    Exit Sub
Err_C_Next:
    MsgBox "آخر سجل بحث"
    Resume Exit_C_Next
End Sub
	يعطيني بدلا عنها الرسالة الموجودة في كود زر البحث 
 
MsgBox "لا يوجد سجل بهذا الإسم :  " & strSearch, , "غير موجود"