اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by kanory,

الردود الموصى بها

السلام عليكم

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

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

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

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

2020-09-20_212949.jpg.f40ae5ecdfdf6dd5bf44b0eabc8219b6.jpg

33.accdb

رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

  • Like 4
رابط هذا التعليق
شارك

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:

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information