Error 2471 access

Private Sub btn_login_Click()

If IsNull(Me.Username) Or Me.Username = "" Then
MsgBox "Entrer un utilisateur", vbOKOnly, "Required Data"
Me.Username.SetFocus
Exit Sub
End If

If IsNull(Me.Password) Or Me.Password = "" Then
MsgBox "entrer un mot de passe", vbOKOnly, "Required Data"
Me.Password.SetFocus
Exit Sub
End If

If Me.Password.Value = DLookup("[Password]", "Users", "[UserID] = " & Me.Username.Value) Then

UserID = Me.Username.Value
DoCmd.Close acForm, "Users", acSaveNo
DoCmd.OpenForm "réclamation"

Else
MsgBox "mot de passe invalide", vbOKOnly, "Invalide"
Me.Password.SetFocus
End If
End Sub

@nyokoRe,

je pense que c'est à la hauteur de
If Me.Password.Value = DLookup("[Password]", "Users", "[UserID] = " & Me.Username.Value) Then

Je mettrai :
If Me.Password.Value = DLookup("[Password]", "Users", "[UserID] = ' " & Me.Username.Value & " ' ") Then

J'y pense,

tu saisies le USER dans le form ? Si oui il est de type texte, et dans ta requête tu le compares avec un id (de type numerique j'imagine)...

j'ai pass bien compri ce que vous avez dis ..
ps: c est ma premiere app sur access ..

@nyokoDans ton formulaire de "connexion", de quel type est la zone de texte pour le "username" ?

c'est bon j'ai résolu le probleme merciiii, sinon j'ai une autre question :
vous voyez la bouton "info client" si je clique dessus je trouve un fichier excel contenant les infos des client et ce que j'ai envie de faire c 'est de sélectionner un client et que son nom s'affiche dans la case à coté
merciiii davance