Как связать элемент Data с другими кнопками

[Vale]

Можно ли управлять элементом Data другими кнопками ?

[A.A.Z.]

Конечно!

Код: Выделить всё

With Data1.Recordset
.Move <кол-во позиций>
.MoveFirst 'в начало
.MovePrevious 'на 1 назад
.MoveNext 'на 1 вперёд
.MoveLast 'в конец
End With


[Vale]

Воспользовался Вашим кодом .
Вот что получилось.
Private Sub Command1_Click()
With Parle.Recordset
.MovePrevious
End With
End Sub
Private Sub Command2_Click()
With Parle.Recordset
.MoveNext
End With
End Sub
СПАСИБО. Кнопки работают ,только после последней позиции базы данных при нажатие кнопки появляется пустая таблица ,а дальше при нажатии кнопки программа глючит. Это происходит в обе стороны. И еще , можно ли определить номер таблицы б/д , мне было-бы проще работать с программой.

[Netta]

Private Sub Command1_Click()
With Parle.Recordset
if .bof=true then exit sub
.MovePrevious
End With
End Sub

Private Sub Command2_Click()
With Parle.Recordset
if .eof then exit sub
.MoveNext
End With
End Sub

[Rainbow]

Дело в том, что когда курсор в рекордсете стоит на последней записи, и выполняется MoveNext, то курсор встает ЗА последнюю запись - это Recordset.EOF. Аналогично после первой записи при MovePrevious курсор встанет на Recordset.BOF.

Скорее всего, тебе было бы удобно, если бы после последней записи пользователь оказывался на первой и наоборот.

Код: Выделить всё

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