المطلوب أيقاف زر أمر عرض التقريرعندما لا يتحقق الشرط

[AboSaad17]

السلام عليكم ورحمة الله وبركاته 
في  النموذج  مربع قائمة يعرض الاسماء وز أمر يعرض التقرير 
المشكلة  زر الأمر يعمل  سواء تم اختيار الاسم من القائمة أو لم يتم الأختيار
المطلوب : إيقاف عمل زر الأمر إذا لم يتم الاختيار من قائمة الاسماء  ......  مع رسالة تنبيه  

إيقاف زر الأمر عندما.rar

[kaser906]

وعليكم السلام ورحمة الله وبركاتة

تفضل

Private Sub أمر12_GotFocus()
If (IsNull(Me.txt14)) Then
MsgBox "اختر من القائمة أولا", 48, "تنبيه"
Me.List2.SetFocus
End If
End Sub

::بالتوفيق::

إيقاف زر الأمر k906عندما.rar

[AboSaad17]

أخي العزيز  kaser906  
أولا شكرا جزيلا لك على تجاوبك 
ثانيا بعد عدة محاولات لم استطيغ تطبيق الحل :
وسؤالي كما هو في الصورة المرفقة 
1- كيف تم إدراج التسمية في النموذج ( نص14 )  
 

[kaser906]

 

تفضل انظر الصورة

::بالتوفيق::

[AboSaad17]

أخي العزيز  kaser906  
بارك الله فيك وزادك علما ونور الله دروبك 
تم ولله الحمد والشكر 

[عبد اللطيف سلوم]

10 ساعات مضت, kaser906 said:

MsgBox "اختر من القائمة أولا", 48, "تنبيه"

ماذا تعني رقم 48 ؟؟

[kaser906]

10 ساعات مضت, عبد اللطيف سلوم said:

ماذا تعني رقم 48 ؟؟

نوع صندوق المسج بوكس

48 تعني تنبيه

::بالتوفيق::