Je me permets de reposter ma question, c'est assez urgent.
Peut-=EAtre n'est-elle pas assez compl=E8te?
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 le=20
formulaire "Hoofdmenu" soit ouverte!
De plus, si le formulaire est ouverte et "a la main", on=20
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 formulaires si l'utilisateur=20
n'a pas le full access. Je me vois mal ouvrir/fermer tous=20
les formulaires pour mettre les zones de texte en Enabled=20
ou 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
.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour Lionel
Je te propose de définir une variable Booléenne dans un module global Public VerifUser as Boolean
Dans ton formulaire où tu saisis/récupères le login tu mets ta fonction de recherche Dlookup... If IsNull(DLookUp(...) then VerifUser = False Else VerifUser =True End If
Sur l'ouverture de ton formulaire Hoofdmenu Private Sub Form_Open(Cancel As Integer) If Not VerifUser Then MsgBox "A pas droit" ... End If End Sub
A+ Eric
"Lionel" écrivait news:bf6401c4381c $e1fa1800$:
Je me permets de reposter ma question, c'est assez urgent. Peut-être n'est-elle pas assez complète?
J'ai lu dans les aides d'hier comment on pouvait faire en VBa pour bloquer l'accès à certains boutons pour des utilsateurs non-présents dans une table "Full access".
Le problème, c'est que je veux rendre le bouton "Menu1" invisible ou inaccessible mais il faut pour cela que le formulaire "Hoofdmenu" soit ouverte!
De plus, si le formulaire est ouverte et "a la main", on ne sait pas modifier l'état du bouton par programmation.
N'y a-t'il pas moyen de gérer l'accès sans ouvrir les fenêtres?
Et comment l'ouvrir et lui faire "perdre la main" pour pouvoir modifier les boutons en VBa?
Autre question quasi semblable: En fait, je voudrai, à terme, bloquer l'accès à toutes les zones de texte de beaucoup de formulaires si l'utilisateur n'a pas le full access. Je me vois mal ouvrir/fermer tous les formulaires pour mettre les zones de texte en Enabled ou autres. :O/
Merci.
Private Sub Command0_Click()
If IsNull(DLookup("ID", "Full access", "[ID] ='" & Environ ("username") & "'")) Then MsgBox "Utilisateur non autorisé", vbCritical DoCmd.OpenForm "Hoofdmenu" 'c'est ici que ça foire vu que Hoofdmenu "à la main" Forms!Hoofdmenu!Menu1.Visible = False Else MsgBox "Utilisateur autorisé", vbDefaultButton1, "Full access" DoCmd.OpenForm "Hoofdmenu" End If End Sub .
Bonjour Lionel
Je te propose de définir une variable Booléenne dans un module global
Public VerifUser as Boolean
Dans ton formulaire où tu saisis/récupères le login
tu mets ta fonction de recherche Dlookup...
If IsNull(DLookUp(...) then
VerifUser = False
Else
VerifUser =True
End If
Sur l'ouverture de ton formulaire Hoofdmenu
Private Sub Form_Open(Cancel As Integer)
If Not VerifUser Then
MsgBox "A pas droit"
...
End If
End Sub
Je me permets de reposter ma question, c'est assez urgent.
Peut-être n'est-elle pas assez complète?
J'ai lu dans les aides d'hier comment on pouvait faire en
VBa pour bloquer l'accès à certains boutons pour des
utilsateurs non-présents dans une table "Full access".
Le problème, c'est que je veux rendre le bouton "Menu1"
invisible ou inaccessible mais il faut pour cela que le
formulaire "Hoofdmenu" soit ouverte!
De plus, si le formulaire est ouverte et "a la main", on
ne
sait pas modifier l'état du bouton par programmation.
N'y a-t'il pas moyen de gérer l'accès sans ouvrir les
fenêtres?
Et comment l'ouvrir et lui faire "perdre la main" pour
pouvoir modifier les boutons en VBa?
Autre question quasi semblable:
En fait, je voudrai, à terme, bloquer l'accès à toutes les
zones de texte de beaucoup de formulaires si l'utilisateur
n'a pas le full access. Je me vois mal ouvrir/fermer tous
les formulaires pour mettre les zones de texte en Enabled
ou autres. :O/
Merci.
Private Sub Command0_Click()
If IsNull(DLookup("ID", "Full access", "[ID] ='" & Environ
("username") & "'")) Then
MsgBox "Utilisateur non autorisé", vbCritical
DoCmd.OpenForm "Hoofdmenu"
'c'est ici que ça foire vu que Hoofdmenu "à la main"
Forms!Hoofdmenu!Menu1.Visible = False
Else
MsgBox "Utilisateur autorisé", vbDefaultButton1, "Full
access"
DoCmd.OpenForm "Hoofdmenu"
End If
End Sub
.
Je te propose de définir une variable Booléenne dans un module global Public VerifUser as Boolean
Dans ton formulaire où tu saisis/récupères le login tu mets ta fonction de recherche Dlookup... If IsNull(DLookUp(...) then VerifUser = False Else VerifUser =True End If
Sur l'ouverture de ton formulaire Hoofdmenu Private Sub Form_Open(Cancel As Integer) If Not VerifUser Then MsgBox "A pas droit" ... End If End Sub
A+ Eric
"Lionel" écrivait news:bf6401c4381c $e1fa1800$:
Je me permets de reposter ma question, c'est assez urgent. Peut-être n'est-elle pas assez complète?
J'ai lu dans les aides d'hier comment on pouvait faire en VBa pour bloquer l'accès à certains boutons pour des utilsateurs non-présents dans une table "Full access".
Le problème, c'est que je veux rendre le bouton "Menu1" invisible ou inaccessible mais il faut pour cela que le formulaire "Hoofdmenu" soit ouverte!
De plus, si le formulaire est ouverte et "a la main", on ne sait pas modifier l'état du bouton par programmation.
N'y a-t'il pas moyen de gérer l'accès sans ouvrir les fenêtres?
Et comment l'ouvrir et lui faire "perdre la main" pour pouvoir modifier les boutons en VBa?
Autre question quasi semblable: En fait, je voudrai, à terme, bloquer l'accès à toutes les zones de texte de beaucoup de formulaires si l'utilisateur n'a pas le full access. Je me vois mal ouvrir/fermer tous les formulaires pour mettre les zones de texte en Enabled ou autres. :O/
Merci.
Private Sub Command0_Click()
If IsNull(DLookup("ID", "Full access", "[ID] ='" & Environ ("username") & "'")) Then MsgBox "Utilisateur non autorisé", vbCritical DoCmd.OpenForm "Hoofdmenu" 'c'est ici que ça foire vu que Hoofdmenu "à la main" Forms!Hoofdmenu!Menu1.Visible = False Else MsgBox "Utilisateur autorisé", vbDefaultButton1, "Full access" DoCmd.OpenForm "Hoofdmenu" End If End Sub .
