Formulaire de mot de passe access 2003
Fermé
arthurprince
Messages postés
40
Date d'inscription
samedi 29 septembre 2007
Statut
Membre
Dernière intervention
22 avril 2012
-
20 janv. 2009 à 14:30
clem285 Messages postés 280 Date d'inscription samedi 29 septembre 2007 Statut Membre Dernière intervention 22 octobre 2021 - 20 janv. 2009 à 15:44
clem285 Messages postés 280 Date d'inscription samedi 29 septembre 2007 Statut Membre Dernière intervention 22 octobre 2021 - 20 janv. 2009 à 15:44
A voir également:
- Formulaire de mot de passe access 2003
- Voir mot de passe wifi android - Guide
- Mot de passe - Guide
- Trousseau mot de passe iphone - Guide
- Mot de passe administrateur - Guide
- Identifiant et mot de passe - Guide
3 réponses
salut,
c'est peu etre pas tres optimisé ce que je dis mais tu peu toujours essayé
au chargement de ton formulaire
tu lance un "inputbox" demandant le mot de passe
mot de passe que tu inscrit dans une variable
puis tu fait une comparaison entre les deux,
si il sont egaux tu laisse le chargement s'effectuer sinon tu quitte l'application
c'est peu etre pas tres optimisé ce que je dis mais tu peu toujours essayé
au chargement de ton formulaire
tu lance un "inputbox" demandant le mot de passe
mot de passe que tu inscrit dans une variable
puis tu fait une comparaison entre les deux,
si il sont egaux tu laisse le chargement s'effectuer sinon tu quitte l'application
Tu crées une table avec les champs utilisateurs et MotDePasse (type password).
Tu crées un formulaire qui demande un mot de passe.
Dans l'event "afterupdate" de ta textbox tu places du VBA
On error goto Erreur
dim db as database
dim rst as recordset
set db = currentdb
set rst = db.openrecordset ("MaTable")
with rst
if not .eof then
.movefirst
do until .eof
if rst!utilisateurs = environ("Username") then
if rst!MotDePasse = me!txtbox.value then
docmd.openform("Formulaire")
else
msgbox "Mot de passe non valide"
docmd.quit
endif
endif
.movenext
loop
if .eof then
msgbox "Pas d'utilisateurconnu!!!
docmd.quit
endif
endif
end with
PasErreur:
On error resume next
set rst = nothing
set db = nothing
Erreur:
Msgbox err.number & " : " & err.description
resume Paserreur
A tester et modifier si nécessaire
Tu crées un formulaire qui demande un mot de passe.
Dans l'event "afterupdate" de ta textbox tu places du VBA
On error goto Erreur
dim db as database
dim rst as recordset
set db = currentdb
set rst = db.openrecordset ("MaTable")
with rst
if not .eof then
.movefirst
do until .eof
if rst!utilisateurs = environ("Username") then
if rst!MotDePasse = me!txtbox.value then
docmd.openform("Formulaire")
else
msgbox "Mot de passe non valide"
docmd.quit
endif
endif
.movenext
loop
if .eof then
msgbox "Pas d'utilisateurconnu!!!
docmd.quit
endif
endif
end with
PasErreur:
On error resume next
set rst = nothing
set db = nothing
Erreur:
Msgbox err.number & " : " & err.description
resume Paserreur
A tester et modifier si nécessaire
clem285
Messages postés
280
Date d'inscription
samedi 29 septembre 2007
Statut
Membre
Dernière intervention
22 octobre 2021
83
20 janv. 2009 à 15:44
20 janv. 2009 à 15:44
il me semble qu'il y a un outil intégrer dans access 2003
mais étant passer sous 2007 je n'ai pas retrouvé
mais voici quelques pistes qui j'espère d'aideron :
http://office.microsoft.com/fr-fr/access/HA101662271036.aspx
http://www.info-3000.com/access/securite/index.php#PresentationUtilisateurGroupe
http://www.ybet.be/access/15-securite.htm
mais étant passer sous 2007 je n'ai pas retrouvé
mais voici quelques pistes qui j'espère d'aideron :
http://office.microsoft.com/fr-fr/access/HA101662271036.aspx
http://www.info-3000.com/access/securite/index.php#PresentationUtilisateurGroupe
http://www.ybet.be/access/15-securite.htm