21-11-13, 09:29 PM
هذه اكواد السابق و التالي :
و بالنسبة للبحث استبدل Findfirst ب FindNext
كود :
Private Sub Command1_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveFirst
End Sub
Private Sub Command2_Click()
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
Else
Data1.Recordset.MovePrevious
End If
End Sub
