Sur l'ouverture de mon formulaire qui comporte des pages Onglets, je
rends invisibles avec ces lignes de code plusieurs contr=F4les du
sous-formulaire =AB sfm 2 =BB de la page 1 lorsque je passe sur la page
2=2E
(J'utilise le m=EAme sous-formulaire sur les deux pages)
Private Sub Form_Open(Cancel As Integer)
Forms![frm 1]![sfm 2].Form!txt 1.Visible =3D True
Forms![frm 1]![sfm 2].Form!txt 2.Visible =3D True
Comment obtenir le m=EAme r=E9sultat en utilisant la propri=E9t=E9 Tag
Et ce code :
For Each ctl in Me !Controls
If ctl.Tag =3D "Masquer" Then
Ctl.Visible =3D True
End if
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,
Il y a peut-être mieux mais en l'absence de réponse, je te propose quelque chôse comme:
Private Sub Form_Open(Cancel As Integer) Dim c1 As Control, c2 As Control, oFrm As Object For Each c1 In Me.Controls If TypeOf c1 Is SubForm Then Set oFrm = Forms(Me.Name)(c1.Name) For Each c2 In oFrm.Controls If c2.Tag = "Masquer" Then Forms(Me.Name)(c1.Name)(c2.Name).Visible = False End If Next c2 Set oFrm = Nothing End If Next c1 End Sub
PS: Si le Tag contient Masquer, je rends invisible le contrôle. A adapter à ton cas.
Bonjours,
Sur l'ouverture de mon formulaire qui comporte des pages Onglets, je rends invisibles avec ces lignes de code plusieurs contrôles du sous-formulaire « sfm 2 » de la page 1 lorsque je passe sur la page 2. (J'utilise le même sous-formulaire sur les deux pages)
Private Sub Form_Open(Cancel As Integer) Forms![frm 1]![sfm 2].Form!txt 1.Visible = True Forms![frm 1]![sfm 2].Form!txt 2.Visible = True
Comment obtenir le même résultat en utilisant la propriété Tag Et ce code :
For Each ctl in Me !Controls If ctl.Tag = "Masquer" Then Ctl.Visible = True End if
Merci pour votre aide.
Salutations.
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Il y a peut-être mieux mais en l'absence de réponse, je te propose
quelque chôse comme:
Private Sub Form_Open(Cancel As Integer)
Dim c1 As Control, c2 As Control, oFrm As Object
For Each c1 In Me.Controls
If TypeOf c1 Is SubForm Then
Set oFrm = Forms(Me.Name)(c1.Name)
For Each c2 In oFrm.Controls
If c2.Tag = "Masquer" Then
Forms(Me.Name)(c1.Name)(c2.Name).Visible = False
End If
Next c2
Set oFrm = Nothing
End If
Next c1
End Sub
PS: Si le Tag contient Masquer, je rends invisible le contrôle. A
adapter à ton cas.
Bonjours,
Sur l'ouverture de mon formulaire qui comporte des pages Onglets, je
rends invisibles avec ces lignes de code plusieurs contrôles du
sous-formulaire « sfm 2 » de la page 1 lorsque je passe sur la page
2.
(J'utilise le même sous-formulaire sur les deux pages)
Private Sub Form_Open(Cancel As Integer)
Forms![frm 1]![sfm 2].Form!txt 1.Visible = True
Forms![frm 1]![sfm 2].Form!txt 2.Visible = True
Comment obtenir le même résultat en utilisant la propriété Tag
Et ce code :
For Each ctl in Me !Controls
If ctl.Tag = "Masquer" Then
Ctl.Visible = True
End if
Merci pour votre aide.
Salutations.
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Il y a peut-être mieux mais en l'absence de réponse, je te propose quelque chôse comme:
Private Sub Form_Open(Cancel As Integer) Dim c1 As Control, c2 As Control, oFrm As Object For Each c1 In Me.Controls If TypeOf c1 Is SubForm Then Set oFrm = Forms(Me.Name)(c1.Name) For Each c2 In oFrm.Controls If c2.Tag = "Masquer" Then Forms(Me.Name)(c1.Name)(c2.Name).Visible = False End If Next c2 Set oFrm = Nothing End If Next c1 End Sub
PS: Si le Tag contient Masquer, je rends invisible le contrôle. A adapter à ton cas.
Bonjours,
Sur l'ouverture de mon formulaire qui comporte des pages Onglets, je rends invisibles avec ces lignes de code plusieurs contrôles du sous-formulaire « sfm 2 » de la page 1 lorsque je passe sur la page 2. (J'utilise le même sous-formulaire sur les deux pages)
Private Sub Form_Open(Cancel As Integer) Forms![frm 1]![sfm 2].Form!txt 1.Visible = True Forms![frm 1]![sfm 2].Form!txt 2.Visible = True
Comment obtenir le même résultat en utilisant la propriété Tag Et ce code :
For Each ctl in Me !Controls If ctl.Tag = "Masquer" Then Ctl.Visible = True End if
Merci pour votre aide.
Salutations.
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Jacques
Bonjour Eric,
Merci pour ta réponse, qui me convient parfaitement.
Salutations.
Bonjour,
Il y a peut-être mieux mais en l'absence de réponse, je te propose quelque chôse comme:
Private Sub Form_Open(Cancel As Integer) Dim c1 As Control, c2 As Control, oFrm As Object For Each c1 In Me.Controls If TypeOf c1 Is SubForm Then Set oFrm = Forms(Me.Name)(c1.Name) For Each c2 In oFrm.Controls If c2.Tag = "Masquer" Then Forms(Me.Name)(c1.Name)(c2.Name).Visible = False End If Next c2 Set oFrm = Nothing End If Next c1 End Sub
PS: Si le Tag contient Masquer, je rends invisible le contrôle. A adapter à ton cas.
Bonjours,
Sur l'ouverture de mon formulaire qui comporte des pages Onglets, je rends invisibles avec ces lignes de code plusieurs contrôles du sous-formulaire « sfm 2 » de la page 1 lorsque je passe sur la page 2. (J'utilise le même sous-formulaire sur les deux pages)
Private Sub Form_Open(Cancel As Integer) Forms![frm 1]![sfm 2].Form!txt 1.Visible = True Forms![frm 1]![sfm 2].Form!txt 2.Visible = True
Comment obtenir le même résultat en utilisant la propriété Tag Et ce code :
For Each ctl in Me !Controls If ctl.Tag = "Masquer" Then Ctl.Visible = True End if
Merci pour votre aide.
Salutations.
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl= fr
Bonjour Eric,
Merci pour ta réponse, qui me convient parfaitement.
Salutations.
Bonjour,
Il y a peut-être mieux mais en l'absence de réponse, je te propose
quelque chôse comme:
Private Sub Form_Open(Cancel As Integer)
Dim c1 As Control, c2 As Control, oFrm As Object
For Each c1 In Me.Controls
If TypeOf c1 Is SubForm Then
Set oFrm = Forms(Me.Name)(c1.Name)
For Each c2 In oFrm.Controls
If c2.Tag = "Masquer" Then
Forms(Me.Name)(c1.Name)(c2.Name).Visible = False
End If
Next c2
Set oFrm = Nothing
End If
Next c1
End Sub
PS: Si le Tag contient Masquer, je rends invisible le contrôle. A
adapter à ton cas.
Bonjours,
Sur l'ouverture de mon formulaire qui comporte des pages Onglets, je
rends invisibles avec ces lignes de code plusieurs contrôles du
sous-formulaire « sfm 2 » de la page 1 lorsque je passe sur la page
2.
(J'utilise le même sous-formulaire sur les deux pages)
Private Sub Form_Open(Cancel As Integer)
Forms![frm 1]![sfm 2].Form!txt 1.Visible = True
Forms![frm 1]![sfm 2].Form!txt 2.Visible = True
Comment obtenir le même résultat en utilisant la propriété Tag
Et ce code :
For Each ctl in Me !Controls
If ctl.Tag = "Masquer" Then
Ctl.Visible = True
End if
Merci pour votre aide.
Salutations.
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl= fr
Merci pour ta réponse, qui me convient parfaitement.
Salutations.
Bonjour,
Il y a peut-être mieux mais en l'absence de réponse, je te propose quelque chôse comme:
Private Sub Form_Open(Cancel As Integer) Dim c1 As Control, c2 As Control, oFrm As Object For Each c1 In Me.Controls If TypeOf c1 Is SubForm Then Set oFrm = Forms(Me.Name)(c1.Name) For Each c2 In oFrm.Controls If c2.Tag = "Masquer" Then Forms(Me.Name)(c1.Name)(c2.Name).Visible = False End If Next c2 Set oFrm = Nothing End If Next c1 End Sub
PS: Si le Tag contient Masquer, je rends invisible le contrôle. A adapter à ton cas.
Bonjours,
Sur l'ouverture de mon formulaire qui comporte des pages Onglets, je rends invisibles avec ces lignes de code plusieurs contrôles du sous-formulaire « sfm 2 » de la page 1 lorsque je passe sur la page 2. (J'utilise le même sous-formulaire sur les deux pages)
Private Sub Form_Open(Cancel As Integer) Forms![frm 1]![sfm 2].Form!txt 1.Visible = True Forms![frm 1]![sfm 2].Form!txt 2.Visible = True
Comment obtenir le même résultat en utilisant la propriété Tag Et ce code :
For Each ctl in Me !Controls If ctl.Tag = "Masquer" Then Ctl.Visible = True End if
Merci pour votre aide.
Salutations.
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl= fr
