Discussion :

[Pioul]

Bonjour,

Je debute avec Access et je voudrai à partir de donnée entrée dans un formulaire verifier que le Nom(Login) et le Mot de Passe (pwd) correspondent à ceux de la table Client de la base de donnée... j'ai fais ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub AccueilGestionnaire_Click()
Dim MotDePasse As String, Nom As String
 
MotDePasse = Me!MotDePasse
Nom = Me!Login
Dim res As Recordset
Set db = CurrentDb()
Set res = db.OpenRecordset("select pwd from Client where Client.Nom =""&Nom&""")
 
If res!champ = Nom Then
DoCmd.Close
DoCmd.OpenForm "rootMenu"
 
End If

Et en fait ca m'affiche ce message d'erreur :
"Element non trouvé dans cette collection"
alors que les données entrées dans le formulaire existe dans la Table client.


Si quelqu'un veut bien m'apporter son aide !!

Merci d'avance

[Invité]

Bonjour

Je penses que l'erreur vient de cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If res!champ = Nom

Si c'est le cas, cela signifie que le nom Champ n'est pas reconnu comme nom du champ.

Tu as des exemples dans la FAQ : http://access.developpez.com/faq/?page=TAAdmin#login

De plus, tu veux tester un nom, alors que tu récupères le champ pwd dans ta table.

Starec

[Pioul]

Merci

En effet, c'est cette ligne qui est en jaune quand je click sur dèbogage de plus, j'ai fais une erreur, Il faut lire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If res!champ = MotDePasse

à la place de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If res!champ = Nom

Mais lorsque je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set res = db.OpenRecordset("select pwd from Client where Client.Nom =""&Nom&""")
If res!champ = MotDePasse

res est égal au mot de passe (pwd) du client entré dans la base et je vérifie si il est égal à celui entré dans le formulaire (MotDePasse) non ?

[Invité]

Re

Quand j'ai à faire un truc sur les mots de passes, je n'utilise pas les recordsets, car en général ces tables ne sont pas grosses.

J'utilise la fonction de domaine DLookup, pour faire des tests de mots de passes.

Ainsi par exemple si dans ta table Client tu as le champ MotDePasse et Nom, tu peux faire une fonction de ce genre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Function TestPwd(strMotDePasse As String, strNom As String) As Boolean
    If IsNull(DLookup("strPwd", "tbl_Client", "strPwd='" & strMotDePasse & "' AND strClient='" & strNom & "'")) Then
        TestPwd = False
    Else
        TestPwd = True
    End If
End Function

Elle renvoie Vrai (true) si le mot de passe est bon, et Faux (False), si celui-ci est vrai.

Plus d'infos sur les fonctions de domaines ici.

Si tu veux rester sur les recordset et DAO, je t'invite à relire cet article : http://warin.developpez.com/access/dao/

Starec

[le_dilem]

je pense qu'il reconnait pas le champ Nom dans ta requete essaye ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
res = db.OpenRecordset("select pwd from Client where" & _
 "Client.Nom =' " & Nom & " '"")

[Pioul]

J'ai utilisé la fonction de Starec et ça marche, merci pour vos réponses!
(dsl pour le retard j'étais parti en vacances)