منع قبول إدخال نص في مربع سرد وتحرير موجود سلفا ضمن مربع السرد والتحرير

في حقل مربع سرد وتحرير (Compo Box) إذا جعلنا من خصائص هذا الحقل (التزام بالقائمة)= نعم ، ثم وضعنا كود حدث (عند عدم وجود القائمة ) ووضعنا الكود التالي

Private Sub Compo24_NotInList(NewData As String, Response As Integer)

MsgBox "العنصر الذي أخلته غير موجود في القائمة يرجى الالتزام بمحتوى القائمة" & vbCrLf & _

"", _

vbInformation + vbOKOnly, _

"تنبيه"

Response = acDataErrContinue

End Sub

سوف تظهر الرسالة بالنص أعلاه

السؤال: لوأننا أردنا العكس تماما بمعنى:

لو أننا جعلنا من خصائص هذا الحقل (التزام بالقائمة) = لا فما الكود الذي نضعه لنحصل على الجواب التالي:

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

أرجو أن يكون السؤال واضحا