Информационная система «Приемная комиссия Евразийского Института Рынка»

 

Primary key  “фамилия”, “имя” (Первичный ключ таблицы “заявление анкета”)

 

 

Вспомогательная таблица информационной системы  “специальности ”

 

Определены следующие поля:

1. “специальность”, тип данных- Текстовый
2. “шифр”, тип данных- Текстовый (размер поля –10)

 

содержимое таблицы:

 

специальность	шифр
Экономика - ВУЗ	050506
Менеджмент - ВУЗ	050507
Учет и аудит - ВУЗ	050508
Финансы (Банковское дело, Налоговое дело, Таможенное дело) - ВУЗ	050509
Государственное и местное управление - ВУЗ	050510
Маркетинг - ВУЗ	050511
Информационные системы - ВУЗ	050703
Экономика , Бухучет -Колледж	0705002
Менеджмент -Колледж	0712002
Налоговое дело - Колледж	0714002
Банковское дело - Колледж	0716002
Маркетинг - Колледж	0831002
Информационные системы - Колледж	3707002

 

§2 Макет форм информационной системы:

 

Главная форма информационной системы  “Главная форма”

 

Свойства формы:

Макет

(подпись - Главная форма), (кнопки  перехода – нет)

Элементы управления на форме:

1. тип элемента управления – командная кнопка (имя

элемента управления - Кнопка0), (подпись – Заполнить заявление)

2. тип элемента управления – командная кнопка (имя элемента управления – Кнопка1), (подпись – Коррекция заявления)
3. тип элемента управления – командная кнопка (имя элемента управления – Кнопка2), (подпись – Закрыть)

 

 

 

 

 

Форма  “заявление анкета”

Свойства формы:

Макет

(источник записей -  таблица  “заявление анкета”, т.е. форма связана  с данной таблицей), (подпись - заявление  анкета), (кнопки перехода – нет) (кнопка закрытия – нет)

 

Элементы управления на форме:

