- Код: Выделить всё
Private Sub Form_Load()
Dim MyDB As ADODB.Connection
Set MyDB = CurrentProject.Connection
Set rcdVoprosi = New ADODB.Recordset
With rcdVoprosi
.ActiveConnection = MyDB
.CursorType = adOpenKeyset
.Open Source:="Voprosi"
End With
End Sub
И есть кнопка. Своя.
Как сделать так, чтобы переход к следующей записи таблицы происходил по нажатию этой кнопки? Не стандартной, а своей.
Если я пишу в процедуре
- Код: Выделить всё
Private Sub Кнопка0_Click()
rcdVoprosi.MoveNext
End Sub
Он мне выдает ошибку Object Required на строке rcdVoprosi.MoveNext