يا اخى الفاضل انا لا اعلم ماذا تعنى هذه الرساله حقا ولكن الذى فعلته هو اننى أنشأت مربع نص غير منضم ووضعت له فى حدث بعد التحديث الكود التالى :
Private Sub search_AfterUpdate()
DoCmd.OpenForm "employees courses", acNormal, , "[Badge_NO] Like '*" & Me.search & "*'"
If IsNull(Me.Badge_No) Then
MsgBox "لا يوجد موظف بهذا الرقم"
SendKeys "{ESC}"
Cancel = 1
search.Value = ""
End If
End Sub