[ تمت الإجابة ]كيفية إلغاء رسالة الخطأً ؟

اخي الفاضل bakkar2000

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

يوجد لديك طريقتين لإضافة الرسائل

الطريقة الأولى

في حدث عند عدم الوجود بالقائمة

Private Sub myCombobox_NotInList(NewData As String, Response As Integer)
MsgBox "هذا الإسم غير موجود في القائمة"
Response = acDataErrContinue
End Sub

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

الطريقة الثانية

في حدث عند عدم الوجود بالقائمة

Private Sub Combobox_NotInList(NewData As String, Response As Integer)
Dim strsql As String, x As Integer
x = MsgBox("هل تريد اضافة هذا الإسم الى القائمة ؟", vbYesNo)
If x = vbYes Then
	strsql = "Insert Into myTable ([myCombobox]) values ('" & NewData & "')"
	CurrentDb.Execute strsql, dbFailOnError
	Response = acDataErrAdded
Else
	Response = acDataErrContinue
End If
End Sub

اذا رغبت في اضافة البيانات الجديده من عدمها فضع هذا الكود ليكون لك حرية الإختيار في الإضافه او عدم الإضافه للقائمة

myCombobox_NotInList اسم زر الأمر لـ Combobox الخاص بك

myTable اسم الجدول الخاص بك

myCombobox اسم الـ Combobox الخاص بك