Помогите советом, а лучше на примере.
Не могу разобраться, как програмно подключиться к набору записей и перемещаться по нему.
Пробовал такой код
rivate Sub Кнопка16_Click()
Dim DB As Database
Dim RS As DAO.Recordset
Dim D As String
Set DB = CurrentDb
Set RS = DB.OpenRecordset("Касса", dbOpenTable)
RS.MoveFirst
Do Until RS.EOF
.......
RS.MoveNext
Loop
RS.Close
End Sub
Access ругается и говорит, что Run-time error 3011? объект Касса не найден ядром базы данных Microsoft Jet, а он точно есть.
Пробовал с открытой формой и закрытой не получается