مشكلة عند فتح اكثر من نموذج

[ازهر عبد العزيز]

السلام عليكم 

في النموذج A1  زر يقوم باخفاء الزر m  عند فتح النموذج بشكل فردي يعمل الزر بشكل طبيعي لكن عندما اقوم بفتح النموذج من نموذج B منبثق لا يعمل الزر 

New Microsoft Access قاعدة بيانات.accdb

[محمد احمد لطفى]

هل هذا ما تريد 

New Microsoft Access قاعدة بيانات.accdb

[ازهر عبد العزيز]

الان, محمد احمد لطفى said:

هل هذا ما تريد 

New Microsoft Access قاعدة بيانات.accdb 464 kB · 0 تنزيلات

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

[محمد احمد لطفى]

22 دقائق مضت, ازهر عبد العزيز said:

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

تفضل

New Microsoft Access قاعدة بيانات (1).accdb

تم تعديل يونيو 14, 2020 بواسطه محمد احمد لطفى

[ازهر عبد العزيز]

مازال

تم تعديل يونيو 14, 2020 بواسطه ازهر عبد العزيز

[ازهر عبد العزيز]

الاستاذ @محمد احمد لطفى هل بالامكان جعل الكود يختص باكثر من نموذج اي عدم ذكر اسم النموذج في الكود وبذلك لو كان عندي اكثر من نموذج يحتوي على زر الاخفاء استطيع استدعائة بهذا الكود اسف لاني لم اوضح من البداية 

[محمد احمد لطفى]

45 دقائق مضت, ازهر عبد العزيز said:

الاستاذ @محمد احمد لطفى هل بالامكان جعل الكود يختص باكثر من نموذج اي عدم ذكر اسم النموذج في الكود وبذلك لو كان عندي اكثر من نموذج يحتوي على زر الاخفاء استطيع استدعائة بهذا الكود اسف لاني لم اوضح من البداية 

Dim frmCurrentForm As Form
Set frmCurrentForm = Screen.ActiveForm
MsgBox "Current form is " & frmCurrentForm.Name

يعطى اسم النموذج لا أعرف كيفية ظبط مع كود الاخفاء لعل أحد من أساتذتى يساعدك 
 

Forms!FA1!m.Visible = False

 

[أبوبسمله]

مشاركه مع اخى العزيز @محمد احمد لطفى جزاه الله خيرا 💐

هل هذا ما تريد اخى @ازهر عبد العزيز

ان كان فهذا ما اجابك به اخى واستاذى العزيز @kanory جزاه الله خيرا 💐

بالتوفيق اخى

New Microsoft Access قاعدة بيانات.accdb