السلام عليكم ورحمة الله وبركاته
إذا كان في النموذج قائمة منسدله ( قائمة مربع التحرير والسرد ) وكان من خصائها الألتزام بالقائمة بحيث لا يقبل إلا الموجود في القائمة .. والقائمة مبنية على حقل في جدول آخر ...
عند الرغبة في إضافة عنصر غير موجود في القائمة تطلع رسالة ( النص الذي أدخلته ليس ضمن القائمة .. )
حاولت أستخد هذا الكود لتفادي ذلك بحيث يضيف ما كتبته بدون الحاجة إلى فتح النموذج ..الخ
Dim ctl As Control
Set ctl = Me!txtname
If MsgBox("Do you want to add the value to the list ?", vbOKCancel) _
= vbOK Then
Response = acDataErrAdded
ctl.RowSource = ctl.RowSource & ";" & NewData
Else
Response = acDataErrContinue
ctl.Undo
End If
ولكن بعدما طلعت لي الرسالة ( هل تريد إضافت للقائمة ) وضغطت على زر ( نعم ) طلعت لي رسالة ثانية تقول :
تم العثور على أحرف بعد نهاية عبارة SQL
؟؟؟؟!!!!!
فما هي المشكلة في ذلك ؟؟!!