تحديث الكوبوبوكس باضافة معلومات جديدة

[العبيدي رعد]

بسم الله الرحمن الرحيم

السلام عليكم

عندي  3  كوبوكس  اريد كود  في حال عدم وجود هذا  الاسم  يتم إضافته
جعلت حفظ  النموذج  بكود  اس كيو ال   انسرت انتو  بحيث  النموذج  يحفظ في  الجدول hesab  بصورة غير تلقائية
 

تجربة.rar

[العبيدي رعد]

شكرا  جزيلا

الكود  كالاتي 

If (MsgBox("الجهة غير موجودة سابقا" & vbCrLf & "هل تريد اضافتها", vbInformation + vbMsgBoxRight + vbYesNo, "النظام") = vbYes) Then

        DoCmd.SetWarnings False
        DoCmd.RunSQL "INSERT INTO person( resever) Values('" & Me.Comr.Text & "');"
        DoCmd.SetWarnings True
        Response = acDataErrAdded
        
    Else
        Response = acDataErrContinue
        Me.Comr.Undo
    End If

النقطة  التي  كنت غافل  عنها   هي  خاصية  limit to list    نجعلها   yes