OVH Cloud OVH Cloud

Utilisateur autorisé et modification de formes en VBA

1 réponse
Avatar
Lionel
J'ai lu dans les aides d'hier comment on pouvait faire en=20
VBa pour bloquer l'acc=E8s =E0 certains boutons pour des=20
utilsateurs non-pr=E9sents dans une table "Full access".

Le probl=E8me, c'est que je veux rendre le bouton "Menu1"=20
invisible ou inaccessible mais il faut pour cela que la=20
forme "Hoofdmenu" soit ouverte!

De plus, si la forme est ouverte et "a la main", on ne=20
sait pas modifier l'=E9tat du bouton par programmation.

N'y a-t'il pas moyen de g=E9rer l'acc=E8s sans ouvrir les=20
fen=EAtres?

Et comment l'ouvrir et lui faire "perdre la main" pour=20
pouvoir modifier les boutons en VBa?

Autre question quasi semblable:
En fait, je voudrai, =E0 terme, bloquer l'acc=E8s =E0 toutes les=20
zones de texte de beaucoup de formes si l'utilisateur n'a=20
pas le full access. Je me vois mal ouvrir/fermer toutes=20
les formes pour mettre les zones de texte en Enabled ou=20
autres. :O/

Merci.


Private Sub Command0_Click()

If IsNull(DLookup("ID", "Full access", "[ID] =3D'" & Environ
("username") & "'")) Then
MsgBox "Utilisateur non autoris=E9", vbCritical
DoCmd.OpenForm "Hoofdmenu"=20
'c'est ici que =E7a foire vu que Hoofdmenu "=E0 la main"
Forms!Hoofdmenu!Menu1.Visible =3D False
Else
MsgBox "Utilisateur autoris=E9", vbDefaultButton1, "Full=20
access"
DoCmd.OpenForm "Hoofdmenu"
End If
End Sub

1 réponse

Avatar
EPM
Bonjour
J'utilise une table avec des droits de 1 à 5 : 1 = Acces interdit, 2 = Lecture seule, 3 = Modif possible, 4 = Suppression possible, 5 = tout permis
A chaque fois que j'ouvre un formulaire, il ouvre sait que l'utilisateur peut faire certaine chose ou pas
Si tu as seulement RO et RW (chez moi 2 ou 3), en RO, tu mets ton formulaire a ouvrir en Me.Form.AllowEditsúlse