بسم الله الرحمن الرحيم
السلام عليكم
بفرض ان برنامجي مؤلف من عشرات الشاشات المتشابهة، التي في اسفل كل منها
مربع احمر اللون اسمه دائما box_1
مربع نص اسمه دائما xxxx
ومهمة العنصرين المذكورين، لعرض رسالة تنبيه للمستخدم تظهر في اسفل الشاشة عند اقتضاء الامر لذلك، بدلا من ظهور شاشة منبثقة
في بداية فتح اي شاشة من الشاشات يتم اخفاء كل من مربع النص ومربع اللون
كيف يمكن التخلص فرضا من سطري البرمجة
Me.xxxx.Visible = False
' Me.Box_1.Visible = False
اللذين يتكرران في كل شاشة عند حدث الفتح
تم اضافة اجراء في الوحدة النمطية باسم Sub hide_show_Objects()
وتم وضع الاسطر السابقة ضمنه
ولكن لم تنجح المحاولة
ارجو التعديل
المثال المرفق : معمول على اكسس 2007
وشكرا