x controles et x fois le même code dans un form, sans le taper x fois ?
3 réponses
Stéphane Brille
Bonjour,
dans l'évenement "sur activation" d'un formulaire, j'ai une soixantaine de
contrôles dont la visibilité
dépend de l'état de cases à cocher sur un autre formulaire. (l'infobulle
dépend également de la valeur d'autre contrôles)
if forms.FormPara.CC1 = -1 then
Me.MA1.Visible = true
else
Me.MA1.Visible = false
End if
Me.MA1.ControlTipText = forms.[FormPara].[Param1]
if forms.FormPara.CC2 = -1 then
Me.MA2.Visible = true
else
Me.MA2.Visible = false
End if
Me.MA2.ControlTipText = forms.[FormPara].[Param2]
etc...
Comment faire référence successivement à chacun des controles pour ne taper
le code qu'une fois (au lieu de 60) ?
Merci de vos lumières...
--
Cordialement,
Stéphane Brille
www.microbloc.com
(enlevez NoSpam. pour répondre)
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
Jeff
dim i as integer
for i = 1 to 60 if forms.FormPara.controls("CC" & i) = -1 then me.controls("MA" & i).visible = true else me.controls("MA" & i).visible = false end if
Me.controls("MA" & i).ControlTipText forms.[FormPara].controls("Param" & i) next i
enfin un truc de ce genre
"Stéphane Brille" a écrit dans le message de news:bp2cos$mc1$
Bonjour,
dans l'évenement "sur activation" d'un formulaire, j'ai une soixantaine de contrôles dont la visibilité dépend de l'état de cases à cocher sur un autre formulaire. (l'infobulle dépend également de la valeur d'autre contrôles)
if forms.FormPara.CC1 = -1 then Me.MA1.Visible = true else Me.MA1.Visible = false End if Me.MA1.ControlTipText = forms.[FormPara].[Param1] if forms.FormPara.CC2 = -1 then Me.MA2.Visible = true else Me.MA2.Visible = false End if Me.MA2.ControlTipText = forms.[FormPara].[Param2] etc...
Comment faire référence successivement à chacun des controles pour ne taper
le code qu'une fois (au lieu de 60) ? Merci de vos lumières...
-- Cordialement,
Stéphane Brille www.microbloc.com (enlevez NoSpam. pour répondre)
dim i as integer
for i = 1 to 60
if forms.FormPara.controls("CC" & i) = -1 then
me.controls("MA" & i).visible = true
else
me.controls("MA" & i).visible = false
end if
Me.controls("MA" & i).ControlTipText forms.[FormPara].controls("Param" & i)
next i
enfin un truc de ce genre
"Stéphane Brille" <sbrille@NoSpam.microbloc.com> a écrit dans le message de
news:bp2cos$mc1$1@news-reader2.wanadoo.fr...
Bonjour,
dans l'évenement "sur activation" d'un formulaire, j'ai une soixantaine de
contrôles dont la visibilité
dépend de l'état de cases à cocher sur un autre formulaire. (l'infobulle
dépend également de la valeur d'autre contrôles)
if forms.FormPara.CC1 = -1 then
Me.MA1.Visible = true
else
Me.MA1.Visible = false
End if
Me.MA1.ControlTipText = forms.[FormPara].[Param1]
if forms.FormPara.CC2 = -1 then
Me.MA2.Visible = true
else
Me.MA2.Visible = false
End if
Me.MA2.ControlTipText = forms.[FormPara].[Param2]
etc...
Comment faire référence successivement à chacun des controles pour ne
taper
le code qu'une fois (au lieu de 60) ?
Merci de vos lumières...
--
Cordialement,
Stéphane Brille
www.microbloc.com
(enlevez NoSpam. pour répondre)
for i = 1 to 60 if forms.FormPara.controls("CC" & i) = -1 then me.controls("MA" & i).visible = true else me.controls("MA" & i).visible = false end if
Me.controls("MA" & i).ControlTipText forms.[FormPara].controls("Param" & i) next i
enfin un truc de ce genre
"Stéphane Brille" a écrit dans le message de news:bp2cos$mc1$
Bonjour,
dans l'évenement "sur activation" d'un formulaire, j'ai une soixantaine de contrôles dont la visibilité dépend de l'état de cases à cocher sur un autre formulaire. (l'infobulle dépend également de la valeur d'autre contrôles)
if forms.FormPara.CC1 = -1 then Me.MA1.Visible = true else Me.MA1.Visible = false End if Me.MA1.ControlTipText = forms.[FormPara].[Param1] if forms.FormPara.CC2 = -1 then Me.MA2.Visible = true else Me.MA2.Visible = false End if Me.MA2.ControlTipText = forms.[FormPara].[Param2] etc...
Comment faire référence successivement à chacun des controles pour ne taper
le code qu'une fois (au lieu de 60) ? Merci de vos lumières...
-- Cordialement,
Stéphane Brille www.microbloc.com (enlevez NoSpam. pour répondre)
Raymond [mvp]
Bonjoufr Jeff.
enfin un truc de ce genre tu t'améliores avec le temps, comme le bon vin.
"Jeff" a écrit dans le message de news:3fb4b94b$0$10409$
dim i as integer
for i = 1 to 60 if forms.FormPara.controls("CC" & i) = -1 then me.controls("MA" & i).visible = true else me.controls("MA" & i).visible = false end if
Me.controls("MA" & i).ControlTipText > forms.[FormPara].controls("Param" & i) next i
enfin un truc de ce genre
Bonjoufr Jeff.
enfin un truc de ce genre
tu t'améliores avec le temps, comme le bon vin.
juste le = -1 qui n'est pas obligatoire.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA
"Jeff" <mail@free.fr> a écrit dans le message de
news:3fb4b94b$0$10409$626a54ce@news.free.fr...
dim i as integer
for i = 1 to 60
if forms.FormPara.controls("CC" & i) = -1 then
me.controls("MA" & i).visible = true
else
me.controls("MA" & i).visible = false
end if
Me.controls("MA" & i).ControlTipText > forms.[FormPara].controls("Param" & i)
next i