تعديل على كود قائمة بحث

[محمد التميمي]

السلام عليكم

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

المطلوب اخواني

اريد عند ادراج اسم ليس بالقائمة سهولة الخروج من القائمة دون اختيار اسم منها اجباري وعدم ظهور هذه الرسالة

جزاكم الله خير الجزاء

33.accdb

[kanory]

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

Dim i As Integer
Dim Msg As String
If NewData = "" Then Exit Sub

Msg = "'" & NewData & "'  áíÓ ÚäÕÑÇ Ýí ÇáÞÇÆãÉ. " & vbCr & vbCr
i = MsgBox(Msg, vbQuestion, "ÛíÑ ãÚÑæÝ")
Me.ww = ""
Me.ww.Dropdown
        Response = acDataErrContinue

 

33 (1).accdb

[محمد التميمي]

3 دقائق مضت, kanory said:

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

Dim i As Integer
Dim Msg As String
If NewData = "" Then Exit Sub

Msg = "'" & NewData & "'  áíÓ ÚäÕÑÇ Ýí ÇáÞÇÆãÉ. " & vbCr & vbCr
i = MsgBox(Msg, vbQuestion, "ÛíÑ ãÚÑæÝ")
Me.ww = ""
Me.ww.Dropdown
        Response = acDataErrContinue

 

33 (1).accdb 696 kB · 1 download

شكراً استاذي الكريم ساجرب واوافيك بالنتيجة 

2 دقائق مضت, محمد التميمي said:

شكراً استاذي الكريم ساجرب واوافيك بالنتيجة 

نعم هذا المطلوب بارك الله بجهودك استاذي الكرم

[kanory]

حياك الله .... بالتوفيق