1. тип элемента управления – текстовое поле (имя элемента управления - дата заполнения), (данные - дата заполнения), (формат поля - Средний формат даты), (вывод на экран – нет, т.е. данное поле не видимо и заполняется программным путем)
2. тип элемента управления – текстовое поле с меткой (имя элемента управления – фамилия), (данные – фамилия), (подпись метки - фамилия)
3. тип элемента управления – текстовое поле с меткой (имя элемента управления – имя), (данные – имя), (подпись метки - имя)
4. тип элемента управления – текстовое поле с меткой (имя элемента управления – отчество), (данные – отчество), (подпись метки - отчество)
5. тип элемента управления – поле со списком с меткой (имя элемента управления – ПолеСоСписком5), (данные – место обучения), (тип источника строк – Список значений), (источник строк - "Институт";"Колледж"), (Присоединенный столбец – 1), (подпись метки - Институт или колледж)
6. тип элемента управления – поле со списком с меткой (имя элемента управления – ПолеСоСписком7), (данные – форма обучения), (тип источника строк – Список значений), (источник строк - "очного";"заочного на базе среднего";"заочного на базе среднего специального";"заочного на базе высшего"), (Присоединенный столбец – 1), (подпись метки - форма обучения)
7. тип элемента управления – поле со списком с меткой (имя элемента управления – ПолеСоСписком9), (данные – специальность), (тип источника строк – Таблица или запрос), (источник строк – таблица “специальности"), (Присоединенный столбец – 2), (подпись метки – специальность)
8. тип элемента управления – текстовое поле с меткой (имя элемента управления – дата рождения), (данные – дата рождения), (формат поля - Средний формат даты), (подпись метки - дата рождения)
9. тип элемента управления – текстовое поле с меткой (имя элемента управления – место рождения), (данные – место рождения), (подпись метки - место рождения)
10. тип элемента управления – поле со списком с меткой (имя элемента управления – ПолеСоСписком15), (данные – национальность), (тип источника строк – Список значений), (источник строк - "казахская";"русская";"украинская";"корейская";"уйгурская";"немецкая";"татарская";"турецкая";"азербайжанская";"курдская";"еврейская";"белорусская";"польская"), (Присоединенный столбец – 1), (подпись метки - национальность)
11. тип элемента управления – поле со списком с меткой (имя элемента управления – ПолеСоСписком17), (данные – язык обучения), (тип источника строк – Список значений), (источник строк - "русский";"казахский"), (Присоединенный столбец – 1), (подпись метки - язык обучения)
12. тип элемента управления – поле со списком с меткой (имя элемента управления – ПолеСоСписком25), (данные – иносранный язык), (тип источника строк – Список значений), (источник строк - "английский";"немецкий"), (Присоединенный столбец – 1), (подпись метки - иностранный язык)
13. тип элемента управления – текстовое поле с меткой (имя элемента управления – год окончан  учебн завед), (данные – год окончан  учебн завед), (подпись метки - год окончан  учебн завед)
14. тип элемента управления – текстовое поле с меткой (имя элемента управления – какое учеб завед окончил), (данные – какое учеб завед окончил), (подпись метки - окончил(а) сш/колледж:)
15. тип элемента управления – текстовое поле с меткой (имя элемента управления - в какой ВУЗ сдав док), (данные – в какой ВУЗ сдав док), (подпись метки - В какой пункт приема ент/кт и когда подано заявление)
16. тип элемента управления – текстовое поле с меткой (имя элемента управления - кол набран баллов ент(КТ)), (данные – кол набран баллов ент(КТ)), (подпись метки - кол набран баллов ент(КТ) )
17. тип элемента управления – текстовое поле с меткой (имя элемента управления - балл (математика)), (данные – балл (математика)), (подпись метки - балл (математика))
18. тип элемента управления – текстовое поле с меткой (имя элемента управления - балл (физика)), (данные – балл (физика)), (подпись метки - балл (физика))
19. тип элемента управления – текстовое поле с меткой (имя элемента управления - мать), (данные – мать), (подпись метки – мать)
20. тип элемента управления – текстовое поле с меткой (имя элемента управления - отец), (данные – отец), (подпись метки – отец)
21. тип элемента управления – текстовое поле с меткой (имя элемента управления - кол братьев и сестер), (данные – кол братьев и сестер), (подпись метки – кол братьев и сестер)
22. тип элемента управления – текстовое поле с меткой (имя элемента управления - братья и сестры), (данные – братья и сестры), (подпись метки – братья и сестры)
23. тип элемента управления – текстовое поле с меткой (имя элемента управления - домашний адрес), (данные – домашний адрес), (подпись метки – домашний адрес)
24. тип элемента управления – текстовое поле с меткой (имя элемента управления - телефон), (данные – телефон), (подпись метки – телефон)
25. тип элемента управления – текстовое поле с меткой (имя элемента управления - наличие грамоты по), (данные – наличие грамоты по), (подпись метки – Грамоты на олимпиадах какие и дата:)
26. тип элемента управления – текстовое поле с меткой (имя элемента управления - диплом олимпиады по), (данные – диплом олимпиады по), (подпись метки – дипломы на олимпиадах РК какие и дата: )
27. тип элемента управления – текстовое поле с меткой (имя элемента управления - художественная самодеят), (данные – художественная самодеят), (подпись метки – художественная самодеят – вид: )
28. тип элемента управления – текстовое поле с меткой (имя элемента управления - участие в спорте по), (данные – участие в спорте по), (подпись метки – участие в спорте - вид: )
29. тип элемента управления – флажок с меткой (имя элемента управления - f1), (данные – f1), (подпись метки – Евразир закончили ранее родственики и знакомые)
30. тип элемента управления – флажок с меткой (имя элемента управления – f2), (данные – f2), (подпись метки – В Евразире работают родственики и знакомые)
31. тип элемента управления – флажок с меткой (имя элемента управления – g1), (данные – g1), (подпись метки – Я пришел в Евразир по объявлению в газете -  Караване)
32. тип элемента управления – флажок с меткой (имя элемента управления – g2), (данные – g2), (подпись метки – Я пришел в Евразир по объявлению в газете -  Алматы акшамы)
33. тип элемента управления – флажок с меткой (имя элемента управления – g3), (данные – g3), (подпись метки – Я пришел в Евразир по объявлению в газете -  Экономе)
34. тип элемента управления – флажок с меткой (имя элемента управления – g4), (данные – g4), (подпись метки – Я пришел в Евразир по объявлению в газете -  Абитурент)
35. тип элемента управления – флажок с меткой (имя элемента управления – g5), (данные – g5), (подпись метки – Я пришел в Евразир по объявлению в справочнике - наш город)
36. тип элемента управления – флажок с меткой (имя элемента управления – g6), (данные – g6), (подпись метки – Я пришел в Евразир по рекламе щитов в городе)
37. тип элемента управления – флажок с меткой (имя элемента управления – g7), (данные – g7), (подпись метки – Я пришел в Евразир по рекламе на ТАНе)
38. тип элемента управления – флажок с меткой (имя элемента управления – g8), (данные – g8), (подпись метки – Я пришел в Евразир по буклету)
39. тип элемента управления – флажок с меткой (имя элемента управления – g9), (данные – g9), (подпись метки – Я пришел в Евразир по объявлению в справочнике Абитурент)
40. тип элемента управления – флажок с меткой (имя элемента управления – g10), (данные – g10), (подпись метки – Я пришел в Евразир после посещение моей школы)
41. тип элемента управления – флажок с меткой (имя элемента управления – g11), (данные – g11), (подпись метки – Я пришел в Евразир после  Выставки – Образование)
42. тип элемента управления – флажок с меткой (имя элемента управления – g12), (данные – g12), (подпись метки – Я пришел в Евразир по совету знакомых)
43. тип элемента управления – флажок с меткой (имя элемента управления – g13), (данные – g13), (подпись метки – Мне советовали родители поступать в Евразир)
44. тип элемента управления – командная кнопка (имя элемента управления – Добавить запись), (подпись метки – Добавить запись)
45. тип элемента управления – командная кнопка (имя элемента управления – очистить форму), (подпись метки – очистить форму)
46. тип элемента управления – командная кнопка (имя элемента управления – Закрыть форму), (подпись метки – Закрыть форму)

 

 

 

 

 

Форма  “дочерняя ”

Свойства формы:

Макет

(подпись - заявление анкета), (кнопки  перехода – нет) (кнопка закрытия  – нет)

 

Элементы управления на форме:

Элементы управления с первого по сорок третий и сорок шестой совпадают с элементами управления формы  “заявление анкета”, т.е. отсутствуют сорок четвертый и сорок пятый элемент управления.

 

 

 

 

Форма  “коррекция заявление абитуриента”

Свойства формы:

Макет

(подпись - Найти заявление абитуриента), (кнопки перехода – нет) (кнопка закрытия – нет)

 

Элементы управления на форме:

1. тип элемента управления – поле со списком с меткой (имя элемента управления –f), (тип источника строк – Таблица или запрос), (источник строк – “SELECT [заявление анкета].[фамилия] FROM [заявление анкета] GROUP BY [заявление анкета].[фамилия];"), (Присоединенный столбец – 1), (подпись метки – фамилия)
2. тип элемента управления – поле со списком с меткой (имя элемента управления –n), (тип источника строк – Таблица или запрос), (источник строк – “SELECT [заявление анкета].[имя] FROM [заявление анкета] GROUP BY [заявление анкета].[имя];"), (Присоединенный столбец – 1), (подпись метки – имя)
3. тип элемента управления – командная кнопка (имя элемента управления – m), (подпись метки – Найти заявление)
4. тип элемента управления – командная кнопка (имя элемента управления – закрыть форму), (подпись метки – Закрыть форму)

 

 

 

 

 

Перечисленные выше формы составляют основу входных документов информационной системы, кроме того, имеется дополнительная форма “зачисление в студенты”, которая используется для заполнения данных о зачисленных в состав студентов абитуриентов:

 Форма  “зачисление в студенты ”

Свойства формы:

Макет

(источник записей – таблица  “заявление анкета ”),(подпись - зачисление в студенты), (режим - таблица)

 

Элементы управления на форме:

1. тип элемента управления – флажок с меткой (имя элемента управления – зачислен в студенты), (данные – зачислен в студенты), (подпись метки – зачислен в студенты)
2. тип элемента управления – текстовое поле с меткой (имя элемента управления - номер приказа), (данные – номер приказа), (подпись метки – номер приказа)
3. тип элемента управления – текстовое поле с меткой (имя элемента управления - дата зачисления), (данные – дата зачисления), (формат - Средний формат даты), (подпись метки – дата зачисления)
4. тип элемента управления – текстовое поле с меткой (имя элемента управления - фамилия), (данные – фамилия), (доступ - нет),(подпись метки – фамилия), т.е. данное поле не доступно для корректировки.
5. тип элемента управления – текстовое поле с меткой (имя элемента управления - имя), (данные – имя), (доступ - нет),(подпись метки – имя)
6. тип элемента управления – текстовое поле с меткой (имя элемента управления - отчество), (данные – отчество), (доступ - нет),(подпись метки – отчество)
7. тип элемента управления – текстовое поле с меткой (имя элемента управления - место обучения), (данные – место обучения), (доступ - нет),(подпись метки – место обучения)
8. тип элемента управления – текстовое поле с меткой (имя элемента управления - форма обучения), (данные – форма обучения), (доступ - нет),(подпись метки – форма обучения)
9. тип элемента управления – текстовое поле с меткой (имя элемента управления - специальность), (данные – специальность), (доступ - нет),(подпись метки – специальность)
10. тип элемента управления – текстовое поле с меткой (имя элемента управления - язык обучения), (данные – язык обучения), (доступ - нет),(подпись метки – язык обучения)

 

 

 

 

§3 Макет отчетов информационной системы:

 

Главный отчет информационной системы  “Отчет заявление абитуриента”

 

Свойства отчета:

Макет

Элементы управления на форме:

1. Основу отчета составляет внедренный документ Microsoft Word, формат документа – на задний план, содержащий «Заявление – Анкету» заполняемого абитуриентом: образец этого документа приведен ниже –

 

 

 

 

 

 

 

 

 

 

Высшее экономическое учебное заведение

ЕВРАЗИЙСКИЙ ИНСТИТУТ РЫНКА

Аттестован МОН РК Гослицензия АА  N 0000091

480042, Алматы, К. Рыскулбекова 39 А, Тел. 202-833, 207-580, 207-834, факс: 200-212

 

 

Ректору ЕврАзИРа, д. э. н., 

профессору  Нурсеит А.Ш.

 

от___________________________________

 

___________________________________

 

 

Заявление-Анкета

 

Прошу Вас принять меня на конкурсной основе в состав студентов для                                                          

                                                                                                   обучения за счет:

а) госгранта б) на свои средства в) на средства спонсора по специальности:

 

