[ahmedabdelaliem]

هذا هو ما يحدث اخي عبدالعزيز عند الترحيل يضيف سجلات جديدة وارقام  تسلسلية جديدة

---

الحقيقة انا مش فاهم المطلوب الان هل اضافة السجلات بعد السجلات الموجودة ولا التعديل على السجلات الموجودة

لو المطلوب الاضافة فهي تعمل تمام مع التسلسل لانك غيرت اسماء الحقول الرئيسية لذلك التسلسل لا يعمل وانا الان قمت بضبطه مرة اخرى ارجو
توضيح الطلوب

شاكر لك

---

هذا هو الكود بعد التعديل مع اضافة التسلسل من جديد

هل هو المطلوب

PHP كود :

If RS.State = adStateOpen Then RS.Close

RS.Open "Select * From [Feuil1$]", Cn, adOpenKeyset, adLockPessimistic
Dim I As Integer
For I = 0 To 5
RS.AddNew
If I = 0 Then
RS.Fields(0).Value = GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value = Text1.Text
RS.Fields(2).Value = Text2.Text
RS.Fields(3).Value = Text3.Text
RS.Fields(4).Value = Text4.Text
RS.Fields(5).Value = Text5.Text
RS.Fields(6).Value = Text6.Text
RS.Update
I = I + 1
End If
RS.MoveNext

If I = 1 Then
RS.AddNew
RS.Fields(0).Value = GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value = Text7.Text
RS.Fields(2).Value = Text8.Text
RS.Fields(3).Value = Text9.Text
RS.Fields(4).Value = Text10.Text
RS.Fields(5).Value = Text11.Text
RS.Fields(6).Value = Text12.Text
RS.Update
I = I + 1
End If
RS.MoveNext
       
If I = 2 Then
RS.AddNew
RS.Fields(0).Value = GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value = Text13.Text
RS.Fields(2).Value = Text14.Text
RS.Fields(3).Value = Text15.Text
RS.Fields(4).Value = Text16.Text
RS.Fields(5).Value = Text17.Text
RS.Fields(6).Value = Text18.Text
RS.Update
I = I + 1
End If
RS.MoveNext
       
If I = 3 Then
RS.AddNew
RS.Fields(0).Value = GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value = Text19.Text
RS.Fields(2).Value = Text20.Text
RS.Fields(3).Value = Text21.Text
RS.Fields(4).Value = Text22.Text
RS.Fields(5).Value = Text23.Text
RS.Fields(6).Value = Text24.Text
RS.Update
I = I + 1
End If
RS.MoveNext
       
If I = 4 Then
RS.AddNew
RS.Fields(0).Value = GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value = Text25.Text
RS.Fields(2).Value = Text26.Text
RS.Fields(3).Value = Text27.Text
RS.Fields(4).Value = Text28.Text
RS.Fields(5).Value = Text29.Text
RS.Fields(6).Value = Text30.Text
RS.Update
I = I + 1
End If
RS.MoveNext
       


If I = 5 Then
RS.AddNew
RS.Fields(0).Value = GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value = Text31.Text
RS.Fields(2).Value = Text32.Text
RS.Fields(3).Value = Text33.Text
RS.Fields(4).Value = Text34.Text
RS.Fields(5).Value = Text35.Text
RS.Fields(6).Value = Text36.Text
RS.Update
I = I + 1
End If
RS.MoveNext

If I = 6 Then
RS.AddNew
RS.Fields(0).Value = GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value = Text37.Text
RS.Fields(2).Value = Text38.Text
RS.Fields(3).Value = Text39.Text
RS.Fields(4).Value = Text40.Text
RS.Fields(5).Value = Text41.Text
RS.Fields(6).Value = Text42.Text
RS.Update
I = I + 1
End If
RS.MoveNext

If I = 7 Then
RS.AddNew
RS.Fields(0).Value = GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value = Text43.Text
RS.Fields(2).Value = Text44.Text
RS.Fields(3).Value = Text45.Text
RS.Fields(4).Value = Text46.Text
RS.Fields(5).Value = Text47.Text
RS.Fields(6).Value = Text48.Text
RS.Update
I = I + 1
End If
RS.MoveNext

If I = 8 Then
RS.AddNew
RS.Fields(0).Value = GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value = Text49.Text
RS.Fields(2).Value = Text50.Text
RS.Fields(3).Value = Text51.Text
RS.Fields(4).Value = Text52.Text
RS.Fields(5).Value = Text53.Text
RS.Fields(6).Value = Text54.Text
RS.Update
I = I + 1
End If
RS.MoveNext

If I = 9 Then
RS.AddNew
RS.Fields(0).Value = GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value = Text55.Text
RS.Fields(2).Value = Text56.Text
RS.Fields(3).Value = Text57.Text
RS.Fields(4).Value = Text58.Text
RS.Fields(5).Value = Text59.Text
RS.Fields(6).Value = Text60.Text
RS.Update
I = I + 1
End If
RS.MoveNext


Next
MsgBox "ÊãÊ ÚãáíÉ ÊÑÍíá ÇáÈíÇäÇÊ", vbInformation, "ÃÎíß ÃÍãÏ ÚÈÏ ÇáÚáíã"
Exit Sub