---

vba
Private Sub btn_Login_Click()
Dim rs As DAO.Recordset
Dim strSQL As String
Dim role As String
Dim menID As Variant
' 1. Ищем пользователя
strSQL = "SELECT * FROM Пользователи WHERE Логин = '" & Me.txt_Login & "' AND Пароль = '" & Me.txt_Password & "'"
Set rs = CurrentDb.OpenRecordset(strSQL)
If rs.EOF Then
MsgBox "Неверный логин или пароль", vbCritical
Me.txt_Password = Null
Exit Sub
Else
' Авторизация успешна
role = rs!Роль
menID = rs!КодМенеджера
End If
' 2. Сохраняем глобальные переменные (создайте отдельный модуль Module1)
TempVars!CurrentRole = role
TempVars!CurrentMgrID = menID
' 3. Открываем главную форму и закрываем форму входа
DoCmd.Close acForm, "frm_Login"
DoCmd.OpenForm "frm_MainMenu"
End Sub