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

مشكورين علي كل حال

وجدت حل

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