---

Private Sub Кнопка_Click()
    Dim strLogin As String
    Dim strPassword As String
    
    ' Избавляемся от значений Null и убираем случайные пробелы по краям
    strLogin = Trim(Nz(Me.Login, ""))
    strPassword = Trim(Nz(Me.Password, ""))
    
    ' Проверка на пустые поля перед валидацией
    If strLogin = "" Or strPassword = "" Then
        MsgBox "Пожалуйста, заполните все поля!", vbExclamation, "Внимание"
        Exit Sub
    End If
    
    ' Проверка учетных данных
    If strLogin = "admin" And strPassword = "123" Then
        DoCmd.Close acForm, Me.Name
        DoCmd.OpenForm "Администратор"
        
    ElseIf strLogin = "user" And strPassword = "321" Then
        ' Используем TempVars, чтобы переменная была доступна во всей базе данных
        TempVars("CurrentUserTicket") = 6
        
        DoCmd.Close acForm, Me.Name
        DoCmd.OpenForm "Пользователь"
        
    Else
        MsgBox "Доступ запрещен: неверный логин или пароль", vbCritical, "Ошибка"
    End If
End Sub