[asto]

VB_Coder كتب :السلام عليكم

- مالذي تريده بالضبط ، أو ماهي فكرة الكود لكي نعرف ماذا تريد ، ممكن نعطيك كود أفضل أو مختصر .
- تحياتي .

هذه هي فكرة الكود

كود :

a1=0
a2=25

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

و هذا الكود ينفذ بشكل خاطئ

شرحه انه 26 مرة افتح قاعدة بيانات و انتقل الى رقم السجل الذي يمثله v في كل مرة

ثم اخذ البيانات المطلوبة و عمل التالي :

كود :

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