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

[ِAbo_El_Ela]

يوجد لدي نموذج frmMaster 

يوجد به حقل اسمة [ نوع الدعوي ] وهو عبارة عن قائمة منسدله 

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

 

Database4.rar

[اشرف]

السلام عليكم

اخي الفاضل

ارجو ان يكون طلبك في الرابط الاتي

 

[ِAbo_El_Ela]

شكرا اخي العزيز و معلمي الكريم 

لقد حاولت تنفيذ ما قرأتة و لكن لم استطع حل المشكله للاسف و لكن قمت ببعض التغييرات علي الملف و لكن ليس لها علاقة بالموضوع و هذا هو الملف الجديد و ارجو المساعده 

Database4.rar

اسف لقد غيرت اسم النموذج الي frmDa2wa 

 

[Moosak]

الموضوع بسيط جدا أخي ...

فقط من خصائص القائمة المنسدلة > بيانات > إلتزم بالقائمة > نعم .

مرفق لك التعديل :

Database4.accdb

تم تعديل نوفمبر 16, 2021 بواسطه Moosak

[ِAbo_El_Ela]

17 دقائق مضت, Moosak said:

الموضوع بسيط جدا أخي ...

فقط من خصائص القائمة المنسدلة > بيانات > إلتزم بالقائمة > نعم .

مرفق لك التعديل :

Database4.accdb 704 kB · 0 downloads

اشكرك استاذي ادام الله فضلكم 

كفيت و وفيت

ارجو ان يتسع صدركم 

و لكن هل لها حل برمجيا بحيث اني الغي رسالة الاكسس الافتراضية و استبدلها برساله من عندي

[ِAbo_El_Ela]

حاولت حتي منعت رسالة الاكسس الافتراضية 

مازال عندي امل ان اجد طريقة لاخبار المستخدم بعد السماح له بالكتابة و علية فقط الاختار من القائمة 

[Moosak]

14 ساعات مضت, ABOLO2 said:

حاولت حتي منعت رسالة الاكسس الافتراضية 

مازال عندي امل ان اجد طريقة لاخبار المستخدم بعد السماح له بالكتابة و علية فقط الاختار من القائمة 

يمكنك وضع رسالة تخبر المستخدم بوجوب الالتزام بالقائمة في حدث [ عند عدم الوجود في القائمة ] التابع للقائمة المنسدلة ، ولكني لم أعرف كيفية إيقاف الرسالة الافتراضية للبرنامج ..

[ِAbo_El_Ela]

23 ساعات مضت, Moosak said:

يمكنك وضع رسالة تخبر المستخدم بوجوب الالتزام بالقائمة في حدث [ عند عدم الوجود في القائمة ] التابع للقائمة المنسدلة ، ولكني لم أعرف كيفية إيقاف الرسالة الافتراضية للبرنامج ..

في حدث "عند الخطأ" في النموذج وضعت هذا الكود

Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 0 Then
Response = False
End If
Response = True
End Sub

سالة الاكسس وقفت 

بس هل الكود صحيح البناء و لا لاء لا اعرف

[Moosak]

4 ساعات مضت, ABOLO2 said:

في حدث "عند الخطأ" في النموذج وضعت هذا الكود

Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 0 Then
Response = False
End If
Response = True
End Sub

سالة الاكسس وقفت 

بس هل الكود صحيح البناء و لا لاء لا اعرف

جرب وأخبرنا بالنتيجة 😉

[ِAbo_El_Ela]

في ١٨‏/١١‏/٢٠٢١ at 19:06, Moosak said:

جرب وأخبرنا بالنتيجة 😉

و الله يا استاذنا انا جربت ووقفت الرساله بالفعل 

بس هل بناء الجمله صحيح و لا لاء لا اعرف 

اذا كان عندك حل غير هذا 

اخبرني به رجاءاً يا استاذي

[اشرف]

السلام عليكم اخواني الاعزاء

الكود يفي بالغرض ومعه الرسالة الجديدة تفضل

 

Database4.accdb

[ِAbo_El_Ela]

2 ساعات مضت, اشرف said:

السلام عليكم اخواني الاعزاء

الكود يفي بالغرض ومعه الرسالة الجديدة تفضل

 

Database4.accdb 668 kB · 1 download

تسلم استاذي الغالي 

افاد الله بك و بعلمك