اريد استبدال الكود المرفق بكود ابسط على ان يعطي نفس النتيجة

[ledoledo]

السلام عليكم

السادة الخبراء

اريد استبدال الكود المرفق بكود ابسط على ان يعطي نفس النتيجة 

حاولت ان استخدم do while ولكن فشلت

ارجوا المساعدة

مشكورين

db.rar

[علي المصري]

يمكنك كتابة الكود كالتالي :

Dim i As Integer
For i = 1 To 10
If DLookup("[Imagee]", "[Tablee]", "[ID] =" & i) > 0 Then Me.Controls("image" & i).Visible = True Else Me.Controls("image" & i).Visible = False
Next i

 

[ledoledo]

استاذ علي المصري مشكور جدا هو المطلوب فعلا

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

[عبد الفتاح كيرة]

أفكار هايلة

شكرا لكم