Manipuler des contrôles dont le nom est une variable...
2 réponses
Dan
Bonjour à tous,
Dans un Menu Général, selon le choix dans une liste baptisée Modules, je
voudrais rendre visible tel ou tel sous-formulaire.
Les sous-forms ont pour noms "SFMG "& la valeur de la liste Modules.
Je coince...
----------------------------------------------------------------
Dim chNomContrôle As Control
Function SFMG()
With CodeContextObject
chNomContrôle.Name = "SFMG " & Forms![Menu Général]!Modules.Value
chNomContrôle.Visible = -1
End With
End Function
-----------------------------------------------------------------
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
Raymond [mvp]
Bonjour.
on peut faire plus compliqué si tu veux.
essaie: me("SFMG" & Me!Laliste).visible = True ' ou False ne jamais appeler un contrôle "modules" qui est un mot réservé access. d'autre part, ce n'est pas le sous-formulaire qui doit être visible ou non mais le contrôle qui contient le sous-formulaire, donc fonction donnée sous réserve.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Dan" a écrit dans le message de news:c9k9et$7mk$
Bonjour à tous,
Dans un Menu Général, selon le choix dans une liste baptisée Modules, je voudrais rendre visible tel ou tel sous-formulaire. Les sous-forms ont pour noms "SFMG "& la valeur de la liste Modules.
Je coince... ---------------------------------------------------------------- Dim chNomContrôle As Control Function SFMG()
With CodeContextObject chNomContrôle.Name = "SFMG " & Forms![Menu Général]!Modules.Value chNomContrôle.Visible = -1 End With
End Function -----------------------------------------------------------------
Merci de vos contributions !
DAN
Bonjour.
on peut faire plus compliqué si tu veux.
essaie:
me("SFMG" & Me!Laliste).visible = True ' ou False
ne jamais appeler un contrôle "modules" qui est un mot réservé access.
d'autre part, ce n'est pas le sous-formulaire qui doit être visible ou non
mais le contrôle qui contient le sous-formulaire, donc fonction donnée sous
réserve.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Dan" <service.informatique@ville-riorges.fr.NOSPAM> a écrit dans le message
de news:c9k9et$7mk$1@news-reader1.wanadoo.fr...
Bonjour à tous,
Dans un Menu Général, selon le choix dans une liste baptisée Modules, je
voudrais rendre visible tel ou tel sous-formulaire.
Les sous-forms ont pour noms "SFMG "& la valeur de la liste Modules.
Je coince...
----------------------------------------------------------------
Dim chNomContrôle As Control
Function SFMG()
With CodeContextObject
chNomContrôle.Name = "SFMG " & Forms![Menu Général]!Modules.Value
chNomContrôle.Visible = -1
End With
End Function
-----------------------------------------------------------------
essaie: me("SFMG" & Me!Laliste).visible = True ' ou False ne jamais appeler un contrôle "modules" qui est un mot réservé access. d'autre part, ce n'est pas le sous-formulaire qui doit être visible ou non mais le contrôle qui contient le sous-formulaire, donc fonction donnée sous réserve.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Dan" a écrit dans le message de news:c9k9et$7mk$
Bonjour à tous,
Dans un Menu Général, selon le choix dans une liste baptisée Modules, je voudrais rendre visible tel ou tel sous-formulaire. Les sous-forms ont pour noms "SFMG "& la valeur de la liste Modules.
Je coince... ---------------------------------------------------------------- Dim chNomContrôle As Control Function SFMG()
With CodeContextObject chNomContrôle.Name = "SFMG " & Forms![Menu Général]!Modules.Value chNomContrôle.Visible = -1 End With
End Function -----------------------------------------------------------------