e
Beep
MsgBox "Доступ відсутнє", vbOKOnly, ""
End If
меню_Пользователі_Exit:
Exit Function
меню_Пользователі_Err:
MsgBox Error $
Resume меню_Пользователі_ExitFunction
меню_Сменіть_пользователя () Error GoTo меню_Сменить_пользователя_Err
DoCmd.Close, ""
DoCmd.OpenForm "Авторизація", acNormal, "", "",, acNormal
меню_Сменить_пользователя_Exit:
Exit Function
меню_Сменить_пользователя_Err:
MsgBox Error $
Resume меню_Сменить_пользователя_ExitFunction
меню_Закрить_окно () Error GoTo меню_Закрить_окно_Err
DoCmd.Close, ""
меню_Закрить_окно_Exit:
Exit Function
меню_Закрить_окно_Err:
MsgBox Error $
Resume меню_Закрить_окно_ExitFunction
В.3 Перевірка на відсутність клієнта в базі
Sub ФІОКліента_NotInList (NewData As String, Response As Integer) strTmp As String
strTmp = "Додати '" & NewData & "' як нового клієнта?"
If MsgBox (strTmp, vbYesNo + vbDefaultButton2 + vbQuestion, "Not in list") = vbYes Then
strTmp = "INSERT INTO Клієнти ([ФІОКліента])" & _
"VALUES ('" & NewData & "');"
DBEngine (0) (0). Execute strTmp, dbFailOnError
Response = acDataErrAdded
End IfSub
В.4 Макрос архівації
Архівація_Телефони_арх () Error GoTo Архівація_Телефони_арх_Err
DoCmd.OpenQuery "архівація_телефони", acViewNormal, acEdit
DoCmd.OpenQuery "удаленіе_телефони", acViewNormal, acEdit
Архівація_Телефони_арх_Exit:
Exit Function
Архівація_Телефони_арх_Err:
MsgBox Error $
Resume Архивация_Телефоны_арх_ExitFunction
Архівація_Кліенти_арх () Error GoTo Архівація_Кліенти_арх_Err
DoCmd.OpenQuery "архівація_кліенти", acViewNormal, acEdit
DoCmd.OpenQuery "удаленіе_кліенти", acViewNormal, acEdit
Архівація_Кліенти_арх_Exit:
Exit Function
Архівація_Кліенти_арх_Err:
MsgBox Error $
Resume Архивация_Клиенты_арх_ExitFunction
Архівація_Продажі_арх...
