Discussion :

[ROUSSIGNE]

Bonjour

J'ai crée une table "auth" avec 2 champs: PASS et LOGIN

Je voudrai créer un formulaire d'identification avec un champs login & password et un bouton qui permettera l'ouverture du formulaire si le login et le password sont correct , j'ai ce code mais cela ne fonctionne pas? merci d'avance pour votre aide

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
 
 
[Private Sub Commande10_Click()
 
Dim rs As Recordset
Dim PASSWORD As String
 
Set rs = auth.OpenRecordset("select pass from auth where login='" & Me.login & "'")
Whith rs
If Not .EOF Then
PASSWORD = !pass
If PASSWORD = Me.PASSWORD Then
DoCmd.OpenForm ("ESSAI")
Else
MsgBox ("PASSWORD INCORRECT")
Exit Sub
End If
Else
MsgBox ("LOGIN INCORRECT")
Exit Sub
End If
End With
rs.Close
db.Close
 
 
End Sub

[madefemere]

Bonjour,

Essaies plutôt :

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
Private Sub Commande10_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim PASSWORD As String
Set db = CurrentDb
Set rs = db.OpenRecordset("select pass from auth where login='" & Me.login & "'")
With rs
    If Not .EOF Then
        PASSWORD = !pass
        If PASSWORD = Me.PASSWORD Then
            DoCmd.OpenForm ("ESSAI")
        Else
            MsgBox ("PASSWORD INCORRECT")
            Exit Sub
        End If
    Else
        MsgBox ("LOGIN INCORRECT")
    Exit Sub
    End If
End With
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub

De petits détails où il faudrait faire attention dans ton code

Cordialement

[ROUSSIGNE]

Merci de votre aide
je débute en VBA , j'ai essayé votre code et j'ai un message d'erreur "projet ou une bibliothèque est introuvable" et le curseur se place sur

Code :

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

db As DAO.Database

cordialement

[marsouin_89]

Bonjour,

Il te te faut ajouter la référence Microsoft DAo 3.6 Object Library.

Pour ajouter une référence :
A partir d'un module, sélectionne Outils/Référence et sélectionne la référence adéquate.

[Robert1957]

Bonjour ROUSSIGNE, marsouin_89,

Pour un mot de passe si on veut une comparaison qui tiendra compte des majuscule etc...
0 étant le résultat si tout est identique.

Code :

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

1
2
3
If StrComp(PASSWORD, Me.PASSWORD, vbBinaryCompare) = 0 Then
    DoCmd.OpenForm ("ESSAI")
....

Bonne journée

[ROUSSIGNE]

merci à tous ça fonctionne bien

[madefemere]

Merci à tous,

On n'attend plus que le de la part de ROUSSIGNE.