Создание форм.
Для просмотра, ввода или изменения данных прямо в таблице применяются формы. Форма позволяет отобрать данные из одной или нескольких таблиц и вывести их на экран, используя стандартный или созданный пользователем макет.
Программа состоит из следующих экранных форм:
· Форма «Главная».
В режиме конструктора форма выглядит следующим образом:
Для поля «Текущая дата» устанавливаю формат «Краткий формат даты».
Нажатие кнопки «Ввод платежного поручения» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 0):
Private Sub Кнопка0_Click()
On Error GoTo Err_Кнопка0_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1055) & ChrW(1083) & ChrW(1072) & ChrW(1090) & ChrW(1077) & ChrW(1078) & ChrW(1085) & ChrW(1086) & ChrW(1077) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(1088) & ChrW(1091) & ChrW(1095) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка0_Click:
Exit Sub
Err_Кнопка0_Click:
MsgBox Err.Description
Resume Exit_Кнопка0_Click
End Sub
Нажатие кнопки «Планируемые платежи» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 4):
Private Sub Кнопка4_Click()
On Error GoTo Err_Кнопка4_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1055) & ChrW(1083) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1088) & ChrW(1091) & ChrW(1077) & ChrW(1084) & ChrW(1099) & ChrW(1077) & ChrW(32) & ChrW(1087) & ChrW(1083) & ChrW(1072) & ChrW(1090) & ChrW(1077) & ChrW(1078) & ChrW(1080)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка4_Click:
Exit Sub
Err_Кнопка4_Click:
MsgBox Err.Description
Resume Exit_Кнопка4_Click
End Sub
Нажатие кнопки «Проведенные документы» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 1):
Private Sub Кнопка1_Click()
On Error GoTo Err_Кнопка1_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1055) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1077) & ChrW(32) & ChrW(1076) & ChrW(1086) & ChrW(1082) & ChrW(1091) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1099)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка1_Click:
Exit Sub
Err_Кнопка1_Click:
MsgBox Err.Description
Resume Exit_Кнопка1_Click
End Sub
Нажатие кнопки «Картотека №2» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 3):
Private Sub Кнопка3_Click()
On Error GoTo Err_Кнопка3_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1050) & ChrW(1072) & ChrW(1088) & ChrW(1090) & ChrW(1086) & ChrW(1090) & ChrW(1077) & ChrW(1082) & ChrW(1072) & ChrW(32) & ChrW(8470) & ChrW(50)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка3_Click:
Exit Sub
Err_Кнопка3_Click:
MsgBox Err.Description
Resume Exit_Кнопка3_Click
End Sub
Нажатие кнопки «Закрытие операционного дня» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 24):
Private Sub Кнопка24_Click()
On Error GoTo Err_Кнопка24_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1080) & ChrW(1077) & ChrW(32) & ChrW(1086) & ChrW(1087) & ChrW(1077) & ChrW(1088) & ChrW(1072) & ChrW(1094) & ChrW(1080) & ChrW(1086) & ChrW(1085) & ChrW(1085) & ChrW(1086) & ChrW(1075) & ChrW(1086) & ChrW(32) & ChrW(1076) & ChrW(1085) & ChrW(1103)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Form_Главная.data = data + 1
Exit_Кнопка24_Click:
Exit Sub
Err_Кнопка24_Click:
MsgBox Err.Description
Resume Exit_Кнопка24_Click
End Sub
Нажатие кнопки «Ведомость проведенных документов за указанную дату» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 21):
Private Sub Кнопка21_Click()
On Error GoTo Err_Кнопка21_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1042) & ChrW(1077) & ChrW(1076) & ChrW(1086) & ChrW(1084) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка21_Click:
Exit Sub
Err_Кнопка21_Click:
MsgBox Err.Description
Resume Exit_Кнопка21_Click
End Sub
Нажатие кнопки «Счета» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 22):
Private Sub Кнопка22_Click()
On Error GoTo Err_Кнопка22_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1050) & ChrW(1083) & ChrW(1080) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1099) & ChrW(32) & ChrW(1073) & ChrW(1072) & ChrW(1085) & ChrW(1082) & ChrW(1072)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка22_Click:
Exit Sub
Err_Кнопка22_Click:
MsgBox Err.Description
Resume Exit_Кнопка22_Click
End Sub
Нажатие кнопки «Выход» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 10):
Private Sub Кнопка10_Click()
On Error GoTo Err_Кнопка10_Click
DoCmd.Close
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click
End Sub
· Форма «Проводка платежного поручения».
В режиме конструктора форма выглядит следующим образом:
Поле «Текущая дата» равна дате на главной форме, то есть текущая дата=Формы!Главная!data. Поле «Номер документа» заполняется автоматически на основании поля NumDoc таблицы «Платежные поручения». В качестве номера документа берется произвольное число, так как типом поля NumDoc является счетчик. Счета плательщика (поле Plat таблицы «Клиенты банка») и получателя (поле Pol таблицы «Клиенты банка») заполняются путем выбора нужного счета из списка клиентов банка.
При этом автоматически заполняются подчиненные формы «Плательщик» и «Получатель», которые в свою очередь предоставляют информацию о наименовании плательщика и получателя соответственно и суммах на их счетах. Речь об этих формах пойдет ниже. Заполнение поля «Сумма платежа» происходит вручную. При этом данная сумма в результате проводки отражается в таблице «Платежные поручения» в поле SummaK. Значение поля «Дата платежа» по умолчанию устанавливается равной текущей дате на главной форме (т.е. =[Формы]![Главная]![data]), но имеется также возможность ее редактирования. Также дополнительно на форме устанавливается поле Cond таблицы «Платежные поручения», которое добавляет в таблицу состояние документа после проводки, т.е. либо 0- документ отложен, либо 1-документ проведен, либо 2- документ помещен в картотеку №2. Еще на форме устанавливается поле Zapret таблицы «Клиенты», которое добавляет в таблицу галочку напротив счета плательщика, означающую, что на счете плательщика не достаточно средств для проводки и документ находится в картотеке №2, а соответственно проводки по этому счету запрещаются.
Нажатие кнопки «Провести документ» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 25):
Private Sub Кнопка25_Click()
On Error GoTo Err_Кнопка25_Click
If Zapret = -1 Then
MsgBox "По дебету указанного счета плательщика запрещены проводки!"
Platel.SetFocus
Exit Sub
End If
If Plat.Value = Pol.Value Then
MsgBox "Необходимо выбрать разный счет плательщика и получателя!"
Plat.SetFocus
Exit Sub
End If
If Summa.Value = 0 Then
MsgBox "Необходимо ввести сумму!"
Summa.SetFocus
Exit Sub
End If
If data.Value = 0 Then
MsgBox "Необходимо ввести дату!"
data.SetFocus
Exit Sub
End If
Dim Doc As String
Doc = "set_plat"
DoCmd.RunMacro Doc
Doc = "set_exist"
DoCmd.RunMacro Doc
If Forms![Главная]![exist] = 0 Then
MsgBox "Указанный счет плательщика не существует!"
Platel.SetFocus
Exit Sub
End If
Doc = "set_pol"
DoCmd.RunMacro Doc
Doc = "set_exist"
DoCmd.RunMacro Doc
If Forms![Главная]![exist] = 0 Then
MsgBox "Указанный счет получателя не существует!"
Poluch.SetFocus
Exit Sub
End If
Cond = 0
If data <= TData Then
Cond = 1
If Summa > Forms![Платежное поручение]![Плательщик].Form![SummaK] Then
MsgBox "На счете не хватает средств. Документ будет помещен в картотеку №2"
Cond = 2
Doc = "zapret"
DoCmd.RunMacro Doc
DoCmd.Close
Exit Sub
End If
Doc = "Macros1"
DoCmd.RunMacro Doc
Doc = "Macros2"
DoCmd.RunMacro Doc
Else
MsgBox "Документ будет помещен в планируемые платежи!"
End If
Exit_Кнопка25_Click:
DoCmd.Close
Exit Sub
Err_Кнопка25_Click:
MsgBox Err.Description
Resume Exit_Кнопка25_Click
End Sub
Нажатие кнопки «Выход» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 49):
Private Sub Кнопка49_Click()
On Error GoTo Err_Кнопка49_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.Close
Exit_Кнопка49_Click:
Exit Sub
Err_Кнопка49_Click:
MsgBox Err.Description
Resume Exit_Кнопка49_Click
End Sub
· Форма «Плательщик».
В режиме конструктора форма выглядит следующим образом:
Это поле заполняется автоматически с помощью запроса на выборку из таблицы «Клиенты банка» поля Name, то есть наименования плательщика.
· Форма «Получатель».
В режиме конструктора форма выглядит следующим образом:
Аналогично полям формы «Плательщик» поля этой формы заполняются автоматически с помощью запроса на выборку из таблицы «Клиенты банка» поля Name, то есть наименования получателя.
· Форма «Планируемые платежи».
В режиме конструктора форма выглядит следующим образом:
Данная форма создается на основе запроса «Планируемые платежи», который выбирает из таблицы «Платежные поручения» все документы, в поле Cond которых стоит 0- отложен. Эта форма имеет тип «Несколько элементов», в которой записи отображаются в виде таблицы и каждая запись занимает отдельную строчку.
Нажатие кнопки «Проводка» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка «Проводка»):
Private Sub Провести_документы_Click()
On Error GoTo Err_Провести_документы_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1055) & ChrW(1083) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1088) & ChrW(1091) & ChrW(1077) & ChrW(1084) & ChrW(1099) & ChrW(1077) & ChrW(32) & ChrW(1087) & ChrW(1083) & ChrW(1072) & ChrW(1090) & ChrW(1077) & ChrW(1078) & ChrW(1080) & ChrW(95) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1086) & ChrW(1076) & ChrW(1082) & ChrW(1072)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Провести_документы_Click:
Exit Sub
Err_Провести_документы_Click:
MsgBox Err.Description
Resume Exit_Провести_документы_Click
End Sub
Нажатие кнопки «Выход» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 10):
Private Sub Кнопка10_Click()
On Error GoTo Err_Кнопка10_Click
If Me.Dirty Then Me.Dirty = False
DoCmd.Close
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click
End Sub
Предусмотрена возможность просматривать все планируемые платежи с помощью стрелок в нижнем правом углу формы.
Стрелка влево (кнопка 31):
Private Sub Кнопка31_Click()
On Error GoTo Err_Кнопка31_Click
DoCmd.GoToRecord , , acPrevious
Exit_Кнопка31_Click:
Exit Sub
Err_Кнопка31_Click:
MsgBox Err.Description
Resume Exit_Кнопка31_Click
End Sub
Стрелка вправо (кнопка 32):
Private Sub Кнопка32_Click()
On Error GoTo Err_Кнопка32_Click
DoCmd.GoToRecord , , acNext
Exit_Кнопка32_Click:
Exit Sub
Err_Кнопка32_Click:
MsgBox Err.Description
Resume Exit_Кнопка32_Click
End Sub
Нажатие кнопки «Провести документ» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 12):
Private Sub Кнопка12_Click()
On Error GoTo Err_Кнопка12_Click
If Summa.Value = 0 Then
MsgBox "Необходимо ввести сумму!"
Summa.SetFocus
Exit Sub
End If
If data.Value = 0 Then
MsgBox "Необходимо ввести дату!"
data.SetFocus
Exit Sub
End If
Dim Doc As String
Cond = 0
If data <= TData Then
Cond = 1
If Summa > Forms![Планируемые платежи]![Плательщик].Form![SummaK] Then
MsgBox "На счете не хватает средств. Документ будет помещен в картотеку №2"
Cond = 2
Doc = "zapret"
DoCmd.RunMacro Doc
DoCmd.Close
Exit Sub
End If
If Zapret = -1 Then
MsgBox "Проводки по дебету счета плательщика запрещены. Документ будет помещен в картотеку №2"
Cond = 2
Doc = "zapret"
DoCmd.RunMacro Doc
DoCmd.Close
Exit Sub
End If
Doc = "Macros1"
DoCmd.RunMacro Doc
Doc = "Macros2"
DoCmd.RunMacro Doc
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Doc = "razresh"
DoCmd.RunMacro Doc
DoCmd.Close
End If
Exit_Кнопка12_Click:
Exit Sub
Err_Кнопка12_Click:
MsgBox Err.Description
Resume Exit_Кнопка12_Click
End Sub
· Форма «Картотека №2».
В режиме конструктора форма выглядит следующим образом:
Данная форма создается на основе запроса «Планируемые платежи», который выбирает из таблицы «Платежные поручения» все документы, в поле Cond которых стоит 2- помещен в картотеку. Эта форма имеет тип «Несколько элементов», в которой записи отображаются в виде таблицы и каждая запись занимает отдельную строчку.
Нажатие кнопки «Проводка» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 11):
Private Sub Кнопка11_Click()
On Error GoTo Err_Кнопка11_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1050) & ChrW(1072) & ChrW(1088) & ChrW(1090) & ChrW(1086) & ChrW(1090) & ChrW(1077) & ChrW(1082) & ChrW(1072) & ChrW(32) & ChrW(8470) & ChrW(50) & ChrW(95) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1086) & ChrW(1076) & ChrW(1082) & ChrW(1072)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка11_Click:
Exit Sub
Err_Кнопка11_Click:
MsgBox Err.Description
Resume Exit_Кнопка11_Click
End Sub
Нажатие кнопки «Выход» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 10):
Private Sub Кнопка10_Click()
On Error GoTo Err_Кнопка10_Click
If Me.Dirty Then Me.Dirty = False
DoCmd.Close
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click
End Sub
При проводке документов картотеки №2 из формы «Проводка платежного поручения» предусмотрена возможность просматривать все документы картотеки №2 с помощью стрелок в нижнем правом углу формы.
Стрелка влево (кнопка 14):
Private Sub Кнопка14_Click()
On Error GoTo Err_Кнопка14_Click
DoCmd.GoToRecord , , acPrevious
Exit_Кнопка14_Click:
Exit Sub
Err_Кнопка14_Click:
MsgBox Err.Description
Resume Exit_Кнопка14_Click
End Sub
Стрелка вправо (кнопка 15):
Private Sub Кнопка15_Click()
On Error GoTo Err_Кнопка15_Click
DoCmd.GoToRecord , , acNext
Exit_Кнопка15_Click:
Exit Sub
Err_Кнопка15_Click:
MsgBox Err.Description
Resume Exit_Кнопка15_Click
End Sub
Нажатие кнопки «Провести документ» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 12):
Private Sub Кнопка12_Click()
On Error GoTo Err_Кнопка12_Click
If Summa.Value = 0 Then
MsgBox "Необходимо ввести сумму!"
Summa.SetFocus
Exit Sub
End If
If data.Value = 0 Then
MsgBox "Необходимо ввести дату!"
data.SetFocus
Exit Sub
End If
Dim Doc As String
Cond = 0
If data <= TData Then
Cond = 1
If Summa > Forms![Планируемые платежи]![Плательщик].Form![SummaK] Then
MsgBox "На счете не хватает средств. Документ будет помещен в картотеку №2"
Cond = 2
Doc = "zapret"
DoCmd.RunMacro Doc
DoCmd.Close
Exit Sub
End If
If Zapret = -1 Then
MsgBox "Проводки по дебету счета плательщика запрещены. Документ будет помещен в картотеку №2"
Cond = 2
Doc = "zapret"
DoCmd.RunMacro Doc
DoCmd.Close
Exit Sub
End If
Doc = "Macros1"
DoCmd.RunMacro Doc
Doc = "Macros2"
DoCmd.RunMacro Doc
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Doc = "razresh"
DoCmd.RunMacro Doc
DoCmd.Close
End If
Exit_Кнопка12_Click:
Exit Sub
Err_Кнопка12_Click:
MsgBox Err.Description
Resume Exit_Кнопка12_Click
End Sub
· Форма «Проведенные документы».
В режиме конструктора данная форма выглядит следующим образом:
Форма строится на основе запроса «Проведенные документы», который проводит выборку из таблицы «Платежные поручения» всех документов, в поле Cond которых стоит 1 – проведен и дата которых совпадает с датой текущего операционного дня, указанной на главной форме. Эта форма имеет тип «Несколько элементов», в которой записи отображаются в виде таблицы и каждая запись занимает отдельную строчку.
Нажатие кнопки «Выход» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 12):
Private Sub Кнопка12_Click()
On Error GoTo Err_Кнопка12_Click
If Me.Dirty Then Me.Dirty = False
DoCmd.Close
Exit_Кнопка12_Click:
Exit Sub
Err_Кнопка12_Click:
MsgBox Err.Description
Resume Exit_Кнопка12_Click
End Sub
· Форма «Закрытие текущего операционного дня».
В режиме конструктора данная форма выглядит следующим образом:
Нажатие кнопки «Архивные документы» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 26):
Private Sub Кнопка26_Click()
On Error GoTo Err_Кнопка26_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1040) & ChrW(1088) & ChrW(1093) & ChrW(1080) & ChrW(1074) & ChrW(1085) & ChrW(1099) & ChrW(1077) & ChrW(32) & ChrW(1076) & ChrW(1086) & ChrW(1082) & ChrW(1091) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1099)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка26_Click:
Exit Sub
Err_Кнопка26_Click:
MsgBox Err.Description
Resume Exit_Кнопка26_Click
End Sub
Нажатие кнопки «Архивные документы» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 10):
Private Sub Кнопка10_Click()
On Error GoTo Err_Кнопка10_Click
DoCmd.Close
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click
End Sub
· Форма «Архивные документы».
В режиме конструктора данная форма выглядит следующим образом:
Данная форма создана на основе запроса на выборку «Архивные документы», который выбирает из таблицы «Платежные поручения» все документы в поле Cond (состояние) которых стоит 1 – проведен.
Проведенные документы за текущий операционный день добавляются к списку ранее проведенных (и уже добавленных к архивным) документов.
Нажатие кнопки «Выход» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 33):
Private Sub Кнопка33_Click()
On Error GoTo Err_Кнопка33_Click
If Me.Dirty Then Me.Dirty = False
DoCmd.Close
Exit_Кнопка33_Click:
Exit Sub
Err_Кнопка33_Click:
MsgBox Err.Description
Resume Exit_Кнопка33_Click
End Sub
· Форма «Ведомость».
В режиме конструктора данная форма выглядит следующим образом:
Поле «Введите дату» заполняется либо вручную, либо с помощью календаря. Предполагается формирование ведомости о проведенных документах на любую дату. Здесь применяется запрос на выборку из таблицы «Платежные поручения» «Ведомость».
Нажатие кнопки «Просмотр» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 24):
Private Sub Кнопка24_Click()
On Error GoTo Err_Кнопка24_Click
Dim stDocName As String
stDocName = ChrW(1042) & ChrW(1077) & ChrW(1076) & ChrW(1086) & ChrW(1084) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100)
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка24_Click:
Exit Sub
Err_Кнопка24_Click:
MsgBox Err.Description
Resume Exit_Кнопка24_Click
End Sub
Нажатие кнопки «Ведомость в файл» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 23):
Private Sub Кнопка23_Click()
On Error GoTo Err_Кнопка23_Click
Dim stDocName As String
stDocName = ChrW(1042) & ChrW(1077) & ChrW(1076) & ChrW(1086) & ChrW(1084) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100)
DoCmd.OutputTo acReport, stDocName
Exit_Кнопка23_Click:
Exit Sub
Err_Кнопка23_Click:
MsgBox Err.Description
Resume Exit_Кнопка23_Click
End Sub
Нажатие кнопки «Выход» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 10):
Private Sub Кнопка10_Click()
On Error GoTo Err_Кнопка10_Click
DoCmd.Close
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click
End Sub
· Форма Клиенты банка».
В режиме конструктора данная форма выглядит следующим образом:
Форма строится с помощью мастера форм путем добавления всех необходимых полей таблицы «Клиенты банка» на данную форму.
Нажатие кнопки «Выход» вызывает соответствующую процедуру, которая в режиме SQL выглядит следующим образом (Кнопка 8):
Private Sub Кнопка8_Click()
On Error GoTo Err_Кнопка8_Click
If Me.Dirty Then Me.Dirty = False
DoCmd.Close
Exit_Кнопка8_Click:
Exit Sub
Err_Кнопка8_Click:
MsgBox Err.Description
Resume Exit_Кнопка8_Click
End Sub
Следует отметить, что в процессе программирования понадобилось создание дополнительной таблицы «Существование». Эта таблица создана специально для контроля существования номера счета, введенного как счет плательщика или счет получателя. Ниже показаны поля таблицы и их типы.