Создание формы входа в Microsoft Access с использованием макросов, без VBA.

Question

Я годами оглядывался по сторонам и не нашел ответа на свою проблему, поэтому надеялся, что кто-нибудь здесь сможет мне помочь.

Я создаю систему с использованием Microsoft Access, где у меня есть таблица участников, содержащая имя пользователя и пароль, а также различные другие поля, такие как дата рождения и т. Д.

Я хочу создать форму, где пользователи могут вводить имя пользователя и пароль. Нажав кнопку в этой форме, эти данные будут проверены на соответствие именам пользователей и паролям в таблице участников. Если данные совпадают, отобразится сообщение о том, что они вошли в систему. Если данные не найдены в таблице, появится сообщение о том, что данные указаны неверно.

Как я могу сделать это без использования VBA?

Я начал с создания формы с именем loginform с двумя текстовыми полями loginusername и loginpassword.

Куда мне идти отсюда?

Answer 1

Решение VBA не должно быть таким сложным.Быстрое и грязное решение:

Dim Result as Variant

Result=Dlookup("Password","tblMembers","UserName='" & nz(loginusername.value,"") & "'")
If nz(Result,"")<>nz([login password].value,"") Then
  MsgBox "Invalid password"
Else
  MsgBox "Password correct"
End If

Answer 2

'set the variables
Dim UN As String
Dim PW As String
Dim user, pass As Boolean
'make sure none of the fields are null, or blank
UN = Text
PW = Text
If IsNull(Username) Then
MsgBox "You must enter a username."
Username.SetFocus
Else
'assign true to user
user = True
End If
If IsNull(Password) Then
MsgBox "You must enter a password."
Password.SetFocus
Else
pass = True
End If
If user = True And pass = True Then
UN = DLookup("[Username]", "LoginTable", "[Username]= '" & Me.Username & "'")
PW = DLookup("[Password]", "LoginTable", "[Password] = '" & Me.Password & "'")
End If
If Me.DummyUser = Me.Username And Me.DummyPass = Me.Password Then
MsgBox "Access granted."
Else
MsgBox "Access denied."
End If