Начал я изучать ещё примерно в 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. Результат: