Private Sub Вход_Click()
Dim rst As dao.Recordset

Set rst = CurrentDb.OpenRecordset("Сотрудники", dbOpenSnapshot) 'Сотрудники - указываем с какой таблицей будет работать сценарий
With rst
 If IsNull(Me.Логин_поле.Value) Then 'Условие если поле выпадающего списка на момент клика пустое, то
    MsgBox "Ошибка входа! Выберите пользователя."
    Exit Sub
    Else:
   .FindFirst "[Логин]=" & Me.Логин_поле.Value 'Если поле не пустое, то производится поиск на соответствие с данными таблицы Сотрудники
           If .NoMatch Then ' Если нет совпадений, то
           MsgBox "Ошибка входа! О данном пользователе нет информации в БД."
           Exit Sub
           End If
    
    DoCmd.Close 'Команда на закрытие текущей формы, в данном случае формы входа
       Select Case .Fields("Отдел").Value
       Case "Отдел технической поддержки"
       DoCmd.OpenForm "ИспонителиМакет"
       Case Else
       DoCmd.OpenForm "ПользователиМакет"
       'отбор по полю должность и команда открытие указаной формы для соответсвующей должности
       End Select

 End If
 End With
rst.Close
Set rst = Nothing
End Sub

Private Sub Кнопка7_Click()
Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("Сотрудники", dbOpenDynaset) 'Сотрудники - указываем с какой таблицей будет работать сценарий
 With rst
 If IsNull(Me.Комбинированная2.Value) Then 'Условие если поле выпадающего списка на момент клика пустое, то
 MsgBox "Ошибка входа! Выберите пользователя."
 Exit Sub
 Else:
 .FindFirst ("Код Сотрудника=" & Me.Комбинированная2.Value) 'Если поле не пустое, то производится поск на соответствие с данными таблицы Сотрудники
 If .NoMatch Then ' Если нет совпадений, то
 MsgBox "Ошибка входа! О данном пользователе нет информации в БД."
 Exit Sub
 Else:
 If Me.Поле_для_пароля.Value <> .Fields("Пароль").Value Then 'Условие для сравнения введенных данных в поле для пароля с колонкой пароль в таблице "Сотрудники"
 MsgBox "Пароль неправильный или не соответствует имени пользователя"
 Exit Sub
 End If
 If IsNull(Me.Поле_для_пароля.Value) Then ' Условие для ошибки в случае, если поле для пароля не заполненное
 MsgBox "Вы не ввели пароль!"
 Exit Sub
 End If
 DoCmd.Close 'Команда на закрытие текущей формы, в данном случае формы входа
 Select Case .Fields("Должность").Value
 Case "Директор"
 DoCmd.OpenForm "Кнопочная форма"
 Case "Менеджер по продажам"
 DoCmd.OpenForm "Кнопочная форма"
 Case "Бухгалтер"
 DoCmd.OpenForm "Кнопочная форма" 'отбор по полю должность и команда открытие указаной формы для соответсвующей должности
End Select
 End If
 End If
 End With
rst.Close
Set rst = Nothing
End Sub