Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access actions dans formulaire

actions dans formulaire

6 réponses
Avatar
francois
Bonjour,

J'ai un formulaire comportant 5 boutons qui ouvrent d'autres formulaires.
Existe t'il une soution pour que lorsqu'un utilisateur ouvre ce formulaire,
certains boutons soient actifs et certains non en fonction du groupe
d'appartenance de l'utilisateur connecté?

Merci
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
Raymond [mvp]
Bonsoir.

selon le groupe d'appartenance de l'utilisateur tu ouvres ton formulaire et
tu mets oui ou non dans la propriété enabled de certains boutons.
pour récupérer le groupe , voir la page :
http://access.jessy.free.fr/htm/Admin/GroupUser.htm

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"francois" a écrit dans le message de news:
ct63nd$4lf$
Bonjour,

J'ai un formulaire comportant 5 boutons qui ouvrent d'autres formulaires.
Existe t'il une soution pour que lorsqu'un utilisateur ouvre ce
formulaire, certains boutons soient actifs et certains non en fonction du
groupe d'appartenance de l'utilisateur connecté?

Merci




Avatar
francois
Je sèche complètement. Où dois-je mettre la fonction décrite dans le lien?

Merci

"Raymond [mvp]" a écrit dans le message de
news: %23$Brk%
Bonsoir.

selon le groupe d'appartenance de l'utilisateur tu ouvres ton formulaire
et tu mets oui ou non dans la propriété enabled de certains boutons.
pour récupérer le groupe , voir la page :
http://access.jessy.free.fr/htm/Admin/GroupUser.htm

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"francois" a écrit dans le message de
news: ct63nd$4lf$
Bonjour,

J'ai un formulaire comportant 5 boutons qui ouvrent d'autres formulaires.
Existe t'il une soution pour que lorsqu'un utilisateur ouvre ce
formulaire, certains boutons soient actifs et certains non en fonction du
groupe d'appartenance de l'utilisateur connecté?

Merci








Avatar
Raymond [mvp]
cette fonction est à mettre dans l'événement Form_load de ton formulaire. tu
changeras évidemment l'impression du message par la validation ou non des
contrôles.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"francois" a écrit dans le message de news:
ct8oqv$far$
Je sèche complètement. Où dois-je mettre la fonction décrite dans le lien?

Merci



Avatar
francois
Tu n'as pas d'exemple car je dois être très nul !!!

"Raymond [mvp]" a écrit dans le message de
news:
cette fonction est à mettre dans l'événement Form_load de ton formulaire.
tu changeras évidemment l'impression du message par la validation ou non
des contrôles.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"francois" a écrit dans le message de
news: ct8oqv$far$
Je sèche complètement. Où dois-je mettre la fonction décrite dans le
lien?

Merci







Avatar
Raymond [mvp]
par exemple:

Private Sub Form_Load()
Dim usr As User
Dim strResult As String
Dim wrkDefault As Workspace
Dim grpMember As Group
Set wrkDefault = DBEngine.Workspaces(0)
With wrkDefault
Set usr = .Users(CurrentUser)
For Each grpMember In usr.Groups
If grpMember.Name = "Admins" Then
Me.bouton1.Enabled = True
Me.bouton2.Enabled = True
Else
Me.bouton1.Enabled = False
Me.bouton2.Enabled = False
End If
Next
End With
End Sub


--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"francois" a écrit dans le message de news:
ct8ptv$fu5$
Tu n'as pas d'exemple car je dois être très nul !!!



Avatar
francois
Impeccable,
merci Raymond

"Raymond [mvp]" a écrit dans le message de
news:
par exemple:

Private Sub Form_Load()
Dim usr As User
Dim strResult As String
Dim wrkDefault As Workspace
Dim grpMember As Group
Set wrkDefault = DBEngine.Workspaces(0)
With wrkDefault
Set usr = .Users(CurrentUser)
For Each grpMember In usr.Groups
If grpMember.Name = "Admins" Then
Me.bouton1.Enabled = True
Me.bouton2.Enabled = True
Else
Me.bouton1.Enabled = False
Me.bouton2.Enabled = False
End If
Next
End With
End Sub


--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"francois" a écrit dans le message de
news: ct8ptv$fu5$
Tu n'as pas d'exemple car je dois être très nul !!!