كيف أتعامل مع حدث "عند عدم الوجود في القائمة" في مربع التحرير والسرد

هذا الكود الذي طلبت وهو لأخونا ومشرفنا الفاضل أبو حمود حفظه الله ولكن يجب أن يكون مصدر مربع التحرير والسرد جدول خاص بها مثل مراتب الموظفين يجب أن يكون لها جدول مستقل يتم فيه تخزين المراتب وفي حدث عند عدم وجود بيانات تضع الكود التالي :

    On Error GoTo HandleErr
    Dim db As Database
    Dim strSQL As String
    Const فاصلة = """"
    strSQL = "INSERT INTO [المرتبة] ( [المراتب ] )values" _
    & "(" & فاصلة & NewData & فاصلة & ")"
    Set db = CurrentDb
    Beep
    If MsgBox("هذا البند ليس ضمن القائمة هل ترغب بإضافته للقائمة ؟", vbMsgBoxRight + vbYesNo + vbDefaultButton2, "تسجيل بند جديد") = vbYes Then
    db.Execute strSQL
    Response = acDataErrAdded
    Else
    Response = acDataErrContinue
    Me![المرتبة] = ""
    End If
ExitHere:
Exit Sub

HandleErr:
Select Case Err
Case Else
MsgBox Err & ":" & Err.Description, , "خطأ"
End Select
Resume ExitHere

وهذا الكود يظهر رسالة بأن المرتبة غير موجود ويعطي خيارين إضافتها أو الإختيار من القائم0

أخي الفاضل :- مصلح

السلام عليكم ورحمة الله وبركاته

شكررراً على تجاوبك ، ولكن ماذا تمثل كلمة (( المرتبة )) وكلمة (( المراتب ))

الموجودة في الكود .

يعني هل تمثل إسم الجدول أو إسم مربع التحرير والسرد .

شكرررررررراً

عذرا لم أنتبه لإيضاح تلك النقطة _المراتب هو اسم الجدول والمرتبة هي اسم الحقل الذي تخزن فيه المراتب مثل المرتبة السادسة المرتبة السابعة وهكذا0

لك تحياتي

شكرررررراً جزيلاً .

كود رائع وتوضيح رائع