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.
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