OVH Cloud OVH Cloud

activation sur condition

8 réponses
Avatar
marco
Bonjour,
Je cherche =E0 activer un bouton si la case 'case' est=20
coch=E9. Quelle est la formule ?

merci
marco

8 réponses

Avatar
Xavier HUE
Bonjour marco,

If Me.TonControleCaseàCocher = True Then
Me.TonBouton.Enabled = True
Else
Me.TonBouton.Enabled = False
End If

Ou plus direct:
Me.TonBouton.Enabled = Me.TonControleCaseàCocher.Value

Cordialement.
Avatar
Raymond
Bonjour.

je pense que tu veux dire, rendre visible ou non le bouton, ou, valider ou
non le bouton ?
la case étant du type boolean, et les propriétés du bouton aussi tu peux
charger directement la valeur de la case dans la propriété.

Pour valider le bouton:
Private Sub Case_AfterUpdate()
Me.Commande0.Enabled = Me.Case
End Sub

pour rendre visible le bouton
Private Sub Case_AfterUpdate()
Me.Commande0.Visible = Me.Case
End Sub

j'ai employé case pour employer le même mot que toi, mais ce mot est un mot
réservé access et il ne faut pas l'employer en tant que nom de contrôle;
choisis plutôt Cocher.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"marco" a écrit dans le message de
news:1b8701c37388$4f9028a0$
Bonjour,
Je cherche à activer un bouton si la case 'case' est
coché. Quelle est la formule ?

merci
marco
Avatar
marco
merci xavier,
(désolé pour mon faible niveau) mais où mets je ce code ?

-----Message d'origine-----
Bonjour marco,

If Me.TonControleCaseàCocher = True Then
Me.TonBouton.Enabled = True
Else
Me.TonBouton.Enabled = False
End If

Ou plus direct:
Me.TonBouton.Enabled = Me.TonControleCaseàCocher.Value

Cordialement.
.



Avatar
Raymond
Bonjour.

je pense que tu veux dire, rendre visible ou non le bouton, ou, valider ou
non le bouton ?
la case étant du type boolean, et les propriétés du bouton aussi tu peux
charger directement la valeur de la case dans la propriété.

Pour valider le bouton:
Private Sub Case_AfterUpdate()
Me.Commande0.Enabled = Me.Case
End Sub

pour rendre visible le bouton
Private Sub Case_AfterUpdate()
Me.Commande0.Visible = Me.Case
End Sub

j'ai employé case pour employer le même mot que toi, mais ce mot est un mot
réservé access et il ne faut pas l'employer en tant que nom de contrôle;
choisis plutôt Cocher.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"marco" a écrit dans le message de
news:1b8701c37388$4f9028a0$
Bonjour,
Je cherche à activer un bouton si la case 'case' est
coché. Quelle est la formule ?

merci
marco
Avatar
Xavier HUE
Re,

(désolé pour mon faible niveau) mais où mets je ce code ?
Comme dirait un contributeur régulier (j'ai oublié qui,

désolé!), on a tous débuté un jour, donc, pas de quoi être
désolé. Ce forum est là pour ça.

Ceci étant, Raymond a été plus précis que moi.
Vois sa réponse.

Juste en complément, quand tu es en mode Création sur ton
formulaire, clique une fois sur ta case à cocher, puis,
dans la fenêtre des propriétés, dans l'onglet Evènement,
clique dans l'évènement après mise à jour, puis sur le
bouton "3 points" à droite de la zone.
Dans la boite de dialogue qui s'affiche, choisi "module",
et tu pourras tapoter le code code VBA proposé par Raymon,
ou le mien.

Cordialement.

Avatar
marco
ok merci
cependant voici le pb:
Il active le bouton si la case est coché pour
l'enregistrement en cours (ok)
Mais si je passe à l'enregistrement suivant, il va garder
le bouton activé alors que la case n'est pas cochée.
Que faire ?

marco

-----Message d'origine-----
Re,

(désolé pour mon faible niveau) mais où mets je ce
code ?


Comme dirait un contributeur régulier (j'ai oublié qui,
désolé!), on a tous débuté un jour, donc, pas de quoi
être

désolé. Ce forum est là pour ça.

Ceci étant, Raymond a été plus précis que moi.
Vois sa réponse.

Juste en complément, quand tu es en mode Création sur ton
formulaire, clique une fois sur ta case à cocher, puis,
dans la fenêtre des propriétés, dans l'onglet Evènement,
clique dans l'évènement après mise à jour, puis sur le
bouton "3 points" à droite de la zone.
Dans la boite de dialogue qui s'affiche, choisi "module",
et tu pourras tapoter le code code VBA proposé par
Raymon,

ou le mien.

Cordialement.

.




Avatar
marco
Malheureusement, je n'ai pas "Sur activation" dans ma
liste. (access 97)
J'ai "sur touche activée" ou "sur entrée" mais ca ne
marche pas...
ou cours-je?

-----Message d'origine-----
Re,

Dans l'évènement du Formulaire "Sur Activation", place le
même code que dans l'évènement Après mise à jour de ta
case à cocher.

"Sur Activation" du formulaire déclenche à chaque
changement d'enregistrement.

Prochaine réponse lundi because Week-End.
Ou bien poste un nouveau message si tu as encore des
difficultés.

Cordialement.

.



Avatar
Raymond
Place la dans Form_Current() qui est déclanché a chaque changement.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"marco" a écrit dans le message de
news:28e601c37398$40050580$
Malheureusement, je n'ai pas "Sur activation" dans ma
liste. (access 97)
J'ai "sur touche activée" ou "sur entrée" mais ca ne
marche pas...
ou cours-je?