Je n'ai pas pu ouvrir un ancien fil que j'avais eu avec J-Pierre,
ce qui fait que j'ouvre une nouvelle discussion.
J'ai nomm=E9 les contr=F4les de mon =E9tat Etiquette1, Etiquette2 etc...
et je voudrais savoir si avec ce code et sans changer le Nom des
contr=F4les, je peux dire Etiquette1 =E0 Etiquette10 Visible, et
Etiquette11 =E0 Etiquette20 invisible.
Dim ctl As Access.Control
For Each ctl In Me.Controls
If ctl.ControlType =3D acLabel Then
If Left(ctl.Name, 9) =3D "=C9tiquette" Then
If Me.Page =3D 2 Then
ctl.Visible =3D False
Else
ctl.Visible =3D True
End If
End If
End If=20
Next ctl=20
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
Jessy Sempere [MVP]
Bonjour
Peut-être en faisant plus simple :
For i = 1 to 20 if i < 11 then Me.controls("Étiquette" & i).visible = True else Me.controls("Étiquette" & i).visible = False end if Next i
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------
"Jacques" a écrit dans le message de news:
Bonjour,
Je n'ai pas pu ouvrir un ancien fil que j'avais eu avec J-Pierre, ce qui fait que j'ouvre une nouvelle discussion.
J'ai nommé les contrôles de mon état Etiquette1, Etiquette2 etc... et je voudrais savoir si avec ce code et sans changer le Nom des contrôles, je peux dire Etiquette1 à Etiquette10 Visible, et Etiquette11 à Etiquette20 invisible.
Dim ctl As Access.Control For Each ctl In Me.Controls If ctl.ControlType = acLabel Then If Left(ctl.Name, 9) = "Étiquette" Then If Me.Page = 2 Then ctl.Visible = False Else ctl.Visible = True End If End If End If Next ctl
Merci pour votre aide.
Salutations
Bonjour
Peut-être en faisant plus simple :
For i = 1 to 20
if i < 11 then
Me.controls("Étiquette" & i).visible = True
else
Me.controls("Étiquette" & i).visible = False
end if
Next i
--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"Jacques" <jg1@neuf.fr> a écrit dans le message de news:
1157039391.487412.228400@h48g2000cwc.googlegroups.com...
Bonjour,
Je n'ai pas pu ouvrir un ancien fil que j'avais eu avec J-Pierre,
ce qui fait que j'ouvre une nouvelle discussion.
J'ai nommé les contrôles de mon état Etiquette1, Etiquette2 etc...
et je voudrais savoir si avec ce code et sans changer le Nom des
contrôles, je peux dire Etiquette1 à Etiquette10 Visible, et
Etiquette11 à Etiquette20 invisible.
Dim ctl As Access.Control
For Each ctl In Me.Controls
If ctl.ControlType = acLabel Then
If Left(ctl.Name, 9) = "Étiquette" Then
If Me.Page = 2 Then
ctl.Visible = False
Else
ctl.Visible = True
End If
End If
End If
Next ctl
For i = 1 to 20 if i < 11 then Me.controls("Étiquette" & i).visible = True else Me.controls("Étiquette" & i).visible = False end if Next i
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------
"Jacques" a écrit dans le message de news:
Bonjour,
Je n'ai pas pu ouvrir un ancien fil que j'avais eu avec J-Pierre, ce qui fait que j'ouvre une nouvelle discussion.
J'ai nommé les contrôles de mon état Etiquette1, Etiquette2 etc... et je voudrais savoir si avec ce code et sans changer le Nom des contrôles, je peux dire Etiquette1 à Etiquette10 Visible, et Etiquette11 à Etiquette20 invisible.
Dim ctl As Access.Control For Each ctl In Me.Controls If ctl.ControlType = acLabel Then If Left(ctl.Name, 9) = "Étiquette" Then If Me.Page = 2 Then ctl.Visible = False Else ctl.Visible = True End If End If End If Next ctl