Formulaire d'identification

[romain4489]

Bonjour,

Je suis nouveau et débutant(très débutant!!!).
Je me suis lancé à faire une base de donnée dans le cadre d'un projet scolaire mais la je commence à coincer.
C'est une base de donnée qui référence des postes(UC,Utilisateur,salle,imprimante...)

Et la ce que j'aimerais faire c'est creer un formulaire d'authentification afin d'accéder à mon menu général.
Voici mon script :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Bout_Val_Pass_Click()
Me.Requery
Dim sql  As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM Utilisateur WHERE Login_Utilisateur = '" & Me.Chx_User & "' AND MDP_Utilisateur = '" & Me.Chx_pass & "';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
  DoCmd.OpenForm "Menu général", acNormal, , , , acWindowNormal
  DoCmd.Close acForm, "Authentification"
Else
  MsgBox " Login ou Mot de Passe incorrect ", vbInformation, "Bout_Val_Pass"
  i = i + 1
End If
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Quit
End If
End Sub

Légende :
Bout_Val_Pass ==> Bouton 'connexion' du formulaire
Utilisateur étant ma table ou j'ai référencé les noms,logins,mot de passe...
Login_Utilisateur correspond a mes logins et MDP_Utilisateur correspond à mes mots de passe.
Chx_User et Chx_pass sont mes deux zones de texte de mon formulaire.

Quand je le lance il me met directement que mon mot de passe n'est pas bon.
Sa fait trois jours que je suis dessus donc si quelqu'un pouvait m'aider cela m'arrangerai beaucoup.
Pour info, je ne comprend pas tout ce qui il y a dans ce script car je me suis basé sur un script trouver sur le net qui ressemblait à ce qu je recherchait.

Merci d'avance!!!

[Oliv'83]

Bonjour,

Je dois être aussi nul que toi mais essayes en enlevant le ; à la fin de la ligne 6

Oliv'

[loufab]

Bonjour,

En effet coller du code venant du net sans essayer de comprendre ce qu'il fait n'est pas la meilleure méthode pour débuter l'apprentissage d'un produit.

Tu devrais commencer par le commencement.
Te procurer une bible ACCESS pour comprendre comment fonctionne ACCESS.

En gros la requete que tu utilise ne rammene aucun enregistrement. Il te faut vérifier pourquoi en la mettant dans le QBE une fois celle-ci composée.

Cordialement,

[loufab]

Envoyé par Oliv'83

Bonjour,

Je dois être aussi nul que toi mais essayes en enlevant le ; à la fin de la ligne 6

Oliv'

Tout à fait d'accord avec toi

Plus sérieusement le ; ne change rien au problème.

[Oliv'83]

Envoyé par loufab

Tout à fait d'accord avec toi

Si c'est le fait d'être aussi nul que Romain qui te fait rire, j'assume complètement...

Et venant de toi je respecte ton point de vue.

le Petit Scarabée que je suis doit encore beaucoup travailler...

Oliv'

[marot_r]

Il faufrait que tu places un point d'arret sur la ligne 6 (clique dans la marge à gauche de la ligne). Après mets le curseur de la souris sur Chx_Use et sur Chx_pass. Cela va afficher la valeur courrante de tes 2 variables et tu pourras ainsi vérifier qu'elles on bien les valeurs attendues.

Vu la simplcité de ton SQL je pense qu'elles n'ont pas les valeurs attendues ce qui fait que ta requête ne retourne rien.

Une solution un peu plus simple consiterai à utiliser DCount() qui t'évite d'avoir à définir une requête mais cela ne change probablement rien à ton problème.

Exemple de code :

Code :

1
2
3
4
5
if Dcount("NomTaClefUtilisateur","Utilisateur","Login_Utilisateur =""" & Me.Chx_User & "' AND MDP_Utilisateur = '" & Me.Chx_pass & """")<>0 then
    'Ouvrir l'appli
  else
    'Erreur d'identification 
end if

A+

[loufab]

Envoyé par Oliv'83

Si c'est le fait d'être aussi nul que Romain qui te fait rire, j'assume complètement...

Et venant de toi je respecte ton point de vue.

le Petit Scarabée que je suis doit encore beaucoup travailler...

Oliv'

non je ne moque pas.

Le ; est le caracatère de terminaison facultatif d'une requête SQL. Il peut devenir obligatoire avec certains moteurs de base de données.

Cordialement,