[asto]

صاير الكود بهذا الشكل :

كود :

p = Text1.Text
Text1.Text = p
On Error Resume Next
Data1.Recordset.OpenRecordset
Data1.Recordset.MoveLast
Text16.Text = Data1.Recordset.RecordCount
zzr = Text4.Text - 1
a1 = 0 + p
a2 = 25 + p

For v = a1 To a2
On Error Resume Next
Data1.Recordset.OpenRecordset
Data1.Recordset.MoveFirst
Data1.Recordset.Move (v)

i = Data1.Recordset.Fields!no
If i = v Then
Label3(v).Visible = True
Label4(v).Visible = True
Label3(v).Caption = Data1.Recordset.Fields!a
Label4(v).Caption = Data1.Recordset.Fields!b
Text2(v).Text = Data1.Recordset.Fields!a
Text3(v).Text = Data1.Recordset.Fields!b
Command2(v).Visible = True
Command3(v).Visible = True
e = e + 1
End If
If e = 26 Then
Command5.Visible = True
Command6.Visible = False
End If
Next v