Приложение а.
Окно главной формы
Рисунок А.1 Окно главной формы
Приложение Б.
Форма «Абоненты сети интернет»
Рисунок Б.1 Форма «Абоненты сети интернет»
Форма «Сотрудники»
Рисунок Б.2 Форма «Сотрудники»
Приложение В.
Отчет «Абоненты сети интернет»
Рисунок В.1 Отчет «Абоненты сети интернет»
Приложение Г.
Листинг программы.
Option Compare Database
Private Sub Кнопка «Поиск»_Click ()
On Error GoTo Err_Кнопка «Поиск»_Click
Screen.PreviousControl.SetFocus {вывод диалогового окна поиска}
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, acMenuVer70
Exit_Кнопка «Поиск»_Click:
Exit Sub.
Err_Кнопка «Поиск»_Click:
MsgBox Err.Description
Resume Exit_Кнопка «Поиск»_Click
End Sub.
Private Sub Кнопка «Следующая запись»_Click ()
On Error GoTo Err_Кнопка «Следующая запись»_Click
DoCmd.GoToRecord, acNext {переход на следующую запись}
Exit_Кнопка «Следующая запись»_Click:
Exit Sub.
Err_Кнопка «Следующая запись»_Click:
MsgBox Err.Description
Resume Exit_Кнопка «Следующая запись»_Click
End Sub.
Private Sub Кнопка «Предыдущая запись»_Click ()
On Error GoTo Err_Кнопка «Предыдущая запись»_Click
DoCmd.GoToRecord , acPrevious {переход на предыдущую запись}
Exit_Кнопка «Предыдущая запись»_Click:
Exit Sub.
Err_Кнопка «Предыдущая запись»_Click:
MsgBox Err.Description
Resume Exit_Кнопка «Предыдущая запись»_Click
End Sub.
Private Sub Кнопка «Сохранить запись»_Click ()
On Error GoTo Err_Кнопка «Сохранить запись»_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, acMenuVer70 {сохранение данных в форме и в таблице}
Exit_Кнопка «Сохранить запись»_Click:
Exit Sub.
Err_Кнопка «Сохранить запись»_Click:
MsgBox Err.Description
Resume Exit_Кнопка «Сохранить запись»_Click
End Sub.
Private Sub Кнопка «Удалить запись»_Click ()
On Error GoTo Err_Кнопка «Удалить запись»_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, acMenuVer70 {вывод запроса на удаление}
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, acMenuVer70 {удаление записей в форме и в таблице}
Exit_Кнопка «Удалить запись»_Click:
Exit Sub.
Err_Кнопка «Удалить запись»_Click:
MsgBox Err.Description
Resume Exit_Кнопка «Удалить запись»_Click
End Sub.
Private Sub Кнопка «Выход из формы»_Click ()
On Error GoTo Err_Кнопка «Удалить запись»_Click
DoCmd.Close {закрытие формы}
Exit_Кнопка «Выход»_Click:
Exit Sub.
Err_Кнопка «Выход»_Click:
MsgBox Err.Description
Resume Exit_Кнопка «Выход»_Click
End Sub.
Private Sub Кнопка «Печать формы»_Click ()
On Error GoTo Err_Кнопка «Печать формы» _Click
Dim stDocName As String
Dim MyForm As Form
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
Exit_Кнопка «Печать формы»_Click:
Exit Sub.
Err_Кнопка «Печать формы»_Click:
MsgBox Err.Description
Resume Exit_Кнопка «Печать формы»_Click
End Sub.
Private Sub Кнопка «Ввод данных»_Click ()
On Error GoTo Err_Кнопка «Ввод данных»_Click
Dim stDocName As String
stDocName = ChrW(1074) & ChrW(1074) & ChrW(1086) & ChrW(1076)
DoCmd.RunMacro stDocName {ввод данных в существующие поля}
Exit_Кнопка «Ввод данных»_Click:
Exit Sub.
Err_Кнопка «Ввод данных»_Click:
MsgBox Err.Description
Resume Exit_Кнопка «Ввод данных»_Click
End Sub.