عن الكمبوبكس والإضافة

ضع هذا الكود عند عدم الوجود في القائمه

' لاحظ أن هناك متغيرين للدالة هما
' NewData وهذه يمكنك استخدامها لإضافة القيمة المدخلة إلى جدول القيم
' Response  ويحدد الموقف من القيمة الجديدة

Dim strsql As String, x As Integer
x = MsgBox("القيمة المدخلة غير موجودة سابقاً ... هل ترغب في إضافتها ؟", vbYesNo)
If x = vbYes Then
    strsql = "Insert Into tbxTraining ([Training]) values ('" & NewData & "')"

    ' tbxTraining اسم الجدول الذي هو مصدر مربع التحرير والسر
    ' TRAINING اسم الحقل في ذلك الجدول والذي ستضاف القيمة إليه
    
    MsgBox "تم أضافة القيمة", vbOKOnly, "تنبيه"
    CurrentDb.Execute strsql
    '  الأمر التالي يحدد الموقف من القيمة الجديدة  وهو هنا إضافتها
    Response = acDataErrAdded
Else
    MsgBox "تم تجاهل القيمة", vbOKOnly, "تنبيه"

    ' تجاهل القيمة الجديدة والاستمرار
    Response = acDataErrContinue
End If

ملاحظه من عمل اخي الغالي فهد الدوسري

أخي عبدالهادي ..

شكراً لتعاونك معي ولكن الكود لم يعمل بصورة صحيحة أنظر إلى الأخطأ المرفقة وحاول إكتشاف الخطأ

تقبل تحياتي ...

الخطأ.rar