اريد استبدال الكود المرفق بكود ابسط على ان يعطي نفس النتيجة - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40) +--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41) +--- الموضوع : اريد استبدال الكود المرفق بكود ابسط على ان يعطي نفس النتيجة (/showthread.php?tid=14620)

اريد استبدال الكود المرفق بكود ابسط على ان يعطي نفس النتيجة - ledoledo - 02-02-16 السلام عليكم السادة الخبراء اريد استبدال الكود المرفق بكود ابسط على ان يعطي نفس النتيجة  حاولت ان استخدم do while ولكن فشلت ارجوا المساعدة مشكورين RE: اريد استبدال الكود المرفق بكود ابسط على ان يعطي نفس النتيجة - ledoledo - 02-02-16 مشكوريييين الحل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