créer un formulaire : <login /MotsPasse>

[DJAMAL]

Bonjour tout le monde;


j´ai crée une table MotsDePasse avec 2 champs en tant que clé primaire
(pour empêcher que 2 personnes ayant le même login aient le même mot de passe)
puis un formulaire tout bête composé de 2 champs texte
(txtLogin et txtMdp, le dernier ayant la propriété PasswordChar a true) et un bouton (cmdValider).

le code lié á ce bouton est:

Private Sub cmdValider_Click()

Dim db As DataBase
Dim rs As Recordset
Dim requete As String
requete "SELECT * FROM mdp WHERE login '" & txtLogin & "' AND mdp = '" & txtMdp & "'"
Set db = CurrentDb
Set rs = db.openRecordset (requete,dbOpenDynaset)

If rs.RecordCount <> 1 Then
MsgBox ("Authentification invalide, veuillez recommencer")
Else
'tes instructions si l'authentification s'est bien déroulée
End If

End Sub
​

Quelqu´un veut bien me donner un coup de main pour voir résoudre ce problème et merci bcp:

Le BoutonOK_Click() ne reconnait pas as Database

.

 

[tototiti2008]

Re : créer un formulaire : <login /MotsPasse>

Bonjour Djamal,

Le BoutonOK_Click() ne reconnait pas as Database

bizarre, pas de soucis avec ce type de déclaration chez moi...

à tout hasard, essaye

Dim db As DAO.Database

sinon vérifie si db n'est pas déjà une variable publique, peut-être

 

[Le_Troll_Du_27]

Re : créer un formulaire : <login /MotsPasse>

essai ceci

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Feuil3.Visible = 2
    Feuil1.Select
End Sub

Option Explicit

Private Sub Bt1_Click()
    Dim x$
    If mem > 2 Then
1       MsgBox "Vous ne Connaissez pas le Mot de passe n'insistez pas", vbCritical, "Fin des Essais"
        Application.DisplayAlerts = 0
        ThisWorkbook.Close
    Else
        If T1 <> "123" Then
            mem = mem + 1
            If 3 - mem <= 1 Then x = " Essai" Else x = " Essais"
            If 3 - mem = 0 Then GoTo 1
            MsgBox "Mot de Passe incorrect", vbCritical, "Vous avez encore " & 3 - mem & " " & x
            T1 = ""
            Exit Sub
        End If
        mem = 0
        Unload Me
        Feuil3.Visible = 1
        Feuil3.Select
    End If
End Sub

 

[tototiti2008]

Re : créer un formulaire : <login /MotsPasse>

Bonsoir le Troll,

Merci de ta proposition, mais la question de Djamal concerne Access, pas Excel