تنبيه عدم وجود موظف بهذا الرقم

السلام عليكم إخواني

طلب مساعدة بخصوص تنبيه في فورم وخاصة عند إدخال رقم في مربع تحرير وسرد ينبهني بعدم وجود موظف بهذا الرقم

رقم الموظف في الجدول يسمى EmployeeID

والحدول يسمى Employee

حاولت إجراء تحديث  عند عدم وجود في القائمة

ولم افلح

Private Sub مربع_تحرير_وسرد32_NotInList(NewData As String, Response As Integer)

On Error GoTo مربع_تحرير_وسرد32_NotInList_Err

 MsgBox " معذرة اخي الكريم .... لا يوجد موظف بهذا الرقم ", vbCritical, "تنبيه"

 Cancel = True

مربع_تحرير_وسرد32_NotInList_Exit:

Exit Sub

مربع_تحرير_وسرد32_NotInList_Err:

MsgBox Err.Number & " - " & Err.Description

Resume مربع_تحرير_وسرد32_NotInList_Exit


'If DCount("[]", "") = 0 Then

'End If


End Sub

او كيف نضيف هذا التنبيه في مربع_تحرير_وسرد32  بعد التحدث

Private Sub مربع_تحرير_وسرد32_AfterUpdate()

    ' ابحث عن السجل الذي يطابق عنصر التحكم.

     On Error Resume Next

 Dim rs As Object


    Set rs = Me.Recordset.Clone

    rs.FindFirst "[EmployeeID] = " & Str(Nz(Me![مربع_تحرير_وسرد32], 0))

    If Not rs.EOF Then Me.Bookmark = rs.Bookmark


End Sub