Из VBA обратиться к таблице

[ivpoed]

Здравствуйте.

Подскажите пожалуйста, как из программы VBA обратиться к конкретной ячейке таблицы Access? (прочитать, поменять значение)

Заранее спасибо.

[Mikimaus]

Dim bd As Database, tab1 As Recordset
Dim str As String
Set bd = DBEngine.Workspaces(0).Databases(0)
Set tab1 = bd.OpenRecordset("Имя таблицы")

Do Until tab1.EOF
'___________________________________________________
If tab1!"Название столбца" = "Значение в этом столбце" ' т.е.цик пойдет'по строкам, найдет "Значение в этом столбце" str = tab1!"Название столбца"
End If
Loop

Попробуйте так

[Teslenko_EA]

Здравствуйте ivpoed.
в VBA можно обратиться к полю таблицы (не к ячейке) двумя способами:
1. установив подключение к БД и открыв рекордсет (Recordset - набор записей) для последующей работы с данными. Это может быть рекордсет DAO (как предлагал Mikimaus)- "взрослый" способ практически не поддерживаемый при работе с сетью, и ADO или ADOX, более современные с широким спектром применения.
Но эти "познания" Вам пригодятся только после знакомства с этими библиотеками и их изучения.
На данном этапе, более пододящим способом будет способ с применением форм MS Access для доступа к данным.
2. создав форму MS Access с подключенным источником записей (таблицей или запросом), и используя код VBA прекрасно можно справиться с навигацией по записям и с их обработкой методами JET ядра MS Access. Создавая форму и её контролы (элементы управления) с использованием Мастера, он поможет Вам создать необходимый код для обработки всевозможных событий, в том числе "...прочитать, поменять значение..." в поле(!)
Евгений.

[Abrakadabra]

Сообщение от Teslenko_EA

ADO или ADOX, более современные
Евгений.

Судя по тенденциям развития Аксесса, DAO не так уж и бесперспективен.

Автору топика: начните с изучения Recordset, это поможет Вам получить доступ к данным из VBA

[Teslenko_EA]

to Abrakadabra.
"...не так уж и бесперспективен.." - библиотека DAO давно не обновляемый инструмент, прекрасно справляющийся с локальными задачами MS Access. Её преемницей "назначали" библиотеку ADOX, но она не получила такого широкого распространения и потому о "бесперспективности" DAO не может быть и речи.
просветите - "... по тенденциям развития Аксесса..." я что-то упустил, ожидается новый релиз DAO?
Евгений.

[ivpoed]

Большое спасибо всем. Буду разбираться...