كيف اضع شرط لفتح نموذج2 أن يكون نموذج 1فى وضع النشط

[ahmedsaadzeed]

كيف اضع شرط أن يفتح نموذج2 أن يكون نموذج1 مفتوح

[متقاعد]

43 دقائق مضت, ahmedsaadzeed said:

كيف اضع شرط أن يفتح نموذج2 أن يكون نموذج1 مفتوح

في النمودج 2 في حدث عند الفتح نضع الامر التالي

If (Application.CurrentProject.AllForms("form1").IsLoaded) = False Then
MsgBox "لايمكن فتح النموذج", vbCritical, "تنبية"
Cancel = -1
End If

مرفق مثال حاول تفتح نموذج frm3 لن يفتح معك

افتح نموذج form1 ثم جرب فتح frm3 سيتم فتحه

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

تحياتي

 

mm(1).mdb

[متقاعد]

طريقة اخرى عن طريق متغير عام

اولا نعلن عن متغير في اي وحدة نمطية حتى لو كانت فارغة

Public x As Byte

في النموذج  form1 في حدث عند الفتح نضع الامر

x=1

في نفس النموذج في حدث عند الاغلاق نضع الامر

x=0

في نموذج frm3 نضع الامر

If x = 0 Then
MsgBox "لايمكن فتح النموذج", vbCritical, "تنبية"
Cancel = -1
Exit Sub
End If

مرفق مثال

 

mm(1)(2).mdb

[ahmedsaadzeed]

واللى انا شاكر جدا على السادة الذين قامو بالرد على الاستفسار وعذرا على عدم رفع مثال