Fabien a écrit :s.jean a écrit :Bonjour,
J'ai donc mis le code suivant sur l'évènement activation du
formulaire :
Private Sub Form_Current()
Dim moncontrol As Control
For Each moncontrol In Me.Controls
If moncontrol.Name <> "Cocher35" Then
moncontrol.Enable = Me.Cocher35
End If
Next
End Sub
Quand j'ouvre le formulaire j'ai un message Propriété ou méthode non
gérée par cet objet.
D'où vient l'erreur ?Salut,
Cela provient du fait que certain controle ne possedent pas la
propriete enable. (les etiquettes par exemple)
Il faudrait donc creuser pour savoir comment connaitre la nature du
controle ou, mais c'est pas beau, mettre un On error resume next au
début du code.
Bonjour,
En plus, je pense qu'il faut mettre EnableD et non Enable
Qu'en pensez-vous ?
Fabien a écrit :
s.jean a écrit :
Bonjour,
J'ai donc mis le code suivant sur l'évènement activation du
formulaire :
Private Sub Form_Current()
Dim moncontrol As Control
For Each moncontrol In Me.Controls
If moncontrol.Name <> "Cocher35" Then
moncontrol.Enable = Me.Cocher35
End If
Next
End Sub
Quand j'ouvre le formulaire j'ai un message Propriété ou méthode non
gérée par cet objet.
D'où vient l'erreur ?
Salut,
Cela provient du fait que certain controle ne possedent pas la
propriete enable. (les etiquettes par exemple)
Il faudrait donc creuser pour savoir comment connaitre la nature du
controle ou, mais c'est pas beau, mettre un On error resume next au
début du code.
Bonjour,
En plus, je pense qu'il faut mettre EnableD et non Enable
Qu'en pensez-vous ?
Fabien a écrit :s.jean a écrit :Bonjour,
J'ai donc mis le code suivant sur l'évènement activation du
formulaire :
Private Sub Form_Current()
Dim moncontrol As Control
For Each moncontrol In Me.Controls
If moncontrol.Name <> "Cocher35" Then
moncontrol.Enable = Me.Cocher35
End If
Next
End Sub
Quand j'ouvre le formulaire j'ai un message Propriété ou méthode non
gérée par cet objet.
D'où vient l'erreur ?Salut,
Cela provient du fait que certain controle ne possedent pas la
propriete enable. (les etiquettes par exemple)
Il faudrait donc creuser pour savoir comment connaitre la nature du
controle ou, mais c'est pas beau, mettre un On error resume next au
début du code.
Bonjour,
En plus, je pense qu'il faut mettre EnableD et non Enable
Qu'en pensez-vous ?
Fabien a écrit :
> s.jean a écrit :
>> Bonjour,
>> J'ai donc mis le code suivant sur l'évènement activation du
>> formulaire :
>> Private Sub Form_Current()
>> Dim moncontrol As Control
>> For Each moncontrol In Me.Controls
>> If moncontrol.Name <> "Cocher35" Then
>> moncontrol.Enable = Me.Cocher35
>> End If
>> Next
>> End Sub
>> Quand j'ouvre le formulaire j'ai un message Propriété ou méthode non
>> gérée par cet objet.
>> D'où vient l'erreur ?
> Salut,
> Cela provient du fait que certain controle ne possedent pas la propriete
> enable. (les etiquettes par exemple)
> Il faudrait donc creuser pour savoir comment connaitre la nature du
> controle ou, mais c'est pas beau, mettre un On error resume next au
> début du code.
Bonjour,
En plus, je pense qu'il faut mettre EnableD et non Enable
Qu'en pensez-vous ?
--
A+
Erichttp://www.mpfa.info/
Archives :http://groups.google.fr/group/microsoft.public.fr.access?hl=fr - Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Fabien a écrit :
> s.jean a écrit :
>> Bonjour,
>> J'ai donc mis le code suivant sur l'évènement activation du
>> formulaire :
>> Private Sub Form_Current()
>> Dim moncontrol As Control
>> For Each moncontrol In Me.Controls
>> If moncontrol.Name <> "Cocher35" Then
>> moncontrol.Enable = Me.Cocher35
>> End If
>> Next
>> End Sub
>> Quand j'ouvre le formulaire j'ai un message Propriété ou méthode non
>> gérée par cet objet.
>> D'où vient l'erreur ?
> Salut,
> Cela provient du fait que certain controle ne possedent pas la propriete
> enable. (les etiquettes par exemple)
> Il faudrait donc creuser pour savoir comment connaitre la nature du
> controle ou, mais c'est pas beau, mettre un On error resume next au
> début du code.
Bonjour,
En plus, je pense qu'il faut mettre EnableD et non Enable
Qu'en pensez-vous ?
--
A+
Erichttp://www.mpfa.info/
Archives :http://groups.google.fr/group/microsoft.public.fr.access?hl=fr - Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Fabien a écrit :
> s.jean a écrit :
>> Bonjour,
>> J'ai donc mis le code suivant sur l'évènement activation du
>> formulaire :
>> Private Sub Form_Current()
>> Dim moncontrol As Control
>> For Each moncontrol In Me.Controls
>> If moncontrol.Name <> "Cocher35" Then
>> moncontrol.Enable = Me.Cocher35
>> End If
>> Next
>> End Sub
>> Quand j'ouvre le formulaire j'ai un message Propriété ou méthode non
>> gérée par cet objet.
>> D'où vient l'erreur ?
> Salut,
> Cela provient du fait que certain controle ne possedent pas la propriete
> enable. (les etiquettes par exemple)
> Il faudrait donc creuser pour savoir comment connaitre la nature du
> controle ou, mais c'est pas beau, mettre un On error resume next au
> début du code.
Bonjour,
En plus, je pense qu'il faut mettre EnableD et non Enable
Qu'en pensez-vous ?
--
A+
Erichttp://www.mpfa.info/
Archives :http://groups.google.fr/group/microsoft.public.fr.access?hl=fr - Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Fabien a écrit :
> s.jean a écrit :
>> Bonjour,
>> J'ai donc mis le code suivant sur l'évènement activation du
>> formulaire :
>> Private Sub Form_Current()
>> Dim moncontrol As Control
>> For Each moncontrol In Me.Controls
>> If moncontrol.Name <> "Cocher35" Then
>> moncontrol.Enable = Me.Cocher35
>> End If
>> Next
>> End Sub
>> Quand j'ouvre le formulaire j'ai un message Propriété ou méthode non
>> gérée par cet objet.
>> D'où vient l'erreur ?
> Salut,
> Cela provient du fait que certain controle ne possedent pas la propriete
> enable. (les etiquettes par exemple)
> Il faudrait donc creuser pour savoir comment connaitre la nature du
> controle ou, mais c'est pas beau, mettre un On error resume next au
> début du code.
Bonjour,
En plus, je pense qu'il faut mettre EnableD et non Enable
Qu'en pensez-vous ?
--
A+
Erichttp://www.mpfa.info/
Archives :http://groups.google.fr/group/microsoft.public.fr.access?hl=fr- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Fabien a écrit :
> s.jean a écrit :
>> Bonjour,
>> J'ai donc mis le code suivant sur l'évènement activation du
>> formulaire :
>> Private Sub Form_Current()
>> Dim moncontrol As Control
>> For Each moncontrol In Me.Controls
>> If moncontrol.Name <> "Cocher35" Then
>> moncontrol.Enable = Me.Cocher35
>> End If
>> Next
>> End Sub
>> Quand j'ouvre le formulaire j'ai un message Propriété ou méthode non
>> gérée par cet objet.
>> D'où vient l'erreur ?
> Salut,
> Cela provient du fait que certain controle ne possedent pas la propriete
> enable. (les etiquettes par exemple)
> Il faudrait donc creuser pour savoir comment connaitre la nature du
> controle ou, mais c'est pas beau, mettre un On error resume next au
> début du code.
Bonjour,
En plus, je pense qu'il faut mettre EnableD et non Enable
Qu'en pensez-vous ?
--
A+
Erichttp://www.mpfa.info/
Archives :http://groups.google.fr/group/microsoft.public.fr.access?hl=fr- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Fabien a écrit :
> s.jean a écrit :
>> Bonjour,
>> J'ai donc mis le code suivant sur l'évènement activation du
>> formulaire :
>> Private Sub Form_Current()
>> Dim moncontrol As Control
>> For Each moncontrol In Me.Controls
>> If moncontrol.Name <> "Cocher35" Then
>> moncontrol.Enable = Me.Cocher35
>> End If
>> Next
>> End Sub
>> Quand j'ouvre le formulaire j'ai un message Propriété ou méthode non
>> gérée par cet objet.
>> D'où vient l'erreur ?
> Salut,
> Cela provient du fait que certain controle ne possedent pas la propriete
> enable. (les etiquettes par exemple)
> Il faudrait donc creuser pour savoir comment connaitre la nature du
> controle ou, mais c'est pas beau, mettre un On error resume next au
> début du code.
Bonjour,
En plus, je pense qu'il faut mettre EnableD et non Enable
Qu'en pensez-vous ?
--
A+
Erichttp://www.mpfa.info/
Archives :http://groups.google.fr/group/microsoft.public.fr.access?hl=fr- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Voici une variante.
Private Sub Form_Current()
Dim oCtrl As control
For Each oCtrl In Me.Controls
If (oCtrl.Name<>"Cocher35" And oCtrl.ControlType<>acLabel Then
If Cocher35 = -1 Then
oCtrl.Enabled = False
Else
oCtrl.Enabled = True
End If
End If
Next
End Sub
"s.jean" a écrit dans le message de news:
Bonjour,
Je pense également que ça bugue sur
moncontrol.Enable = Me.Cocher35
peut être parce que enable est de type vrai/faux et cocher35 de type
0/-1 (oui/non).
Si je mets ce code sur l'activation et l'afterupdate de cocher35 ça
marche :
Private Sub Form_Current()
Dim moncontrol As control
For Each moncontrol In Me.Controls
If (moncontrol.Name <> "Cocher35" And moncontrol.ControlType
<> acLabel And Cocher35 = -1) Then
moncontrol.Enabled = False
Else
If (moncontrol.Name <> "Cocher35" And
moncontrol.ControlType <> acLabel And Cocher35 = 0) Then
moncontrol.Enabled = True
End If
End If
Next
End Sub
Peut-on simplifier ce code ?
Merci
Sandrine
On 17 juin, 12:46, Eric wrote:Fabien a écrit :s.jean a écrit :Bonjour,
J'ai donc mis le code suivant sur l'évènement activation du
formulaire :
Private Sub Form_Current()
Dim moncontrol As Control
For Each moncontrol In Me.Controls
If moncontrol.Name <> "Cocher35" Then
moncontrol.Enable = Me.Cocher35
End If
Next
End Sub
Quand j'ouvre le formulaire j'ai un message Propriété ou méthode non
gérée par cet objet.
D'où vient l'erreur ?
Salut,
Cela provient du fait que certain controle ne possedent pas la propriete
enable. (les etiquettes par exemple)
Il faudrait donc creuser pour savoir comment connaitre la nature du
controle ou, mais c'est pas beau, mettre un On error resume next au
début du code.
Bonjour,
En plus, je pense qu'il faut mettre EnableD et non Enable
Qu'en pensez-vous ?
--
A+
Erichttp://www.mpfa.info/
Archives :http://groups.google.fr/group/microsoft.public.fr.access?hl=fr- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Voici une variante.
Private Sub Form_Current()
Dim oCtrl As control
For Each oCtrl In Me.Controls
If (oCtrl.Name<>"Cocher35" And oCtrl.ControlType<>acLabel Then
If Cocher35 = -1 Then
oCtrl.Enabled = False
Else
oCtrl.Enabled = True
End If
End If
Next
End Sub
"s.jean" <s_jean26@hotmail.com> a écrit dans le message de news:266b1951-b355-4c2f-9a4f-9d47e7dd021d@d1g2000hsg.googlegroups.com...
Bonjour,
Je pense également que ça bugue sur
moncontrol.Enable = Me.Cocher35
peut être parce que enable est de type vrai/faux et cocher35 de type
0/-1 (oui/non).
Si je mets ce code sur l'activation et l'afterupdate de cocher35 ça
marche :
Private Sub Form_Current()
Dim moncontrol As control
For Each moncontrol In Me.Controls
If (moncontrol.Name <> "Cocher35" And moncontrol.ControlType
<> acLabel And Cocher35 = -1) Then
moncontrol.Enabled = False
Else
If (moncontrol.Name <> "Cocher35" And
moncontrol.ControlType <> acLabel And Cocher35 = 0) Then
moncontrol.Enabled = True
End If
End If
Next
End Sub
Peut-on simplifier ce code ?
Merci
Sandrine
On 17 juin, 12:46, Eric <f_fra...@hotmail.com> wrote:
Fabien a écrit :
s.jean a écrit :
Bonjour,
J'ai donc mis le code suivant sur l'évènement activation du
formulaire :
Private Sub Form_Current()
Dim moncontrol As Control
For Each moncontrol In Me.Controls
If moncontrol.Name <> "Cocher35" Then
moncontrol.Enable = Me.Cocher35
End If
Next
End Sub
Quand j'ouvre le formulaire j'ai un message Propriété ou méthode non
gérée par cet objet.
D'où vient l'erreur ?
Salut,
Cela provient du fait que certain controle ne possedent pas la propriete
enable. (les etiquettes par exemple)
Il faudrait donc creuser pour savoir comment connaitre la nature du
controle ou, mais c'est pas beau, mettre un On error resume next au
début du code.
Bonjour,
En plus, je pense qu'il faut mettre EnableD et non Enable
Qu'en pensez-vous ?
--
A+
Erichttp://www.mpfa.info/
Archives :http://groups.google.fr/group/microsoft.public.fr.access?hl=fr- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Voici une variante.
Private Sub Form_Current()
Dim oCtrl As control
For Each oCtrl In Me.Controls
If (oCtrl.Name<>"Cocher35" And oCtrl.ControlType<>acLabel Then
If Cocher35 = -1 Then
oCtrl.Enabled = False
Else
oCtrl.Enabled = True
End If
End If
Next
End Sub
"s.jean" a écrit dans le message de news:
Bonjour,
Je pense également que ça bugue sur
moncontrol.Enable = Me.Cocher35
peut être parce que enable est de type vrai/faux et cocher35 de type
0/-1 (oui/non).
Si je mets ce code sur l'activation et l'afterupdate de cocher35 ça
marche :
Private Sub Form_Current()
Dim moncontrol As control
For Each moncontrol In Me.Controls
If (moncontrol.Name <> "Cocher35" And moncontrol.ControlType
<> acLabel And Cocher35 = -1) Then
moncontrol.Enabled = False
Else
If (moncontrol.Name <> "Cocher35" And
moncontrol.ControlType <> acLabel And Cocher35 = 0) Then
moncontrol.Enabled = True
End If
End If
Next
End Sub
Peut-on simplifier ce code ?
Merci
Sandrine
On 17 juin, 12:46, Eric wrote:Fabien a écrit :s.jean a écrit :Bonjour,
J'ai donc mis le code suivant sur l'évènement activation du
formulaire :
Private Sub Form_Current()
Dim moncontrol As Control
For Each moncontrol In Me.Controls
If moncontrol.Name <> "Cocher35" Then
moncontrol.Enable = Me.Cocher35
End If
Next
End Sub
Quand j'ouvre le formulaire j'ai un message Propriété ou méthode non
gérée par cet objet.
D'où vient l'erreur ?
Salut,
Cela provient du fait que certain controle ne possedent pas la propriete
enable. (les etiquettes par exemple)
Il faudrait donc creuser pour savoir comment connaitre la nature du
controle ou, mais c'est pas beau, mettre un On error resume next au
début du code.
Bonjour,
En plus, je pense qu'il faut mettre EnableD et non Enable
Qu'en pensez-vous ?
--
A+
Erichttp://www.mpfa.info/
Archives :http://groups.google.fr/group/microsoft.public.fr.access?hl=fr- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Et plus encore ;-)
Private Sub Form_Current()
> Dim oCtrl As control
> For Each oCtrl In Me.Controls
> If (oCtrl.Name<>"Cocher35" And oCtrl.ControlType<>acLabel Then
> oCtrl.Enabled = Not(Cocher35 = -1)
> End If
> Next
> End Sub
Michel_D a écrit :Bonjour,
Voici une variante.
Private Sub Form_Current()
Dim oCtrl As control
For Each oCtrl In Me.Controls
If (oCtrl.Name<>"Cocher35" And oCtrl.ControlType<>acLabel Then
If Cocher35 = -1 Then
oCtrl.Enabled = False
Else
oCtrl.Enabled = True
End If
End If
Next
End Sub
"s.jean" a écrit dans le message de
news:
Bonjour,
Je pense également que ça bugue sur
moncontrol.Enable = Me.Cocher35
peut être parce que enable est de type vrai/faux et cocher35 de type
0/-1 (oui/non).
Si je mets ce code sur l'activation et l'afterupdate de cocher35 ça
marche :
Private Sub Form_Current()
Dim moncontrol As control
For Each moncontrol In Me.Controls
If (moncontrol.Name <> "Cocher35" And moncontrol.ControlType
<> acLabel And Cocher35 = -1) Then
moncontrol.Enabled = False
Else
If (moncontrol.Name <> "Cocher35" And
moncontrol.ControlType <> acLabel And Cocher35 = 0) Then
moncontrol.Enabled = True
End If
End If
Next
End Sub
Peut-on simplifier ce code ?
Merci
Sandrine
On 17 juin, 12:46, Eric wrote:Fabien a écrit :s.jean a écrit :Bonjour,
J'ai donc mis le code suivant sur l'évènement activation du
formulaire :
Private Sub Form_Current()
Dim moncontrol As Control
For Each moncontrol In Me.Controls
If moncontrol.Name <> "Cocher35" Then
moncontrol.Enable = Me.Cocher35
End If
Next
End Sub
Quand j'ouvre le formulaire j'ai un message Propriété ou méthode non
gérée par cet objet.
D'où vient l'erreur ?
Salut,
Cela provient du fait que certain controle ne possedent pas la
propriete
enable. (les etiquettes par exemple)
Il faudrait donc creuser pour savoir comment connaitre la nature du
controle ou, mais c'est pas beau, mettre un On error resume next au
début du code.
Bonjour,
En plus, je pense qu'il faut mettre EnableD et non Enable
Qu'en pensez-vous ?
--
A+
Erichttp://www.mpfa.info/
Archives
:http://groups.google.fr/group/microsoft.public.fr.access?hl=fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://groups.google.fr/group/microsoft.public.fr.access?hl=fr-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Et plus encore ;-)
Private Sub Form_Current()
> Dim oCtrl As control
> For Each oCtrl In Me.Controls
> If (oCtrl.Name<>"Cocher35" And oCtrl.ControlType<>acLabel Then
> oCtrl.Enabled = Not(Cocher35 = -1)
> End If
> Next
> End Sub
Michel_D a écrit :
Bonjour,
Voici une variante.
Private Sub Form_Current()
Dim oCtrl As control
For Each oCtrl In Me.Controls
If (oCtrl.Name<>"Cocher35" And oCtrl.ControlType<>acLabel Then
If Cocher35 = -1 Then
oCtrl.Enabled = False
Else
oCtrl.Enabled = True
End If
End If
Next
End Sub
"s.jean" <s_jean26@hotmail.com> a écrit dans le message de
news:266b1951-b355-4c2f-9a4f-9d47e7dd021d@d1g2000hsg.googlegroups.com...
Bonjour,
Je pense également que ça bugue sur
moncontrol.Enable = Me.Cocher35
peut être parce que enable est de type vrai/faux et cocher35 de type
0/-1 (oui/non).
Si je mets ce code sur l'activation et l'afterupdate de cocher35 ça
marche :
Private Sub Form_Current()
Dim moncontrol As control
For Each moncontrol In Me.Controls
If (moncontrol.Name <> "Cocher35" And moncontrol.ControlType
<> acLabel And Cocher35 = -1) Then
moncontrol.Enabled = False
Else
If (moncontrol.Name <> "Cocher35" And
moncontrol.ControlType <> acLabel And Cocher35 = 0) Then
moncontrol.Enabled = True
End If
End If
Next
End Sub
Peut-on simplifier ce code ?
Merci
Sandrine
On 17 juin, 12:46, Eric <f_fra...@hotmail.com> wrote:
Fabien a écrit :
s.jean a écrit :
Bonjour,
J'ai donc mis le code suivant sur l'évènement activation du
formulaire :
Private Sub Form_Current()
Dim moncontrol As Control
For Each moncontrol In Me.Controls
If moncontrol.Name <> "Cocher35" Then
moncontrol.Enable = Me.Cocher35
End If
Next
End Sub
Quand j'ouvre le formulaire j'ai un message Propriété ou méthode non
gérée par cet objet.
D'où vient l'erreur ?
Salut,
Cela provient du fait que certain controle ne possedent pas la
propriete
enable. (les etiquettes par exemple)
Il faudrait donc creuser pour savoir comment connaitre la nature du
controle ou, mais c'est pas beau, mettre un On error resume next au
début du code.
Bonjour,
En plus, je pense qu'il faut mettre EnableD et non Enable
Qu'en pensez-vous ?
--
A+
Erichttp://www.mpfa.info/
Archives
:http://groups.google.fr/group/microsoft.public.fr.access?hl=fr-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Et plus encore ;-)
Private Sub Form_Current()
> Dim oCtrl As control
> For Each oCtrl In Me.Controls
> If (oCtrl.Name<>"Cocher35" And oCtrl.ControlType<>acLabel Then
> oCtrl.Enabled = Not(Cocher35 = -1)
> End If
> Next
> End Sub
Michel_D a écrit :Bonjour,
Voici une variante.
Private Sub Form_Current()
Dim oCtrl As control
For Each oCtrl In Me.Controls
If (oCtrl.Name<>"Cocher35" And oCtrl.ControlType<>acLabel Then
If Cocher35 = -1 Then
oCtrl.Enabled = False
Else
oCtrl.Enabled = True
End If
End If
Next
End Sub
"s.jean" a écrit dans le message de
news:
Bonjour,
Je pense également que ça bugue sur
moncontrol.Enable = Me.Cocher35
peut être parce que enable est de type vrai/faux et cocher35 de type
0/-1 (oui/non).
Si je mets ce code sur l'activation et l'afterupdate de cocher35 ça
marche :
Private Sub Form_Current()
Dim moncontrol As control
For Each moncontrol In Me.Controls
If (moncontrol.Name <> "Cocher35" And moncontrol.ControlType
<> acLabel And Cocher35 = -1) Then
moncontrol.Enabled = False
Else
If (moncontrol.Name <> "Cocher35" And
moncontrol.ControlType <> acLabel And Cocher35 = 0) Then
moncontrol.Enabled = True
End If
End If
Next
End Sub
Peut-on simplifier ce code ?
Merci
Sandrine
On 17 juin, 12:46, Eric wrote:Fabien a écrit :s.jean a écrit :Bonjour,
J'ai donc mis le code suivant sur l'évènement activation du
formulaire :
Private Sub Form_Current()
Dim moncontrol As Control
For Each moncontrol In Me.Controls
If moncontrol.Name <> "Cocher35" Then
moncontrol.Enable = Me.Cocher35
End If
Next
End Sub
Quand j'ouvre le formulaire j'ai un message Propriété ou méthode non
gérée par cet objet.
D'où vient l'erreur ?
Salut,
Cela provient du fait que certain controle ne possedent pas la
propriete
enable. (les etiquettes par exemple)
Il faudrait donc creuser pour savoir comment connaitre la nature du
controle ou, mais c'est pas beau, mettre un On error resume next au
début du code.
Bonjour,
En plus, je pense qu'il faut mettre EnableD et non Enable
Qu'en pensez-vous ?
--
A+
Erichttp://www.mpfa.info/
Archives
:http://groups.google.fr/group/microsoft.public.fr.access?hl=fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://groups.google.fr/group/microsoft.public.fr.access?hl=fr-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
re,
Là encore, si je peux, je virerai la parenthèse ouvrante sur la ligne du
If ou alors j'en rajouterai une fermante avant le Then
Pour une question d'équilibre ;-)
Ps: oui, je sais, c'est Michel l'instigateur
Fabien a écrit :Et plus encore ;-)
Private Sub Form_Current()
> Dim oCtrl As control
> For Each oCtrl In Me.Controls
> If (oCtrl.Name<>"Cocher35" And oCtrl.ControlType<>acLabel Then
> oCtrl.Enabled = Not(Cocher35 = -1)
> End If
> Next
> End Sub
Michel_D a écrit :Bonjour,
Voici une variante.
Private Sub Form_Current()
Dim oCtrl As control
For Each oCtrl In Me.Controls
If (oCtrl.Name<>"Cocher35" And oCtrl.ControlType<>acLabel Then
If Cocher35 = -1 Then
oCtrl.Enabled = False
Else
oCtrl.Enabled = True
End If
End If
Next
End Sub
"s.jean" a écrit dans le message de
news:
Bonjour,
Je pense également que ça bugue sur
moncontrol.Enable = Me.Cocher35
peut être parce que enable est de type vrai/faux et cocher35 de type
0/-1 (oui/non).
Si je mets ce code sur l'activation et l'afterupdate de cocher35 ça
marche :
Private Sub Form_Current()
Dim moncontrol As control
For Each moncontrol In Me.Controls
If (moncontrol.Name <> "Cocher35" And moncontrol.ControlType
<> acLabel And Cocher35 = -1) Then
moncontrol.Enabled = False
Else
If (moncontrol.Name <> "Cocher35" And
moncontrol.ControlType <> acLabel And Cocher35 = 0) Then
moncontrol.Enabled = True
End If
End If
Next
End Sub
Peut-on simplifier ce code ?
Merci
Sandrine
On 17 juin, 12:46, Eric wrote:Fabien a écrit :s.jean a écrit :Bonjour,
J'ai donc mis le code suivant sur l'évènement activation du
formulaire :
Private Sub Form_Current()
Dim moncontrol As Control
For Each moncontrol In Me.Controls
If moncontrol.Name <> "Cocher35" Then
moncontrol.Enable = Me.Cocher35
End If
Next
End Sub
Quand j'ouvre le formulaire j'ai un message Propriété ou méthode non
gérée par cet objet.
D'où vient l'erreur ?
Salut,
Cela provient du fait que certain controle ne possedent pas la
propriete
enable. (les etiquettes par exemple)
Il faudrait donc creuser pour savoir comment connaitre la nature du
controle ou, mais c'est pas beau, mettre un On error resume next au
début du code.
Bonjour,
En plus, je pense qu'il faut mettre EnableD et non Enable
Qu'en pensez-vous ?
--
A+
Erichttp://www.mpfa.info/
Archives
:http://groups.google.fr/group/microsoft.public.fr.access?hl=fr-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
re,
Là encore, si je peux, je virerai la parenthèse ouvrante sur la ligne du
If ou alors j'en rajouterai une fermante avant le Then
Pour une question d'équilibre ;-)
Ps: oui, je sais, c'est Michel l'instigateur
Fabien a écrit :
Et plus encore ;-)
Private Sub Form_Current()
> Dim oCtrl As control
> For Each oCtrl In Me.Controls
> If (oCtrl.Name<>"Cocher35" And oCtrl.ControlType<>acLabel Then
> oCtrl.Enabled = Not(Cocher35 = -1)
> End If
> Next
> End Sub
Michel_D a écrit :
Bonjour,
Voici une variante.
Private Sub Form_Current()
Dim oCtrl As control
For Each oCtrl In Me.Controls
If (oCtrl.Name<>"Cocher35" And oCtrl.ControlType<>acLabel Then
If Cocher35 = -1 Then
oCtrl.Enabled = False
Else
oCtrl.Enabled = True
End If
End If
Next
End Sub
"s.jean" <s_jean26@hotmail.com> a écrit dans le message de
news:266b1951-b355-4c2f-9a4f-9d47e7dd021d@d1g2000hsg.googlegroups.com...
Bonjour,
Je pense également que ça bugue sur
moncontrol.Enable = Me.Cocher35
peut être parce que enable est de type vrai/faux et cocher35 de type
0/-1 (oui/non).
Si je mets ce code sur l'activation et l'afterupdate de cocher35 ça
marche :
Private Sub Form_Current()
Dim moncontrol As control
For Each moncontrol In Me.Controls
If (moncontrol.Name <> "Cocher35" And moncontrol.ControlType
<> acLabel And Cocher35 = -1) Then
moncontrol.Enabled = False
Else
If (moncontrol.Name <> "Cocher35" And
moncontrol.ControlType <> acLabel And Cocher35 = 0) Then
moncontrol.Enabled = True
End If
End If
Next
End Sub
Peut-on simplifier ce code ?
Merci
Sandrine
On 17 juin, 12:46, Eric <f_fra...@hotmail.com> wrote:
Fabien a écrit :
s.jean a écrit :
Bonjour,
J'ai donc mis le code suivant sur l'évènement activation du
formulaire :
Private Sub Form_Current()
Dim moncontrol As Control
For Each moncontrol In Me.Controls
If moncontrol.Name <> "Cocher35" Then
moncontrol.Enable = Me.Cocher35
End If
Next
End Sub
Quand j'ouvre le formulaire j'ai un message Propriété ou méthode non
gérée par cet objet.
D'où vient l'erreur ?
Salut,
Cela provient du fait que certain controle ne possedent pas la
propriete
enable. (les etiquettes par exemple)
Il faudrait donc creuser pour savoir comment connaitre la nature du
controle ou, mais c'est pas beau, mettre un On error resume next au
début du code.
Bonjour,
En plus, je pense qu'il faut mettre EnableD et non Enable
Qu'en pensez-vous ?
--
A+
Erichttp://www.mpfa.info/
Archives
:http://groups.google.fr/group/microsoft.public.fr.access?hl=fr-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
re,
Là encore, si je peux, je virerai la parenthèse ouvrante sur la ligne du
If ou alors j'en rajouterai une fermante avant le Then
Pour une question d'équilibre ;-)
Ps: oui, je sais, c'est Michel l'instigateur
Fabien a écrit :Et plus encore ;-)
Private Sub Form_Current()
> Dim oCtrl As control
> For Each oCtrl In Me.Controls
> If (oCtrl.Name<>"Cocher35" And oCtrl.ControlType<>acLabel Then
> oCtrl.Enabled = Not(Cocher35 = -1)
> End If
> Next
> End Sub
Michel_D a écrit :Bonjour,
Voici une variante.
Private Sub Form_Current()
Dim oCtrl As control
For Each oCtrl In Me.Controls
If (oCtrl.Name<>"Cocher35" And oCtrl.ControlType<>acLabel Then
If Cocher35 = -1 Then
oCtrl.Enabled = False
Else
oCtrl.Enabled = True
End If
End If
Next
End Sub
"s.jean" a écrit dans le message de
news:
Bonjour,
Je pense également que ça bugue sur
moncontrol.Enable = Me.Cocher35
peut être parce que enable est de type vrai/faux et cocher35 de type
0/-1 (oui/non).
Si je mets ce code sur l'activation et l'afterupdate de cocher35 ça
marche :
Private Sub Form_Current()
Dim moncontrol As control
For Each moncontrol In Me.Controls
If (moncontrol.Name <> "Cocher35" And moncontrol.ControlType
<> acLabel And Cocher35 = -1) Then
moncontrol.Enabled = False
Else
If (moncontrol.Name <> "Cocher35" And
moncontrol.ControlType <> acLabel And Cocher35 = 0) Then
moncontrol.Enabled = True
End If
End If
Next
End Sub
Peut-on simplifier ce code ?
Merci
Sandrine
On 17 juin, 12:46, Eric wrote:Fabien a écrit :s.jean a écrit :Bonjour,
J'ai donc mis le code suivant sur l'évènement activation du
formulaire :
Private Sub Form_Current()
Dim moncontrol As Control
For Each moncontrol In Me.Controls
If moncontrol.Name <> "Cocher35" Then
moncontrol.Enable = Me.Cocher35
End If
Next
End Sub
Quand j'ouvre le formulaire j'ai un message Propriété ou méthode non
gérée par cet objet.
D'où vient l'erreur ?
Salut,
Cela provient du fait que certain controle ne possedent pas la
propriete
enable. (les etiquettes par exemple)
Il faudrait donc creuser pour savoir comment connaitre la nature du
controle ou, mais c'est pas beau, mettre un On error resume next au
début du code.
Bonjour,
En plus, je pense qu'il faut mettre EnableD et non Enable
Qu'en pensez-vous ?
--
A+
Erichttp://www.mpfa.info/
Archives
:http://groups.google.fr/group/microsoft.public.fr.access?hl=fr-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -