[asto]

تضع 2 تكست بوكس جديدين

كود :

Text5.Visible = False
Text6.Visible = False
On Error Resume Next
Data1.Recordset.OpenRecordset
Data1.Recordset.MoveLast
Text5.Text = Data1.Recordset.RecordCount
zzr = Text5.Text - 1
For s = 0 To zzr
On Error Resume Next
Data1.Recordset.OpenRecordset
Data1.Recordset.MoveFirst
Data1.Recordset.Move (s)
Data1.Recordset.Edit
Text6.Text = s + 1
Data1.Recordset!الترتيب = Text6.Text
Data1.Recordset.Update
next s