Rendre visible invisible contrôle d'un frm
Le
Jacques

Bonsoir,
Pour rendre visible invisible certains contrôle de mon formulaire.
J’ai sur un module général :
L’appel de la sub
Call ctlInviVisible("Afficher", False)
Et son code
Sub ctlInviVisible(strTag As String, Bolctl As Boolean)
' Boucle sur les ctl
Dim ctl As Control
Dim strName As String
For Each ctl In Forms![frm Mail Destinataires].Controls
If ctl.Tag = strTag Then
strName = ctl.Name
ctl.Visible = Bolctl
End If
Next
End Sub
Ou se trouve mon erreur ? car je n’arrive pas à atteindre les contrôl=
es
du formulaire.
Merci pour votre aide.
Salutations
Pour rendre visible invisible certains contrôle de mon formulaire.
J’ai sur un module général :
L’appel de la sub
Call ctlInviVisible("Afficher", False)
Et son code
Sub ctlInviVisible(strTag As String, Bolctl As Boolean)
' Boucle sur les ctl
Dim ctl As Control
Dim strName As String
For Each ctl In Forms![frm Mail Destinataires].Controls
If ctl.Tag = strTag Then
strName = ctl.Name
ctl.Visible = Bolctl
End If
Next
End Sub
Ou se trouve mon erreur ? car je n’arrive pas à atteindre les contrôl=
es
du formulaire.
Merci pour votre aide.
Salutations
Bonjour,
Es-tu sûr que tes contrôles soient déclarés publics ?
Tu peux aussi écrire la fonction dans le module du formulaire, quitte à
la faire appeler par une autre. N'oublie pas alors de la déclarer Publi c.
Je suppose que tu as prévu le cas où le formulaire n'est pas ouvert,
même si certes ce n'est pas la question.
Je n'ai pas compris à quoi sert strName, mais j'imagine que ce n'est pa s
important.
Bonjour Gloop,
Merci pout ta réponse,
Mais comment déclarer un contrôle public ?
Dans mon frm j'ai un cadre option, une zone de liste, et des zones de texte .
Salutations
pas besoins de déclarer les contrôles publiques, vous pouvez accéder au
form comme vous le faite
il faut que ce form soit préalablement ouvert
si vous l'ouvrez en mode 'hidden', vous pourrez travailler
tranquillement dessus avant de le rendre visible
Bonjour brouhaha,
Merci pour ta réponse.
Mais la sub ne rend pas mes contrôles visibles ou invisibles
En lisant le code pas par pas, le Call ctlInviVisible("Afficher", False) a tteint bien la procèdure Sub ctlInviVisible(strTag As String, Bolctl As B oolean), les ctl sont parcourus par la boucle, mais rien ne se passe.
A+
Salutations
Et la propriété "Tag" des contrôles à rendre invisibles contient bien
"Afficher" ?
Oui la proptièté contient bien "Afficher"
A+
Hum, j'ai bien une piste en VB6, mais sous Access ...
Je suggèrerais bien de creuser l'autre piste que j'ai proposée : éc rire
la fonction dans le module du formulaire.
As-tu essayé ?
pourtant ça fonctionne sur mon poste sans rien changer sur ta Sub, un
formulaire bête, 4 boutons ...
est ce pour un formulaire en feuille de données ?, dans ce cas il faut
utiliser 'ColumnHidden'