With Data1.Recordset
.Move <кол-во позиций>
.MoveFirst 'в начало
.MovePrevious 'на 1 назад
.MoveNext 'на 1 вперёд
.MoveLast 'в конец
End With
Private Sub Command1_Click()
With Parle.Recordset
.MovePrevious
if .bof=true then
.MoveLast
end if
End With
End Sub
Private Sub Command2_Click()
With Parle.Recordset
.MoveNext
if .eof then
.MoveFirst
end if
End With
End Sub
Сейчас этот форум просматривают: SemrushBot и гости: 7