Начал я изучать ещё примерно в 1998 году, тогда у меня был Microsoft Access 97, в 2003 году ходил на курсы, и там изучал Microsoft Access 97, а в 2006 году мы в колледже изучали Microsoft Access 2003. В 2010 году я купил Microsoft Access 2010 и книжку, и программировал на нём.

Итак вот простой пример:
1. Создадим базу данных:
https://i.ibb.co/gFMr4jT/msaccess-xp-001-00-17-21-12-2022-min.jpg

2. Назовём базу данных урок1:
https://i.ibb.co/c3g4YdG/msaccess-xp-002-00-18-21-12-2022-min.jpg

3. Создадим таблицу и заполним таблицу:

Имя поля

Тип данных

ID

Счетчик

Счётчик записей

Имя

Текстовый

Имя человека

Фамилия

Текстовый

Фамилия человека

Дата рождения

Дата/время

Дата рождения человека

https://i.ibb.co/fq3H7C2/msaccess-xp-003-00-19-21-12-2022-min.jpg

https://i.ibb.co/kBv2h3q/msaccess-xp-005-00-22-21-12-2022-min.jpg

4. Укажим что поле краткий формат даты:
https://i.ibb.co/KzxYSgT/msaccess-xp-004-00-21-21-12-2022-min.jpg

5. Укажим что поле ID ключевое поле:
https://i.ibb.co/0snPRtY/msaccess-xp-004-00-21-21-12-2022-primkey-min.jpg

6. Сохраним таблицу как Люди:
https://i.ibb.co/gvDYksY/msaccess-xp-006-00-23-21-12-2022-min.jpg

7. Введём данные:

ID

Имя

Фамилия

Дата рождения

1

Петя

Лысенко

01.03.1990

2

Маша

Попова

21.07.1980

3

Надя

Краскова

05.02.1983

https://i.ibb.co/QdPHtVZ/msaccess-xp-007-00-26-21-12-2022-min.jpg

8. Перейдём на Модули:
https://i.ibb.co/4JnZMgT/msaccess-xp-008-00-27-21-12-2022-min.jpg

9. Нажмём на создать:
https://i.ibb.co/K21dxyg/msaccess-xp-009-00-52-21-12-2022-min.jpg

10. Введём код:
Код:

Код:
Option Compare Database
Private rec As DAO.Recordset  'Записи

Public Sub Test()
On Error GoTo errHand  'Обработчик ошибок
    ' Открываем из текущей базы данных таблицу "Люди"
    Set rec = CurrentDb.OpenRecordset("SELECT * FROM Люди")
    ' Цикл пока не конец
    Do While Not rec.EOF()
        ' Отображаем записи в окне сообщения rec(0).Value - ID, rec(1).Value - имя, rec(2).Value - фамилия
        MsgBox rec(0).Value & " " & rec(1).Value & " " & rec(2).Value
        ' Перемещаемся на следующую запись
        rec.MoveNext
    Loop
errHand:
  'Если ощибка, то показываем ошибку
  MsgBox Err.Description
End Sub

https://i.ibb.co/K9Zy6zx/msaccess-xp-010-00-53-21-12-2022-min.jpg

11. Нажмём на сохранить:
https://i.ibb.co/d4x7HS0/msaccess-xp-011-00-53-21-12-2022-min.jpg

12. Назавём модуль Урок_1:
https://i.ibb.co/W6bk0YC/msaccess-xp-012-00-54-21-12-2022-min.jpg

13. Запустим макрос Урок_1:
https://i.ibb.co/Fx6pDpN/msaccess-xp-013-00-54-21-12-2022-min.jpg

14. Результат:
https://i.ibb.co/7X0qNLB/msaccess-xp-014-00-56-21-12-2022-min.jpg