عاوز إذا تحقق الشرط الكود يتنفذ من الأول

السلام عليكم

اذا الكود موجود في داله واحده ومحتاج تعيد تنفيذها من البدايه تاني

ممكن تستخدم الRecursion

تستدعي الداله داخل نفسها

'اوكيه طب ممكن توضح اكثر شوية

مع كتابة الأمر كله

خلاص يا جماعة ألف شكر لكل من حاول مساعدتي بمجرد التفكير في المشكلة

انا خلاص لاقيت الحل والحمد لله

----------------------------------------------------------------------------------------

SQL = "select * from addition where code = '" & List2.Text & "'"

Re66.Open SQL, Connection, adOpenDynamic, adLockReadOnly

Do While Re66(16) = 0

Re66.Close

SQL = "select * from addition where code = '" & List2.Text & "'"

Re66.Open SQL, Connection, adOpenDynamic, adLockReadOnly

If Re66(16) = 0 Then

MsgBox "هذه الألة لم تتوقف عن الصيانة بعد. من فضل قم بإيقاف الخدمة أولا حتى تتمكن من إجراء صيانة الأن", vbCritical, "خطأ"

If List1.ListIndex + 1 = List1.ListCount Then

Re66.Close

Exit Sub

End If

List1.ListIndex = List1.ListIndex + 1

End If

-----------------------------------------------------------------------------------------