Discussion :

[Sheva7]

Bonjour,
afin de sécuriser un minimum mon application j'aurais voulu créer un formulaire simple avec deux zones de texte (login, pass) et un bouton de validation. j'ai trouver pas mal d'infos la dessus nottament ce lien:
http://access.developpez.com/faq/?page=TAAdmin#login
Mais je ne comprend pas les tables qu'il a utilisé et comment l'adapaté à mon programme.

Personnellement j'ai créer une table où l'on retrouve le login, le nom et le pass de quelques utilisateurs:
Tbl_Utilisateurs : nom, login, pass (texte)
j'aimerais donc qu'au moment de la validation par un bouton de commande, les deux zones de texte soient comparées à cette table. que si les champs sont corrects alors j'ouvre mon formulaire sinon j'affiche mon de passe ou login incorrect et nouvelle demande de saisie.

[maxdwarf]

sur le formulaire joint j'ai utilisé ce code...
j'utilise une table Sécurité où les champs sont Password et Utilisateur.

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
Private Sub bouton_ok_Click()
    Dim Ssql As String
    Dim rst As DAO.Recordset
 
    Ssql = "SELECT Password FROM Sécurité WHERE Utilisateur Like """ & Me.User & """"
    Set rst = CurrentDb.OpenRecordset(Ssql)
    If (rst.BOF And rst.EOF) = False Then
         If rst![Password] = Me.Pass Then
                 MsgBox "Password OK"
                 'action si validation
         Else
                MsgBox "Password invalide"
         End If
    Else
        MsgBox "Utilisateur invalide"
    End If
    rst.Close
End Sub

avec la réference microsoft DAO

[Sheva7]

sur le bouton ok tu as mis dans l'évenement uniquement ce code? a quel moment tu choisi de lancer un autre formulaire?

j'ai essayer de rentrer ce code sur l'evenement de mon bouton et j'ai tout de suite une erreur de compilation: membre de méthode ou données introuvable avec Me.User surligner en gris et Private Sub VALIDER_Click() surligné en jaune!?

[Sheva7]

j'ai une table identifiants avec les champs utilisateurs et passwords et j'ai toujours l'erreur suivante:
quel est le problème??