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