Количество операторов

Form_Главная _форма
 BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Form_Главная_форма"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Compare Database
 
Private Sub Кнопка9_Click()
reply = MsgBox("Вы действительно хотите покинуть программу", vbOKCancel, "Подтверждение")
If reply = vbCancel Then End
On Error GoTo Err_Кнопка15_Click
    DoCmd.Quit
Exit_Кнопка15_Click:
    Exit Sub
 
Err_Кнопка15_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка15_Click
        
End Sub
Private Sub Кнопка10_Click()
On Error GoTo Err_Кнопка10_Click
    DoCmd.Quit
Exit_Кнопка10_Click:
    Exit Sub
 
Err_Кнопка10_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка10_Click
End Sub
 
Private Sub Кнопка10_Click()
On Error GoTo Err_Кнопка10_Click
    Dim stDialStr As String
    Dim PrevCtl As Control
    Const ERR_OBJNOTEXIST = 2467
    Const ERR_OBJNOTSET = 91
    Const ERR_CANTMOVE = 2483
    Set PrevCtl = Screen.PreviousControl
       If TypeOf PrevCtl Is TextBox Then
      stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    ElseIf TypeOf PrevCtl Is ListBox Then
      stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    ElseIf TypeOf PrevCtl Is ComboBox Then
      stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    Else
      stDialStr = ""
    End If
       Application.Run "utility.wlib_AutoDial", stDialStr
Exit_Кнопка10_Click:
    Exit Sub
 
Private Sub Form_Timer()
Надпись59.Caption = Time
End Sub
 
Private Sub Выключатель91_GotFocus()
On Error GoTo Err_Выключатель91_GotFocus
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = ChrW(1053) & ChrW(1072) & ChrW(1083) & ChrW(1080) & ChrW(1095) & ChrW(1080) & ChrW(1077) & ChrW(32) & ChrW(1085) & ChrW(1072) & ChrW(32) & ChrW(1089) & ChrW(1082) & ChrW(1083) & ChrW(1072) & ChrW(1076) & ChrW(1077)
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Выключатель91_GotFocus:
    Exit Sub
 
Err_Выключатель91_GotFocus:
    MsgBox Err.Description
    Resume Exit_Выключатель91_GotFocus
End Sub
 
Private Sub Кнопка31_Click()
reply = MsgBox("Вы действительно хотите покинуть программу", vbOKCancel, "Подтверждение")
If reply = vbCancel Then End
 
On Error GoTo Err_Кнопка15_Click
    DoCmd.Quit
Exit_Кнопка15_Click:
    Exit Sub
 
Err_Кнопка15_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка15_Click
End Sub
 
Private Sub Кнопка9_Click()
reply = MsgBox("Вы действительно хотите покинуть программу", vbOKCancel, "Подтверждение")
If reply = vbCancel Then End
On Error GoTo Err_Кнопка15_Click
    DoCmd.Quit
Exit_Кнопка15_Click:
    Exit Sub
 
Err_Кнопка15_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка15_Click
    End Sub