Le mercredi 20 février 2013 00:55:22 UTC+1, Jacques a écrit :
Bonsoir,
Pour rendre visible invisible certains contrôle de mon formulaire.
Jai sur un module général :
Lappel 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 narrive pas à atteindre les contr ôles
du formulaire.
Merci pour votre aide.
Salutations
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
brouhaha.news
Le 20/02/2013 00:55, Jacques a écrit :
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ôles du formulaire.
Merci pour votre aide.
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
Le 20/02/2013 00:55, Jacques a écrit :
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ôles
du formulaire.
Merci pour votre aide.
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
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ôles du formulaire.
Merci pour votre aide.
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
Jacques
Le mercredi 20 février 2013 00:55:22 UTC+1, Jacques a écrit :
Bonsoir,
Pour rendre visible invisible certains contrôle de mon formulaire.
Jai sur un module général :
Lappel 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 narrive pas à atteindre les contr ôles
du formulaire.
Merci pour votre aide.
Salutations
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
Le mercredi 20 février 2013 00:55:22 UTC+1, Jacques a écrit :
Bonsoir,
Pour rendre visible invisible certains contrôle de mon formulaire.
Jai sur un module général :
Lappel 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 narrive pas à atteindre les contr ôles
du formulaire.
Merci pour votre aide.
Salutations
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.
Le mercredi 20 février 2013 00:55:22 UTC+1, Jacques a écrit :
Bonsoir,
Pour rendre visible invisible certains contrôle de mon formulaire.
Jai sur un module général :
Lappel 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 narrive pas à atteindre les contr ôles
du formulaire.
Merci pour votre aide.
Salutations
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
db
Le 21/02/2013 11:10, Jacques a écrit :
En lisant le code pas par pas, le Call ctlInviVisible("Afficher", False) atteint bien la procèdure Sub ctlInviVisible(strTag As String, Bolctl As Boolean), les ctl sont parcourus par la boucle, mais rien ne se passe.
Et la propriété "Tag" des contrôles à rendre invisibles contient bien "Afficher" ?
Le 21/02/2013 11:10, Jacques a écrit :
En lisant le code pas par pas, le Call ctlInviVisible("Afficher", False) atteint bien la procèdure Sub ctlInviVisible(strTag As String, Bolctl As Boolean), les ctl sont parcourus par la boucle, mais rien ne se passe.
Et la propriété "Tag" des contrôles à rendre invisibles contient bien
"Afficher" ?
En lisant le code pas par pas, le Call ctlInviVisible("Afficher", False) atteint bien la procèdure Sub ctlInviVisible(strTag As String, Bolctl As Boolean), les ctl sont parcourus par la boucle, mais rien ne se passe.
Et la propriété "Tag" des contrôles à rendre invisibles contient bien "Afficher" ?
Jacques
Le jeudi 21 février 2013 13:03:38 UTC+1, db a écrit :
Le 21/02/2013 11:10, Jacques a �crit :
>
> En lisant le code pas par pas, le Call ctlInviVisible("Afficher", False ) atteint bien la proc�dure Sub ctlInviVisible(strTag As String, B olctl As Boolean), les ctl sont parcourus par la boucle, mais rien ne se p asse.
>
Et la propri�t� "Tag" des contr�les � ren dre invisibles contient bien
"Afficher" ?
Oui la proptièté contient bien "Afficher"
A+
Le jeudi 21 février 2013 13:03:38 UTC+1, db a écrit :
Le 21/02/2013 11:10, Jacques a �crit :
>
> En lisant le code pas par pas, le Call ctlInviVisible("Afficher", False ) atteint bien la proc�dure Sub ctlInviVisible(strTag As String, B olctl As Boolean), les ctl sont parcourus par la boucle, mais rien ne se p asse.
>
Et la propri�t� "Tag" des contr�les � ren dre invisibles contient bien
Le jeudi 21 février 2013 13:03:38 UTC+1, db a écrit :
Le 21/02/2013 11:10, Jacques a �crit :
>
> En lisant le code pas par pas, le Call ctlInviVisible("Afficher", False ) atteint bien la proc�dure Sub ctlInviVisible(strTag As String, B olctl As Boolean), les ctl sont parcourus par la boucle, mais rien ne se p asse.
>
Et la propri�t� "Tag" des contr�les � ren dre invisibles contient bien
"Afficher" ?
Oui la proptièté contient bien "Afficher"
A+
Gloops
Jacques a écrit, le 20/02/2013 13:54 :
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 t exte..
Salutations
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é ?
Jacques a écrit, le 20/02/2013 13:54 :
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 t exte..
Salutations
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.
Dans mon frm j'ai un cadre option, une zone de liste, et des zones de t exte..
Salutations
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é ?
brouhaha.news
Le 21/02/2013 15:37, Jacques a écrit :
Le jeudi 21 février 2013 13:03:38 UTC+1, db a écrit :
Le 21/02/2013 11:10, Jacques a �crit :
En lisant le code pas par pas, le Call ctlInviVisible("Afficher", False) atteint bien la proc�dure Sub ctlInviVisible(strTag As String, Bolctl As Boolean), les ctl sont parcourus par la boucle, mais rien ne se passe.
Et la propri�t� "Tag" des contr�les � rendre invisibles contient bien
"Afficher" ?
Oui la proptièté contient bien "Afficher"
A+
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'
Le 21/02/2013 15:37, Jacques a écrit :
Le jeudi 21 février 2013 13:03:38 UTC+1, db a écrit :
Le 21/02/2013 11:10, Jacques a �crit :
En lisant le code pas par pas, le Call ctlInviVisible("Afficher", False) atteint bien la proc�dure Sub ctlInviVisible(strTag As String, Bolctl As Boolean), les ctl sont parcourus par la boucle, mais rien ne se passe.
Et la propri�t� "Tag" des contr�les � rendre invisibles contient bien
"Afficher" ?
Oui la proptièté contient bien "Afficher"
A+
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'
Le jeudi 21 février 2013 13:03:38 UTC+1, db a écrit :
Le 21/02/2013 11:10, Jacques a �crit :
En lisant le code pas par pas, le Call ctlInviVisible("Afficher", False) atteint bien la proc�dure Sub ctlInviVisible(strTag As String, Bolctl As Boolean), les ctl sont parcourus par la boucle, mais rien ne se passe.
Et la propri�t� "Tag" des contr�les � rendre invisibles contient bien
"Afficher" ?
Oui la proptièté contient bien "Afficher"
A+
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'