Dans l'application que je viens de cr=E9er s/s Access, je=20
souhaite contr=F4ler l'acc=E8s =E0 certains formulaires au moyen=20
d'une fen=EAtre "mot de passe".
L'application doit =EAtre ouverte =E0 tous au d=E9part ce qui=20
exclut l'utilisation des fonctions d'administration mais=20
les diff=E9rents utilisateurs ne doivent pas avoir les m=EAmes=20
acc=E8s sur des tables sensibles via les formulaires ex :
formation des prix de vente, dossiers du personnel...
sur l'ouverture des formukaires a verifier, on ouvre un formulaire mot_de_passe en mode dialog docmd.openform "mot_de_passe",windowmode:¬dialog.
Dans ce formulaire 2 boutons : valider, annuler sur annuler, on ferme le formulaire sur valider, on verifie que le motde passe est non null et on met le formulaire invisible dans le fermer
de retour dans le formulaire a verifier, apres le docmd.open... on teste si le formulaire mot de passe est ouvert if isopen("mot_de_passe" then 'on recuperre le mot de passe x=forms!mot_de_passe.password if monpassword=x then ok on continue else msgbox "mot de passe incorrect" docmd.close acform,"mot_de_passe" docmd.close ' le formulaire a verifier endif
else 'on ferme docmd.close endif
voici la fonction isopen
Public Function IsOpen(strName As String, Optional intObjectType As Integer = acForm) As Boolean IsOpen = (SysCmd(acSysCmdGetObjectState, intObjectType, strName) <> 0) End Function
-----Message d'origine----- Dans l'application que je viens de créer s/s Access, je souhaite contrôler l'accès à certains formulaires au moyen
d'une fenêtre "mot de passe". L'application doit être ouverte à tous au départ ce qui exclut l'utilisation des fonctions d'administration mais les différents utilisateurs ne doivent pas avoir les mêmes
accès sur des tables sensibles via les formulaires ex : formation des prix de vente, dossiers du personnel... .
sur l'ouverture des formukaires a verifier, on ouvre un
formulaire mot_de_passe en mode dialog
docmd.openform "mot_de_passe",windowmode:=acdialog.
Dans ce formulaire 2 boutons : valider, annuler
sur annuler, on ferme le formulaire
sur valider, on verifie que le motde passe est non null et
on met le formulaire invisible dans le fermer
de retour dans le formulaire a verifier, apres le
docmd.open...
on teste si le formulaire mot de passe est ouvert
if isopen("mot_de_passe" then
'on recuperre le mot de passe
x=forms!mot_de_passe.password
if monpassword=x then ok on continue
else
msgbox "mot de passe incorrect"
docmd.close acform,"mot_de_passe"
docmd.close ' le formulaire a verifier
endif
else
'on ferme
docmd.close
endif
voici la fonction isopen
Public Function IsOpen(strName As String, Optional
intObjectType As Integer = acForm) As Boolean
IsOpen = (SysCmd(acSysCmdGetObjectState,
intObjectType, strName) <> 0)
End Function
-----Message d'origine-----
Dans l'application que je viens de créer s/s Access, je
souhaite contrôler l'accès à certains formulaires au
moyen
d'une fenêtre "mot de passe".
L'application doit être ouverte à tous au départ ce qui
exclut l'utilisation des fonctions d'administration mais
les différents utilisateurs ne doivent pas avoir les
mêmes
accès sur des tables sensibles via les formulaires ex :
formation des prix de vente, dossiers du personnel...
.
sur l'ouverture des formukaires a verifier, on ouvre un formulaire mot_de_passe en mode dialog docmd.openform "mot_de_passe",windowmode:¬dialog.
Dans ce formulaire 2 boutons : valider, annuler sur annuler, on ferme le formulaire sur valider, on verifie que le motde passe est non null et on met le formulaire invisible dans le fermer
de retour dans le formulaire a verifier, apres le docmd.open... on teste si le formulaire mot de passe est ouvert if isopen("mot_de_passe" then 'on recuperre le mot de passe x=forms!mot_de_passe.password if monpassword=x then ok on continue else msgbox "mot de passe incorrect" docmd.close acform,"mot_de_passe" docmd.close ' le formulaire a verifier endif
else 'on ferme docmd.close endif
voici la fonction isopen
Public Function IsOpen(strName As String, Optional intObjectType As Integer = acForm) As Boolean IsOpen = (SysCmd(acSysCmdGetObjectState, intObjectType, strName) <> 0) End Function
-----Message d'origine----- Dans l'application que je viens de créer s/s Access, je souhaite contrôler l'accès à certains formulaires au moyen
d'une fenêtre "mot de passe". L'application doit être ouverte à tous au départ ce qui exclut l'utilisation des fonctions d'administration mais les différents utilisateurs ne doivent pas avoir les mêmes
accès sur des tables sensibles via les formulaires ex : formation des prix de vente, dossiers du personnel... .
