السلام عليكم
استبدل هذا السطر
If [E2] = "" Or [F2] = "" Then MsgBox "لا بد من إدخال بيانات للفرز", , "Abu_Ahmed": Exit Sub
بهذا
If [E2] = "" And [F2] = "" Then MsgBox "لا بد من إدخال بيانات للفرز", , "Abu_Ahmed": Exit Sub
السلام عليكم
استخدم هذه الدالة في الخلسة واسحب للاسفل C22
=IF(B22>100;B22*2;IF(AND(B22>=90;B22<=99);B22*1.5;IF(AND(B22>=80;B22<=89);B22*1;IF(B22<80;B22*0))))
جربت الفكرة ونجحت
وهي شاشة الصلاحيات تعطي tst القيمة 1 وفي حدث الفتح لكل فورم (الرئيسي او الفرعي) استدعاء الوحدة النمطية
في حدث الاغلاق tst يساوي 0 فاذا كان الدخول من خلال فورم الصلاحيات تفتح النماذج أو لا تفتح
السلام عليكم
يظهر لدي بأن الكود يتفعل عند فتح الفورم الرئيسي لانه مرتبط به وليس كهذه الحالة بحيث يمنع الفتح
Private Sub Form_Load()
Sub1.SourceObject = "sub1"
End Sub
فهل من حل
السلام عليكم
اخواني الكرام اطلب منكم مساعدتي في الحصول على كود لمنع فتح الفورم الفرعي مباشرة الا بوجود الفورم الرئيسي .
علماً بأني سابقاً قراءت عنه لكني بحثت ولم اجد.
اعتقد بأن هذه الصورة هي للاكسل وليس للاكسس واعتقد كمان بأن الطلب يتعلق بجلب بيانات من مصادر خارجية والله اعلم
فموقع المشاركة الاكسل وليس الاكسس
==================
تم تعديل العنوان للدلالة