هل يمكن الاختصار

بدأه بلالي في 18 نوفمبر 2010 · 1 رد · 416 مشاهدة · في قواعد بيانات Microsoft Access

مشاركة: واتساب X فيسبوك تيليجرام

#118 نوفمبر 2010 في 18:47 صاحب الموضوع

السلام عليكم اعزائي جميعا..

عندي كود هكذا

me.a1.visible=false

me.a2.visible=false

me.a3.visible=false

me.a4.visible=false

me.a5.visible=false

me.a6.visible=false

me.a7.visible=false

me.a8.visible=false

me.a9.visible=false

me.a10.visible=false

me.a11.visible=false

هل يمكن اختصار هذا الكود

اي اضع كود بين me.a1.visible=false الى الآخر me.a11.visible=false ويتم بذلك عمل false الى الباقي منa2 الى a10

تحياتي....

#218 نوفمبر 2010 في 19:31

وعليكم السلام ورحمة الله وبركاته

أخي بلالي استعمل هذا الكود المختصر لتنفيذ ذلك ..

Dim Index As Byte
   For Index = 1 To 11
   With Me("a" & Index)
   .Visible = False
    End With
Next Index

تحياتي