Login Form

[Slaxer13]

Hi ppl. I am having trouble with a login form. When i click the btnConfirmar, after having both Login and Password it gives me an error 2471: The expression you entered as a query parameter produced this error: the error is whatever value is in the cboLogin.
Anyone has an ideia of what the solution might be?
As an attachment there is a pic of the form.
Any help would be great, Slaxer13.

Public UtzID As Long
 
Private Sub btnConfirmar_Click()
 
    'Confere se foi escolhido um Login
 
    If IsNull(Me.cboLogin) Or Me.cboLogin = "" Then
      MsgBox "Tem de escolher um LOGIN", vbOKOnly, "Campo Obrigatório"
        Me.cboLogin.SetFocus
        Exit Sub
    End If
 
    'Confere se a password foi introduzida
 
    If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
      MsgBox "Tem de inserir PASSWORD", vbOKOnly, "Campo Obrigatório"
        Me.txtPassword.SetFocus
        Exit Sub
    End If
 
    'Confere se a password é igual ao do login na tblUtilizador
 
    If Me.txtPassword.Value = DLookup("Password", "tblUtilizador", "[Cod_Utilizador]=" & Me.cboLogin.Value) Then
 
        UtzID = Me.cboLogin.Value
 
        'Fecha o frmLogin e abre o programa
 
        DoCmd.Close acForm, "frmLogin", acSaveNo
        DoCmd.OpenForm "frmUtente"
 
    Else
      MsgBox "Password Errada! Tente Outra Vez", vbOKOnly, _
            "Password Errada"
        Me.txtPassword.SetFocus
    End If
 
    'Se o utilizador escrever a password mal três vezes a base de dados é fechada
 
    intLogonAttempts = intLogonAttempts + 1
    If intLogonAttempts > 3 Then
      MsgBox "Não tem acesso á basa de dados. Contacte o Administrador.", _
               vbCritical, "Acesso Restrito!"
        Application.Quit
    End If
 
End Sub
 
Private Sub cboLogin_AfterUpdate()
 
    Me.txtPassword.SetFocus
 
End Sub

[twinnyfo]

Slaxer,

upon which line of code is the error generating itself?

[jimatqsi]

You probably misspelled the field name used in the criteria for the Dlookup. Check the spelling of this field:[Cod_Utilizador]

Jim

[twinnyfo]

Is the value of your cboLogin a text value or integer?

If it is a text value then, line 23 should be:

If Me.txtPassword.Value = DLookup("Password", "tblUtilizador", _
    "[Cod_Utilizador] = '" & Me.cboLogin & "'") Then

I hope this helps!

[Slaxer13]

Thanks for the reply. I found the problem.

 If Me.txtPassword.Value = DLookup("[Password]", "tblUtilizador", "[Login]='" & Me.cboLogin.Value & "'") Then

The code should be this way (the changes are bold and italic). My bad. But thanks anyway ;)
Cheers, Slaxer13

[twinnyfo]

I see brilliant minds think alike! Glad we could help!