使用宏在 Microsoft Access 中创建登录表单，不使用 VBA。

Question

I've looked around for ages and I haven't found an answer to my problem so I was hoping someone here could help me.

I am creating a system using Microsoft Access where I have a members table containing a username and password and various other fields such as date of birth, etc.

I want to create a form where users can enter a username and password. By clicking a button on this form, these details will then be checked against the usernames and passwords in the members table. If the details match, a message will be displayed saying they have logged in. If the details are not found in the table, a message saying the details are incorrect will show.

How can I do this without using VBA?

I have started by creating a form called loginform with two text boxes loginusername and loginpassword .

Where should I go from here?

Answer 1

The VBA solution shouldn't be that complicated. A quick and dirty solution:

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