Создание формы входа в систему с использованием таблиц в Access 2007

Question

Я создал логин, в котором я поместил поле «Имя пользователя» Мне удалось найти код, который сравнивает значение, введенное в это поле (Имя пользователя) и в результате выдается сообщение

Что я не могу сделать, это подключить значение, введенное в поле «имя пользователя», к существующей таблице

Пояснение:
У меня есть таблица пользователей и разрешений (у каждого пользователя есть разрешение)
Например:
Запись 1: Имя пользователя = 1, разрешение = нормальное
Запись 2: Имя пользователя = 2, разрешение = Специальный

Я хочу написать код или макрос, который будет принимать значение, введенное в поле «имя пользователя» и сравните его с этой таблицей, после чего появится соответствующее сообщение

Например:
Если пользователь напишет 1, сообщение будет: «Добро пожаловать, обычный пользователь»
Если пользователь напишет 2, сообщение будет: «Привет, специальный пользователь»

Важно то, что в коде я не хочу фильтровать по 1 или 2, но с разрешения

Это код, который я использовал в первой части:

Private Sub B15_Click()    
    Username.SetFocus      
    If Username = "1" Then    
        MsgBox "Welcome regular user"    
        DoCmd.Close    
    Else    
        If Username = "2" Then
            MsgBox "Hey there special user"    
        End If    
    End If    
End Sub

Answer 1

Вы можете использовать DLookUp, но вы должны понимать, что ничего из этого не обеспечивает какой-либо формы безопасности.

Private Sub B15_Click()
     Dim sPermission As String

     ''Not needed: Username.SetFocus

     ''If username is text, you will need quotes: "Username='" & Username & "'"
     sPermission = DLookUp("Permission", "UserTable", "Username=" & Username)

     ''You should first check that something is returned in sPermission

     MsgBox "Welcome " & sPermission & " user"

     DoCmd.Close

End Sub