Простой SQL запрос средствами vba

[RISagitov]

Начал изучать vba access, Помогите , мне нужно для старта сделать select * from tbl
Внутри sub

Самым простым способом , типа hello world, чтоб дальше, уже химичить

[Myhaylo]

В случае DAO RecordSet предварительно нужно подключить библиотеку: в модуле формы в меню MS Access выбрать "Сервис"/"Ссылки" (Tools/References) и в появившемся окне "Ссылки" установить птичку для библиотеки "Microsoft DAO 3.x Object Library", где х - число, зависящее от версии MS Access.

Dim table As Recordset
  Set table = CurrentDb.OpenRecordset("select Номер, ФИО from tbl", dbOpenDynaset)
  With table

    'поиск:
    .FindFirst "Номер=" & ЗначениеЧисловое
    If Not .NoMatch Then
        MsgBox "№ " & !Номер
    End If

    .FindFirst "ФИО=""" & ЗначениеТекстовое & """"
    If Not .NoMatch Then
        MsgBox "Найдено: " & !ФИО
    End If

    'добавить запись:
    .AddNew
    !Номер=число
    !ФИО="Василий"
    .Update

    'редактировать текущую запись:
    .Edit
    !Номер=число
    !ФИО="Василий"
    .Update

    While Not .EoF
      MsgBox "№ " & !Номер
      .MoveNext  'перейти к следующей записи
    Wend

    .Close
  End With

[RISagitov]

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

В случае DAO RecordSet предварительно нужно подключить библиотеку: в модуле формы в меню MS Access выбрать "Сервис"/"Ссылки" (Tools/References) и в появившемся окне "Ссылки" установить птичку для библиотеки "Microsoft DAO 3.x Object Library", где х - число, зависящее от версии MS Access.

Dim table As Recordset
  Set table = CurrentDb.OpenRecordset("select Номер, ФИО from tbl", dbOpenDynaset)
  With table

    'поиск:
    .FindFirst "Номер=" & ЗначениеЧисловое
    If Not .NoMatch Then
        MsgBox "№ " & !Номер
    End If

    .FindFirst "ФИО=""" & ЗначениеТекстовое & """"
    If Not .NoMatch Then
        MsgBox "Найдено: " & !ФИО
    End If

    'добавить запись:
    .AddNew
    !Номер=число
    !ФИО="Василий"
    .Update

    'редактировать текущую запись:
    .Edit
    !Номер=число
    !ФИО="Василий"
    .Update

    While Not .EoF
      MsgBox "№ " & !Номер
      .MoveNext  'перейти к следующей записи
    Wend

    .Close
  End With

Спасибо большое


Мне казалось, код будет раза в два , три короче

[ovt256]

Собственно, первая строка предложенного Михаилом кода объявляет переменную типа Recordset, а вторая выполняет запрос. Все остальное - примеры использования данных выполненного запроса (если выполнение запроса не самоцель )