Bonjour,
Je souhaite faire une vérification de login dans mon apllication.
J'ai une fonction qui vérifie si login et le mot de passe correspond bien, que les champs ne sont pas vide sinon s'affiche un message d'erreur. En cas de bonne saisie, l'utilisateur est renvoyé vers l'autre page. J'appel cette fonction lorsque je clique sur le bouton valider.
Le problème c'est que sa ne marche pas.
Si quelqu'un peut trouver mon erreur parceque je ne vois pas.
Voici mon code: concernant la procèdure
Voici le code correspondant à l'appel de la fonction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34 Private Sub VerifLogMDP() Dim rsLog As New ADODB.Recordset Dim reqLog As String reqLog = "Select Login, MotPasse, Type from Utilisateur" _ & "where login ='" & txtLogin & "'" And motPasse = "& txtMDP & '" rsLog.Open reqLog, Cnx If txtLogin.txt <> "" Then MsgBox "Erreur" End If If (rsLog.login = textLogin.tex) And (rsLog.motPasse = textMDP.Text) Then If rsLog.Type = "utilisateur" Then Form2.Show Form2.cmdAdmin.Visible = False Else Form2.Show Form2.cmdUtilisateur.Visible = False End If End If End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Private Sub cmdOk_Click() Call VerifLogMDP End Sub
Partager