Error 2471 access

Résolu
Bonjour svp jai crée mon formulaire de login je sais pas ou est le problème exactement
ce message d'erreur s'affiche dès que je clique sur connexion ...

5 réponses

  1. Comment as tu résolu ?

    Pour ta nouvelle question, crées un nouveau sujet...

    A+
    0
    1. le voila désolé

      Data type mismatch in criteria expression
      0
      1. 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)...
        0
      2. j'ai pass bien compri ce que vous avez dis ..
        ps: c est ma premiere app sur access ..
        0
      3. @nyokoDans ton formulaire de "connexion", de quel type est la zone de texte pour le "username" ?
        0
      4. 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
        0
    2. Regardez ce nou
      veau message d'erreur ..
      je sais plus quoi faire aidez moi svvvpppp
      0
      1. Bonjour,

        donnes ton code vba si tu veux que l'on jette un oeil (ou deux)...

        A+
        0
        1. 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
          0
        2. @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
          0