'Exit the application.conCmdExitApplication
'Run a macro.conCmdRunMacronMacro rs! [Argument]
'Run code.conCmdRunCoden rs! [Argument]
'Open a Data Access PageconCmdOpenPage. OpenDataAccessPage rs! [Argument]
'Any other command is unrecognized.Else «Невідома команда. »Select
'Close the recordset and the database .. Close_Exit: Error Resume Nextrs=Nothingcon=NothingFunction_Err:
'If the action was cancelled by the user for
« some reason, don »t display an error message.
'Instead, resume on the next line. (Err=conErrDoCmdCancelled) ThenNext «Помилка при виконанні команди.», vbCriticalHandleButtonClick_ExitIfFunctionSub Кнопка22_Click () Error GoTo Err_Кнопка22_ClickstDocName As String=ChrW (1042) & ChrW (1089) & ChrW (1077) & ChrW (32) & ChrW (1089) & ChrW (1086) & ChrW (1090) & ChrW (1088) & ChrW (1091) & ChrW (1076) & ChrW (1085) & ChrW (1080) & ChrW (1082) & ChrW (1080). OpenQuery stDocName, acNormal, acEdit_Кнопка22_Click: Sub_Кнопка22_Click: Err. DescriptionExit_Кнопка22_ClickSubSub Кнопка23_Click () Error GoTo Err_Кнопка23_ClickstDocName As String=ChrW (1047) & ChrW (1072) & ChrW (1088) & ChrW (1087) & ChrW (1083) & ChrW (1072) & ChrW (1090) & ChrW (1072) & ChrW (32) & ChrW (1087) & ChrW (1086) & ChrW (32) & ChrW (1075) & ChrW (1086) & ChrW (1076) & ChrW (1091). OpenQuery stDocName, acNormal, acEdit_Кнопка23_Click: Sub_Кнопка23_Click: Err. DescriptionExit_Кнопка23_ClickSubSub Кнопка24_Click () Error GoTo Err_Кнопка24_ClickstDocName As String=ChrW (1047) & ChrW (1072) & ChrW (1088) & ChrW (1087) & ChrW (1083) & ChrW (1072) & ChrW (1090) & ChrW (1072) & ChrW (32) & ChrW (1087) & ChrW (1086) & ChrW (32) & ChrW (1084) & ChrW (1077) & ChrW (1089) & ChrW (1077) & ChrW (1094) & ChrW (1091). OpenQuery stDocName, acNormal, acEdit_Кнопка24_Click: Sub_Кнопка24_Click: Err. DescriptionExit_Кнопка24_ClickSubSub Кнопка25_Click () Error GoTo Err_Кнопка25_ClickstDocName As String=ChrW (1059) & ChrW (32) & ChrW (1082) & ChrW (1072) & ChrW (1078) & ChrW (1076) & ChrW (1086) & ChrW (1075) & ChrW (1086) & ChrW (32) & ChrW (1089) & ChrW (1087) & ChrW (1077) & ChrW (1094) & ChrW (1080) & ChrW (1072) & ChrW (1083) & ChrW (1100) & ChrW (1085) & ChrW (1086) & ChrW (1089) & ChrW (1090) & ChrW (1080) & ChrW (32) & ChrW (1086) & ChrW (1087) & ChrW (1088) & ChrW (1077) & ChrW (1076) & ChrW (1077) & ChrW (1083) & ChrW (1077) & ChrW (1085) & ChrW (1085) & ChrW (1072) & ChrW (1103) & ChrW (32) & ChrW (1079) & ChrW (1072) & ChrW (1088) & ChrW (1087) & ChrW (1083) & ChrW (1072) & ChrW (1090) & ChrW (1072). OpenQuery stDocName, acNormal, acEdit_Кнопка25_Click: Sub_Кнопка25_Click: Err. DescriptionExit_Кнопка25_ClickSubSub Кнопка34_Click () Error GoTo Err_Кнопка34_ClickstDocName As String=ChrW (1047) & ChrW (1072) & ChrW (32) & ChrW (1084) & ChrW (1077) & ChrW (1089) &...