Formulaire de mot de passe access 2003
arthurprince
Messages postés
40
Date d'inscription
Statut
Membre
Dernière intervention
-
clem285 Messages postés 280 Date d'inscription Statut Membre Dernière intervention -
clem285 Messages postés 280 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai créer un petite application en access 2003 et j'aimerais la sécurisé par un mot de passe
j'ai tellemnt cherché mais son résultat
j'ai besoin d'une aide merci a tout le monde.
j'ai créer un petite application en access 2003 et j'aimerais la sécurisé par un mot de passe
j'ai tellemnt cherché mais son résultat
j'ai besoin d'une aide merci a tout le monde.
A voir également:
- Formulaire de mot de passe access 2003
- Whatsapp formulaire opposition - Guide
- Trousseau mot de passe iphone - Guide
- Mot de passe - Guide
- Mot de passe administrateur - Guide
- Mot de passe bios perdu - 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
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