OVH Cloud OVH Cloud

Faire un stop/break

3 réponses
Avatar
Nico
Salut,

Je souhaite faire stoper l'executionde mon code si les condition son
atteinte

Etiquette32.Visible = DEC.value =11 OR DEC.value = 12
Etiquette32.Visible = Not Etiquette32.Visible
'si c'est 11 ou 12 alors arrete sinon...
Etiquette32.Visible = DEC.value =3 OR IsNull(DEC)
Etiquette32.Visible = Not Etiquette32.Visible
'si c'est 3 ou null arrete sinon....

Sinon la solution c'est :

Etiquette32.Visible = (DEC.value =11 OR DEC.value = 12) AND (DEC.value =3 OR
IsNull(DEC)
Etiquette32.Visible = Not Etiquette32.Visible

Mais j'ai 20 valeurs de DEC differentes donc ca risque de pas etre tres
lissible a la fin...
Ne peut on pas lui faire arreter le traitement a partir du moment ou la
condition est atteinte ??

Merci
Nico

3 réponses

Avatar
RaphK34
Salut

Et pourquoi ne pas rajouté un EndSub ou EndFunction à la fin de tes
conditions ...

--
@+ Raph.

--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------



"Nico" a écrit dans le message de
news:
| Salut,
|
| Je souhaite faire stoper l'executionde mon code si les condition son
| atteinte
|
| Etiquette32.Visible = DEC.value  OR DEC.value = 12
| Etiquette32.Visible = Not Etiquette32.Visible
| 'si c'est 11 ou 12 alors arrete sinon...
| Etiquette32.Visible = DEC.value =3 OR IsNull(DEC)
| Etiquette32.Visible = Not Etiquette32.Visible
| 'si c'est 3 ou null arrete sinon....
|
| Sinon la solution c'est :
|
| Etiquette32.Visible = (DEC.value  OR DEC.value = 12) AND (DEC.value =3
OR
| IsNull(DEC)
| Etiquette32.Visible = Not Etiquette32.Visible
|
| Mais j'ai 20 valeurs de DEC differentes donc ca risque de pas etre tres
| lissible a la fin...
| Ne peut on pas lui faire arreter le traitement a partir du moment ou la
| condition est atteinte ??
|
| Merci
| Nico
|
|
|
Avatar
Nico
Boujour

Parce que si je fais....ca marche pas !!

Private Sub Form_Current()
| Etiquette32.Visible = DEC.value  OR DEC.value = 12
| Etiquette32.Visible = Not Etiquette32.Visible
End Sub

Private Sub Form_Current()
| 'si c'est 11 ou 12 alors arrete sinon...
| Etiquette32.Visible = DEC.value =3 OR IsNull(DEC)
| Etiquette32.Visible = Not Etiquette32.Visible
End Sub


Je suis pas bien doué en VB donc ptetre que j'ai loupé une étape ??
Merci par avance
Nico




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

Salut

Et pourquoi ne pas rajouté un EndSub ou EndFunction à la fin de tes
conditions ...

--
@+ Raph.

--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------



"Nico" a écrit dans le message de
news:
| Salut,
|
| Je souhaite faire stoper l'executionde mon code si les condition son
| atteinte
|
| Etiquette32.Visible = DEC.value  OR DEC.value = 12
| Etiquette32.Visible = Not Etiquette32.Visible
| 'si c'est 11 ou 12 alors arrete sinon...
| Etiquette32.Visible = DEC.value =3 OR IsNull(DEC)
| Etiquette32.Visible = Not Etiquette32.Visible
| 'si c'est 3 ou null arrete sinon....
|
| Sinon la solution c'est :
|
| Etiquette32.Visible = (DEC.value  OR DEC.value = 12) AND (DEC.value
=3
OR
| IsNull(DEC)
| Etiquette32.Visible = Not Etiquette32.Visible
|
| Mais j'ai 20 valeurs de DEC differentes donc ca risque de pas etre tres
| lissible a la fin...
| Ne peut on pas lui faire arreter le traitement a partir du moment ou la
| condition est atteinte ??
|
| Merci
| Nico
|
|
|




Avatar
3stone
Salut,

"Nico"
Je souhaite faire stoper l'executionde mon code si les condition son
atteinte

Etiquette32.Visible = DEC.value  OR DEC.value = 12
Etiquette32.Visible = Not Etiquette32.Visible
'si c'est 11 ou 12 alors arrete sinon...
Etiquette32.Visible = DEC.value =3 OR IsNull(DEC)
Etiquette32.Visible = Not Etiquette32.Visible
'si c'est 3 ou null arrete sinon....
<snip>



If ... then
...
elseif .... then
...
elseif ... then
...
end if


Non ?


;-))


--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome