Gestion du bouton à bascule

8 réponses

Eric RENAUD

11/05/2004 à 17:51

Bonjour,
Je souhaite sous VBA traiter la chose suivante :
Sur un formulaire, j'ai un bouton à bascule. Lorsque je clique sur un bouton
OK, je souhaite en fonction de l'état du bouton bascule faire soit la
procédure 1, soit la procédure 2.
Je ne trouve pas l'astuce.

D'avance merci

8 réponses

Raymond [mvp]

11/05/2004 à 18:00

Bonjour.

il faut tester un événement, par exemple le clic et tester si le bouton est
enfoncé ou non (enfoncé = true)
Private Sub Bascule83_Click()
If Bascule83 Then
' ici la procédure pour bouton appuyé
Else
' ici la procédure pour bouton relevé
End If
End Sub

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"Eric RENAUD" a écrit dans le message de
news:Oq8Vm$

Bonjour,
Je souhaite sous VBA traiter la chose suivante :
Sur un formulaire, j'ai un bouton à bascule. Lorsque je clique sur un
bouton

OK, je souhaite en fonction de l'état du bouton bascule faire soit la
procédure 1, soit la procédure 2.
Je ne trouve pas l'astuce.

D'avance merci

Eric

11/05/2004 à 18:09

"Eric RENAUD" écrivait
news:Oq8Vm$:

Bonjour,
Je souhaite sous VBA traiter la chose suivante :
Sur un formulaire, j'ai un bouton à bascule. Lorsque je clique sur un
bouton OK, je souhaite en fonction de l'état du bouton bascule faire
soit la procédure 1, soit la procédure 2.
Je ne trouve pas l'astuce.

D'avance merci

Bonjour Eric

Si Bascule0 est enfoncé sa propriété value= -1 (Oui) sinon 0 (Faux) donc
sur l'évènement click de Bascule0 tu mets ton code

Private Sub Bascule0_Click()
if Bascule0.value = -1 then
proc1
else
proc2
end if
End Sub

ou
Private Sub Bascule0_click
If Bascule0 then
Proc1
Else
Proc2
end if
End Sub

A+
Eric

Eric

11/05/2004 à 18:13

"Raymond [mvp]" écrivait
news::

Bonjour.

il faut tester un événement, par exemple le clic et tester si le
bouton est enfoncé ou non (enfoncé = true)
Private Sub Bascule83_Click()
If Bascule83 Then
' ici la procédure pour bouton appuyé
Else
' ici la procédure pour bouton relevé
End If
End Sub

Bonjour Raymond

Quand tu reviens, on n'a même plus le temps de répondre ;-(
Me faudrait un lecteur de news qui anticipe les posts sur lesquels je peux
m'exprimer ;-)

A+
Eric

Le méruvien

11/05/2004 à 18:21

bonjour, ton bouton a bascule est dans un groupe d'option, tu met donc:
if [nomdugroupe]=1 then procedure1
if [nomdugroupe]=2 then procedure
roger

"Eric RENAUD" a écrit dans le message de news:
Oq8Vm$

Bonjour,
Je souhaite sous VBA traiter la chose suivante :
Sur un formulaire, j'ai un bouton à bascule. Lorsque je clique sur un
bouton

OK, je souhaite en fonction de l'état du bouton bascule faire soit la
procédure 1, soit la procédure 2.
Je ne trouve pas l'astuce.

D'avance merci

Pierre CFI [mvp]

11/05/2004 à 18:22

t'inquiéte pas Eric, dés que c'est un peu complexe, y a plus de Raymond :o))))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Eric" a écrit dans le message de news:

"Raymond [mvp]" écrivait
news::

Bonjour.

il faut tester un événement, par exemple le clic et tester si le
bouton est enfoncé ou non (enfoncé = true)
Private Sub Bascule83_Click()
If Bascule83 Then
' ici la procédure pour bouton appuyé
Else
' ici la procédure pour bouton relevé
End If
End Sub

Bonjour Raymond

Quand tu reviens, on n'a même plus le temps de répondre ;-(
Me faudrait un lecteur de news qui anticipe les posts sur lesquels je peux
m'exprimer ;-)

A+
Eric

Raymond [mvp]

11/05/2004 à 18:25

Pierre a dit l'autre jour qu'on anticipait et qu'on mettait dans les
archives les réponses aux futures éventuelles questions.

j'étais pas là en début d'après-midi et j'ai trouvé des tas de questions
sans réponses, voilà pourquoi il y a eu une rafale. Comme le dit encore
Pierre, j'ai 3 secrétaires des îles qui surveillent les posts et c'est un
sacré bouleau de surveiller tout ce personnel.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"Eric" a écrit dans le message de
news:

Bonjour Raymond

Quand tu reviens, on n'a même plus le temps de répondre ;-(
Me faudrait un lecteur de news qui anticipe les posts sur lesquels je peux
m'exprimer ;-)

A+
Eric

Raymond [mvp]

11/05/2004 à 18:30

de quoi s'agit-il ? une manifestation ?
non sire , une révolution !
je sens que je vais ventiler, éparpiller.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"Pierre CFI [mvp]" a écrit dans le message de
news:uK8$

t'inquiéte pas Eric, dés que c'est un peu complexe, y a plus de Raymond
:o))))

--
Pierre CFI

Pierre CFI [mvp]

11/05/2004 à 18:31

sacré bouleau de surveiller
Raymond, toi mon frére

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Raymond [mvp]" a écrit dans le message de news:%

Pierre a dit l'autre jour qu'on anticipait et qu'on mettait dans les
archives les réponses aux futures éventuelles questions.

j'étais pas là en début d'après-midi et j'ai trouvé des tas de questions
sans réponses, voilà pourquoi il y a eu une rafale. Comme le dit encore
Pierre, j'ai 3 secrétaires des îles qui surveillent les posts et c'est un
sacré bouleau de surveiller tout ce personnel.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"Eric" a écrit dans le message de
news:
Bonjour Raymond

Quand tu reviens, on n'a même plus le temps de répondre ;-(
Me faudrait un lecteur de news qui anticipe les posts sur lesquels je peux
m'exprimer ;-)

A+
Eric

Gestion du bouton à bascule

8 réponses

Veuillez sélectionner un problème