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

مشكوريييين
الحل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