соответственно Типовым правилам приема в ВУЗы, утвержденным МОН  РК.

 

 

Дата:                                                                 Личная подпись __________________

 

1. Дата и место рождения
2. Национальность
3. Окончил(а) сш/колледж

год

4. В какой «ПП» для сдачи ЕНТ/КТ и когда подано заявление

 

5. Набрано баллов на ЕНТ/КТ                                  в т.ч. по профильному

 предмету математике                                                     физике

6. Язык обучения
7. Изучал(а) иностранный язык какой:
8. Состав семьи: Мать

Отец

Брат/сестра

9. Домашний адрес
10. Телефон
11. Таланты и способности:

Грамоты на олимпиадах РК какие и дата

Дипломы на олимпиадах РК какие и дата

Х/самодеятельность - вид

Участие в спорте - вид

2. тип элемента управления – текстовое поле (имя элемента управления - фамилия), (данные – фамилия), (оформление – рельефное)
3. тип элемента управления – текстовое поле (имя элемента управления - имя), (данные – имя), (оформление – рельефное)
4. тип элемента управления – текстовое поле (имя элемента управления - отчество), (данные – отчество), (оформление – рельефное)
5. тип элемента управления – поле со списком (имя элемента управления – ПолеСоСписком7), (данные – форма обучения), (тип источника строк – Список значений), (источник строк - "очного";"заочного на базе среднего";"заочного на базе среднего специального";"заочного на базе высшего"), (Присоединенный столбец – 1) , (оформление – рельефное)
6. тип элемента управления – поле со списком (имя элемента управления – ПолеСоСписком9), (данные – специальность), (тип источника строк – Таблица или запрос), (источник строк – таблица “специальности"), (Присоединенный столбец – 2), на экране будут видны названия специальностей, (оформление – рельефное)
7. тип элемента управления – поле со списком (имя элемента управления – ПолеСоСписком9), (данные – специальность), (тип источника строк – Таблица или запрос), (источник строк – таблица “специальности"), (Присоединенный столбец – 1), на экране будут видны шифры специальностей, (оформление – рельефное)
8. тип элемента управления – текстовое поле (имя элемента управления - дата заполнения), (данные – дата заполнения), (оформление – рельефное)
9. тип элемента управления – текстовое поле (имя элемента управления - дата рождения), (данные – дата рождения), (оформление – рельефное)
10. тип элемента управления – текстовое поле (имя элемента управления - место рождения), (данные – место рождения), (оформление – рельефное)
11. тип элемента управления – поле со списком (имя элемента управления – ПолеСоСписком15), (данные –национальность), (тип источника строк – Таблица или запрос), (источник строк –“SELECT [заявление анкета].[национальность] FROM [заявление анкета] GROUP BY [заявление анкета].[национальность]"), (Присоединенный столбец – 1), (оформление – рельефное)
12. тип элемента управления – текстовое поле (имя элемента управления - какое учеб завед окончил), (данные – какое учеб завед окончил), (оформление – рельефное)
13. тип элемента управления – текстовое поле (имя элемента управления - год окончан  учебн завед), (данные – год окончан  учебн завед), (оформление – рельефное)
14. тип элемента управления – поле со списком (имя элемента управления – ПолеСоСписком21), (данные –в какой ВУЗ сдав док), (тип источника строк – Таблица или запрос), (источник строк –“SELECT [заявление анкета].[в какой ВУЗ сдав док] FROM [заявление анкета] GROUP BY [заявление анкета].[в какой ВУЗ сдав док];"), (Присоединенный столбец – 1), (оформление – рельефное)
15. тип элемента управления – текстовое поле (имя элемента управления - кол набран баллов ент(КТ)), (данные – кол набран баллов ент(КТ)), (оформление – рельефное)
16. тип элемента управления – текстовое поле (имя элемента управления - балл (математика)), (данные – балл (математика)), (оформление – рельефное)
17. тип элемента управления – текстовое поле (имя элемента управления - балл (физика)), (данные – балл (физика)), (оформление – рельефное)
18. тип элемента управления – поле со списком (имя элемента управления – ПолеСоСписком17), (данные –язык обучения), (тип источника строк –Список значений), (источник строк –"русский";"казахский"), (Присоединенный столбец – 1), (оформление – рельефное)
19. тип элемента управления – поле со списком (имя элемента управления – ПолеСоСписком25), (данные –иносранный язык), (тип источника строк –Список значений), (источник строк –"английский";"немецкий"), (Присоединенный столбец – 1), (оформление – рельефное)
20. тип элемента управления – текстовое поле (имя элемента управления - мать), (данные – мать), (оформление – рельефное)
21. тип элемента управления – текстовое поле (имя элемента управления - отец), (данные – отец), (оформление – рельефное)
22. тип элемента управления – текстовое поле (имя элемента управления - братья и сестры), (данные – братья и сестры), (оформление – рельефное)
23. тип элемента управления – текстовое поле (имя элемента управления - домашний адрес), (данные – домашний адрес), (оформление – рельефное)
24. тип элемента управления – текстовое поле (имя элемента управления - телефон), (данные – телефон), (оформление – рельефное)
25. тип элемента управления – текстовое поле (имя элемента управления - наличие грамоты по), (данные – наличие грамоты по), (оформление – рельефное)
26. тип элемента управления – текстовое поле (имя элемента управления - диплом олимпиады по), (данные – диплом олимпиады по), (оформление – рельефное)
27. тип элемента управления – текстовое поле (имя элемента управления - художественная самодеят), (данные – художественная самодеят), (оформление – рельефное)
28. тип элемента управления – текстовое поле (имя элемента управления - участие в спорте по), (данные – участие в спорте по), (оформление – рельефное)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

§4 Информационные потоки  в системе

 

Диаграмма информационных потоков

 

 

 

 

 

 

 

 

 

 

 

 

Настройка приложения:

Главное меню – Сервис – подкоманда Параметры запуска, открывается форма Параметры запуска.

1. Заголовок приложения «Анкеты абитуриентов»
2. Вывод формы «Главная форма»
3. Сняты все флажки разрешения на доступ к функциям – контекстное меню, панель инструментов, окно БД, специальные функции и др.

 

Создадим закрытое защищенное приложение:

Главное меню – Сервис – команда Служебные программы – подкоманда. Создать – MDE файл. Рабочий файл приложения «Анкета абитуриента2.mde». В данном файле доступны только формы для заполнения, таблицы приложения доступны через внешние подключения.

В файле БД в окне таблицы выполнить команду или «Импорт», или «Связь с таблицами» и получить доступ к исходной таблице нашего приложения для выполнения служебных подпрограмм приложения.

 

§5 Программная обработка в приложении

 

А) Главная форма

   Процедура обработки события  щелчок на кнопку «Заполнить  заявление»

 

Private Sub Кнопка0_Click()

DoCmd.OpenForm "заявление анкета"

''  открывается форма  - заявление  анкета

DoCmd.Close acForm, "Главная форма"

'' Закрывается  текущая форма - Главная  форма

End Sub

 

  Процедура обработки события  щелчок на кнопку «Коррекция  заявления»

 

Private Sub Кнопка1_Click()

DoCmd.OpenForm "коррекция заявление  абитуриента"

''  открывается форма  - коррекция заявление абитуриента

DoCmd.Close acForm, "Главная форма"

End Sub

 

   Процедура обработки события  щелчок на кнопку «Закрыть»

 

Private Sub Кнопка2_Click()

DoCmd.Close acForm, "Главная форма"

DoCmd.Quit acExit

''  Закрывается  приложения 

End Sub

 

 

Б) Открытый модуль приложения Module1

Public s2 As String, s3 As String

 

Объявляется общедоступные на уровни приложения переменные строкового типа s2 и s3.

В) Открытые модули приложения Strings и TestStr

Данные модули импортированы из библиотеки системных функций VBA, разработанных Ken Getz и Mike Gilbert.

Функция – dhTrimAll выполняет служебные операций (удаляет ведущие и завершающие пробелы введенных на форме в текстовые поля строковые данные, заменяет несколько пробелов и табуляций между словами на один пробел).

Функция – dhProperLookup выполняет служебные операций (преобразует первую букву слова в заглавную,  а остальные в строчные).

Функции принимают строковые значения, и возвращают строковые значения.

 

Г) Форма «заявление анкета»

 

