Начал я изучать ещё примерно в 1998 году, тогда у меня был Microsoft Access 97, в 2003 году ходил на курсы, и там изучал Microsoft Access 97, а в 2006 году мы в колледже изучали Microsoft Access 2003. В 2010 году я купил Microsoft Access 2010 и книжку, и программировал на нём.
Итак вот простой пример:
1. Создадим базу данных:
2. Назовём базу данных урок1:
3. Создадим таблицу и заполним таблицу:
Имя поля | Тип данных | |
ID | Счетчик | Счётчик записей |
Имя | Текстовый | Имя человека |
Фамилия | Текстовый | Фамилия человека |
Дата рождения | Дата/время | Дата рождения человека |


4. Укажим что поле краткий формат даты:
5. Укажим что поле ID ключевое поле:
6. Сохраним таблицу как Люди:
7. Введём данные:
ID | Имя | Фамилия | Дата рождения |
1 | Петя | Лысенко | 01.03.1990 |
2 | Маша | Попова | 21.07.1980 |
3 | Надя | Краскова | 05.02.1983 |

8. Перейдём на Модули:
9. Нажмём на создать:
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
11. Нажмём на сохранить:
12. Назавём модуль Урок_1:
13. Запустим макрос Урок_1:
14. Результат: