VBA в Access

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
a270271
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 10.04.2008 (Чт) 9:33

VBA в Access

Сообщение a270271 » 10.04.2008 (Чт) 9:48

Помогите советом, а лучше на примере.
Не могу разобраться, как програмно подключиться к набору записей и перемещаться по нему.
Пробовал такой код
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, а он точно есть.
Пробовал с открытой формой и закрытой не получается

iGrok
Артефакт VBStreets
Артефакт VBStreets
 
Сообщения: 4272
Зарегистрирован: 10.05.2007 (Чт) 16:11
Откуда: Сетевое сознание

Сообщение iGrok » 10.04.2008 (Чт) 11:44

Я не совсем в теме, но м.б. поможет:
1)
("SELECT * FROM [Касса]")
2)
Вместо "Касса" - "[Касса]"
label:
cli
jmp label

a270271
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 10.04.2008 (Чт) 9:33

Сообщение a270271 » 14.04.2008 (Пн) 5:10

Касса это форма в базе данных Access. На форме кнопка, при ее нажатии нужно получить доступ к набру записей формы Касса, чтобы с ним поработать програмно.
Сижу туплю, в книге написан алгоритм, а на практике не работает, говорит нет такого объекта, а форма Касса есть

HandKot
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 283
Зарегистрирован: 28.06.2006 (Ср) 13:34
Откуда: Sergiev Posad

Сообщение HandKot » 14.04.2008 (Пн) 7:48

а ругается на какой строке?
таблица Касса есть в базе?
в какой среде работаете?
I Have Nine Lives You Have One Only
THINK!


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 206

    TopList