Дадим описание процедур обработки событий на форме:

Процедура, выполняющаяся при открытии формы –

Используется встроенный объект приложения Access «DoCmd», который вызывает метод GoToRecord перехода на новую запись в таблице с которой связана форма.

 

Private Sub Form_Open(Cancel As Integer)

On Error GoTo Макрос1_Err

    DoCmd.GoToRecord , "", acNewRec

Макрос1_Exit:

    Exit Sub

Макрос1_Err:

    MsgBox Error$

    Resume Макрос1_Exit

End Sub

 

Обработчик события щелчок на кнопку «Добавить запись» -

Сначала заполняется невидимое поле «дата заполнения» текущей системной датой взращаемой встроенной функцией Date. Затем с помощью встроенного объекта DoCmd выполняем последовательно действия: сохраняем текущую запись, открываем отчет

«Отчет заявление абитуриента» в режиме вывода на принтер, а затем закрываем данный отчет. В процедуре имеется блок обработки исключительной ситуации.

 

Private Sub Добавить_запись_Click()

[дата заполнения].Value = Date

On Error GoTo Err_Добавить_запись_Click

     DoCmd.RunCommand acCmdRecordsGoToNew

    DoCmd.OpenReport "Отчет заявление абитуриента", acNormal, "", ""

    DoCmd.Close acReport, "Отчет заявление абитуриента"

       Exit_Добавить_запись_Click:

    Exit Sub

