اخفاء او اظهار كائن / عنصر في مايكروسوفت اكسس

اخفاء او اظهار كائن / عنصر  في مايكروسوفت اكسس

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

فاذا اردنا ان نخفي العنصر بشكل نهائي يتم عن طريق تغيير القيمة المقابلة ل Visible  في الخصائص الى No

اما اذا اردنا ان نعطي للمستخدم حرية الاخفاء والاظهار لصورة مثلا فان الطريقة ستكون باستخدام الكود VBA  وكما يلي

1- يتم اضافة زر حتى يتم من خلالة اخفاء او اظهار الصورة

2- يتم اضافة الكود التالي في حدث عند النقر على الزر 

VBA

Private Sub Botton1_Click()
If Image1.Visible = True Then
Image1.Visible = False
Else
Image1.Visible = True
End If
End Sub

حيث ان Botton1 = اسم الزر  و  Image1 = اسم الصورة

شرح الكود : عند الضغط على الزر سيتم التحقق هل الصورة مخفية ام لا ، فاذا كانت غير مخفية فسيتم اخفائوها وغير ذلك سيتم اظهارها

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