إخفاء وإظهار زر أمر في نموذج آخر ...

[abofayez1]

مساؤكم رحمة ومغفرة بإذن الله

ما الخطأ الذي وقعت فيه بحيث لم يعمل ... نرجو المساعدة 

وفقكم الله

222.accdb

[Moosak]

السلام عليكم 🙂 

الكود صحيح .. المشكلة فقط هي أن النموذج الثاني يجب أن يكون مفتوح ليعمل الكود ..

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

 ' للتحقق من أن النموذج الثاني مفتوح قبل تطبيق الكود
If CurrentProject.AllForms("frm2").IsLoaded = False Then DoCmd.OpenForm "frm2"
 
    If Me.on = True Then
        Forms!frm2.btn.Visible = True
    Else
        Forms!frm2.btn.Visible = False
    End If

 

[abofayez1]

الله يحفظك أستاذ موسى ويوفقك

شكرا لك

[Foksh]

ومشاركتي البسيطة هنا يتم فيها فتح النموذج واخفاء الزر واغلاقه مرة أخرى بدون اي أخطاء 

222.accdb

تم تعديل مارس 20 بواسطه Foksh

[abofayez1]

رائع جدا ... طريقة ممتازة

جزاك الله خيرا أخي Foksh