Err_Добавить_запись_Click:

    MsgBox Err.Description

    Resume Exit_Добавить_запись_Click

     End Sub

 

 

 

Обработчик события щелчок на кнопку «Закрыть форму» - если отсутствует значение текущей даты, то удалим текущую запись как необработанную. Выполняется действие по открытию главной формы и закрытие текущей формы, этим мы формируем замкнутый цикл  приложения, т. е. начинаем приложение с главной формы и им завершаем.

 

Private Sub Закрыть_форму_Click()

If [дата заполнения].Value = "" Then

On Error GoTo Макрос1_Err

    DoCmd.RunCommand acCmdDeleteRecord

Макрос1_Exit:

   GoTo m1

Макрос1_Err:

    MsgBox Error$

    Resume Макрос1_Exit

End If

m1:

On Error GoTo Err_Закрыть_форму_Click

DoCmd.OpenForm "Главная форма"

DoCmd.Close acForm, "заявление анкета"

  Exit_Закрыть_форму_Click:

    Exit Sub

Err_Закрыть_форму_Click:

    MsgBox Err.Description

    Resume Exit_Закрыть_форму_Click

    End Sub

 

Обработчик события щелчок на кнопку «очистить форму» -

Объявляется внутренняя на уровне процедуры переменная element типа данных Control способная хранить ссылку на любой элемент управления на форме.

В цикле выполняющим проверку по всем элементам управления на форме отслеживается:

Если элемент не является полем «дата заполнения, то определяем тип этого элемента управления. В случае если это  текстовое поле или комбинированное поле со списком, то установить на нем фокус и очистить данный элемент управления присвоив ему значение пустой строки. Если этот элемент флажок, то установим на нем фокус и очистим данный элемент управления, присвоив ему значение False.