[asto]

هذا كود افضل بعد اضافة 2 تكست بوكس : تكست بوكس1 و تكست بوكس2

كود :

Private Sub Command1_Click()

Dim a As Integer
On Error Resume Next
Data1.Recordset.OpenRecordset
Data1.Recordset.MoveLast
Text2.Text = Data1.Recordset.RecordCount
a = Text2.Text / 4
For ic = 0 To 3
i = ic + 1
b = (i * a) - a
c = (i * a) - 1
If i = 4 Then c = Data1.Recordset.RecordCount - 1
For ii = b To c
If i > 1 Then
xx = a * (i - 1)
x = ii - xx
Else
x = ii
End If
Data1.Recordset.OpenRecordset
Data1.Recordset.MoveFirst
Data1.Recordset.Move (ii)
Text1.Text = Data1.Recordset.Fields!Name
List1(ic).AddItem (x)
List1(ic).List(x) = Text1.Text

Next ii
Next ic
End Sub