Discussion :

[nadia123456]

bonjour !

je veux creer un formulaire d'authenfication , qui s'affiche a l'ouvertur de la BD
je veux que ce formulaire se ferme des que le mot de passe est correcte et donne accer a la base de donnees

que dois ajouter a ce code pour attiendre mon but ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Option Explicit
 
Private Sub Commande2_Click()
If [Texte0] = "123456" Then
DoCmd.Close
DoCmd.OpenForm "mot de passe"
Else
[Texte0] = ""
MsgBox ("Retapez votre mot de passe SVP")
End If
End Sub

merci d'avance !

[Milyshyn76]

Coucou tu fais ...

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
'Je verifie que l'utilisateur a bien tapez le mdp 
 
if me.mdp <> " " then
 
'je vérifier ensuite que le mot de passe existe bien
'avant j'ouvre ma requete qui regroupe dans le mm enregistrement le mot de passe et le nom d'utilisateur qui correspondent aux champs ou tu lès a saisi
 
set rst = currentdb.openrecordset("select * from authentification where mdp=" & me.mdp & " and NomUtilisateur='" & me.nomUtilisateur & "'")
 
if rst.bof then ' si le mot de passe n'existe pas alors
   msgbox"Mot de passe ou nom d'utilisateur est incorrecte"
else ' mot de passe existe
   docmd.close
   docmd.openform"monFormulaire
end if

On admet que les mot de passe et les nom d'utilisation se mémorise dans la table suivant

Nom Table : authentification
Champs 1 : ID_authentification, clef primaire, NumAuto
Champs 2 : mdp
Champs 3 : NomUtilisateur

le nom des contrôle ou tu saisie le mdp et l'utilisateur :
me.mdp
me.nomutilisateur

[nadia123456]

merci beaucoup !!! c tres gentil
mais je veux que le formulaire se ferme automatiquement apres que je tape le bon mot de passe

[Milyshyn76]

C'est ici qu'il se ferme :

Code :

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

1
2
3
4
5
6
if rst.bof then ' si le mot de passe n'existe pas 
   msgbox"Mot de passe ou nom d'utilisateur est incorrecte"
else '  si mot de passe existe ( comparaison entre celui de la table et celui saisi)
   docmd.close ' je ferme mon formulaire
   docmd.openform"monFormulaire ' je reouvre un autre formulaire ( facultatif si tu ne veux pas en reouvrir un)
end if

[nadia123456]

le mot de passe c'est pour un seul utilisateur
j'ai pas de table pour utilisateur et mot de passe

[nadia123456]

j'ai utilise la commande docmd.close dans mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Option Explicit
 
Private Sub Commande2_Click()
If [Texte0] = "123456" Then
DoCmd.Close
DoCmd.OpenForm "mot de passe"
Else
[Texte0] = ""
MsgBox ("Retapez votre mot de passe SVP")
End If
End Sub

mais ca marche pas !!