Подтвердить пароль с его именем пользователя в Access

Question

У меня есть форма входа в Access, которая позволит пользователю войти в систему, если они вводят любое имя пользователя и любой пароль из таблицы входа в систему. Он не проверяет, совпадают ли имя пользователя и пароль друг с другом. Как исправить эту проблему?

Вот мой код:

Private Sub Command4_Click() 

If IsNull(Me.txtLog) Then 
MsgBox "Please enter username", vbInformation, "Username required" 
Me.txtLog.SetFocus 

ElseIf IsNull(Me.txtPass) Then 
MsgBox "Please enter password", vbInformation, "Password required" 
Me.txtPass.SetFocus 

Else 
'checking Password And UserName 
If (IsNull(DLookup("Username", "Login", "Username = '" & Me.txtLog.Value & "'"))) Or _ 
(IsNull(DLookup("Password", "Login", "Password = '" & Me.txtPass.Value & "'"))) Then 
MsgBox "Incorrect Username or Password" 

Else 
    DoCmd.OpenForm "Main Menu" 

End If 
End If 
End Sub 

Answer 1

Проверьте, соответствует ли какой-либо строке как имя пользователя и пароль.

Dim strCriteria As String 
strCriteria = "Username = '" & Me.txtLog.Value & _ 
    "' AND [Password] = '" & Me.txtPass.Value & "'" 
Debug.Print strCriteria '<- view this in Immediate window; Ctrl+g will take you there 
If DCount("*", "[Login]", strCriteria) = 0 Then 
    MsgBox "Incorrect Username or Password" 
Else 
    DoCmd.OpenForm "Main Menu" 
End If