[sendbad100]

امين ولك بالمثل



انا الان فقط  اطلعت على المرفق 


اعتقدت انك لا تريد استخدام المصفوفات  كما فهمت من مشاركتك الاولى  


على العموم طريقة الاخ / السيد الغالي هي الافضل   لانها تختصر الوقت والجهد   وحتى عند التعديل ستجد سهولة كبيره


ممكن ايضاً  تعديل الكود التالي 
من  

PHP كود :

Private Sub Command2_Click()
If RS.State = 1 Then RS.Close
RS.Open "Select * From LISTE1 ", DB, adOpenStatic, adLockPessimistic
RS.AddNew
Dim i As Integer
i = 1
Do Until i = 101
RS.Fields(i) = Text1(i)
RS.Update
i = i + 1
DoEvents
Loop

MsgBox "تمت العملية بنجاح"

End Sub 


الى 

PHP كود :

Private Sub Command2_Click()
If RS.State = 1 Then RS.Close
RS.Open "Select * From LISTE1 ", DB, adOpenStatic, adLockPessimistic
RS.AddNew
Dim i As Integer
i = 1
Do Until i = 101
RS.Fields(i) = Text1(i)

i = i + 1
 Loop

RS.Update

MsgBox "تمت العملية بنجاح"

End Sub 


وايضا الكود التالي  من

PHP كود :

Private Sub Command4_Click()

If RS.State = 1 Then RS.Close
RS.Open "Select * From LISTE1 ", DB, adOpenStatic, adLockPessimistic
Dim i As Integer
i = 1
Do Until i = 101
RS.Fields(i) = Text1(i)
RS.Update
i = i + 1
DoEvents
Loop

MsgBox "تمت العملية بنجاح"

End Sub 


الى  

PHP كود :

Private Sub Command4_Click()

If RS.State = 1 Then RS.Close
RS.Open "Select * From LISTE1 ", DB, adOpenStatic, adLockPessimistic
Dim i As Integer
i = 1
Do Until i = 101
RS.Fields(i) = Text1(i)
i = i + 1
 
Loop

RS.Update

MsgBox "تمت العملية بنجاح"

End Sub 


طبعا  كلها تعمل جيدا القديم والجديد  ولكن   اصح واسرع