Кнопка для редактирования данных о преподавателе создаётся аналогично. Отличие состоит только в названии кнопки и открываемой формы. Назовите кнопку «Редактирование и удаление», так как в дальнейшем в форме для редактирования будет кнопка для удаления записи (см. п. 6).
5. Кнопка для ввода записи создаётся аналогично двум предыдущим, только не нужно связывать поля и исправлять процедуру. Выберите переключатель «Открыть форму и показать все записи, надпись на кнопке - «Ввод преподавателя». Задайте имя кнопки «ввод_преп».
6. Кнопка для удаления записи. Чтобы уменьшить возможности ошибиться при удалении записи, необходимо:
· в момент нажатия кнопки удаления видеть запись,
· после нажатия кнопки для удаления записи пользователь должен подтвердить приказ об удалении.
Создайте кнопку для удаления записи в форме для редактирования. Выберите категорию «Обработка записей» и действие «Удалить запись». На кнопке напишите «Удаление».
Удалите запись.
Внимание! При вводе новых записей номер удалённой записи не используется. В последовательности номеров образуется неустранимый разрыв.
Результатом выполнения лабораторной работы должна быть экранная форма, похожая на форму, изображённую на рис.1.
Рис. 1. Пример формы «кафедра»
На рисунке в форме «кафедра» изображена необязательная кнопка «Удаление». Для её работы используется следующая процедура:
Private Sub КнопкаУд_Click()
Dim N_record As String
Dim dbs As Database
Dim a
a = MsgBox("Удалять?", vbYesNo)
If a = vbNo Then
Exit Sub
Else
N_record = Me![ПолеСоСписком0]
Set dbs = CurrentDb
dbs.Execute "DELETE FROM преподаватели WHERE код_преп=" & N_record
End If
End Sub
Процедурой удаляется из таблицы преподаватели запись, код (поле «код_преп») которой равен значению кода преподавателя, выбранному из поля со списком в форме «кафедра» (Me![ПолеСоСписком0]). Следует отметить, что перед удалением записи пользователь должен видеть всё её содержимое. Поэтому лучше кнопку для удаления поместить только в форме для просмотра или в форме для редактирования.
7. Самостоятельно создайте кнопки для выхода из форм для просмотра, редактирования и ввода.
Цель работы: научиться загружать в базу из внешних источников большие объёмы данных и сбрасывать из базы данные в формате других приложений.
В качестве приложения, с которым будет взаимодействовать Access, выберем электронные таблицы Excel. Откройте файл «группы.xls». Ознакомьтесь с листами «группы» и «факультеты».
1.Импорт в новую таблицу. Импортируйте из файла «группы.xls» в новую таблицу данные с листа «группы». Последовательность действий: Меню ® Файл ®Внешние данные ® Импорт. Далее выберите файл «группы.xls» и следуйте указаниям Access. Наименования полей оставьте такими же, как в таблице Excel, выберите автоматическое создание ключа, новую таблицу в базе данных назовите «Группы».
2.Импорт в существующую таблицу. Создайте в базе данных таблицу «факультет» следующей структуры:
|
Имя поля |
Тип данных |
Размер поля |
|
Код_фак |
Счётчик |
|
|
Факультет |
Текст |
50 |
|
Телефон |
Текст |
10 |
|
Декан |
Текст |
30 |
|
Секретарь |
Текст |
30 |
Введите первую запись следующего содержания:
Факультет - Юридический
Телефон - 167
Декан - Семёнов А.Б.
Секретарь – Никитина А.Г.
Импортируйте в таблицу «факультет» данные с листа ««факультеты» из файла «группы.xls». Последовательность действий: Меню ® Файл ®Внешние данные ® Импорт. Далее выберите файл «группы.xls» и следуйте указаниям Access. Наименования соответствующих полей в таблицах Excel и Access должны совпадать.
3.Установка связи с таблицей в формате Excel. Можно работать с таблицей Excel так же, как и с таблицами базы данных Access, если установить с ней связь.
Установите связь с таблицей Excel с листа «Список» из файла «Сортировка1.xls». Последовательность действий: Меню ® Файл ®Внешние данные ® Связь с таблицами. Далее выберите файл «Сортировка1.xls» и следуйте указаниям Access.
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.