Discussion :

[Alpha31]

Bonsoir, j'ai fait un bouton pour masquer ou afficher un sous formulaire a l'aide d'un click.

j'ai mis ce code sur l'évenement sur clic :

Private Sub LES2_Click()

If (x = 0) Then
Me.SousForm1.Visible = False
x = 1
Else
Me.SousForm1.Visible = True
x = 0
End If

End Sub

mais il me manque l'initialisation de x pour que cela fonctionne, ou doit-je la mettre ?

[Dolphy35]

Salut,

Tu ne peux pas mettre un Toggle se serait plus simple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If MonBoutton = -1then
Me.SousForm.Visible = True
Else
Me.SousForm.Visible = False

[Faw]

Salut, il faut le déclarer au dessus de toutes les sub de ton module
de formulaire.
Que veux-tu faire, une sorte de switch On/off ?

RE ps: Re Dolphy.
Ta solution du switch a juste un petit défaut: si dans une autre procédure
il y a une instruction qui change la propriété .Visible du sous-form, cela
pourrait obliger le user à clicker 2 fois sur le bouton pour avoir le résultat
escompté. Privilégier dans ce cas cette syntaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Bascule0_Click()
Me.sForm.Form.Visible = Not (Me.sForm.Form.Visible)
End Sub

ça marche quelque soit l'état du bouton...

[Alpha31]

Hum, ben c un pb simple ca j'imagine pour ceux ki connaisse Access et la les gars je pige rien a ce que vous me dite, vous compliquez surtout toi Dolphy.

Faw :

Salut, il faut le déclarer au dessus de toutes les sub de ton module
de formulaire.
Que veux-tu faire, une sorte de switch On/off ?

oui (tu a compris je crois) je veux faire un bouton a 2 Etat :
On clique une fois ca masque, on clique une autre fois ca affiche, on clique une autre fois ca masque, on clique une autre fois ca affiche, etc ...

Un cas classique quoi, donc je repete mon code (de 3 liges ):

Private Sub LES2_Click()

If (x = 0) Then
Me.SousForm1.Visible = False
x = 1
Else
Me.SousForm1.Visible = True
x = 0
End If

End Sub

Mais je ne sais pas ou initialiser la première valeur de x, de facon a qu'il soit initialisé a 1 ou a 0 avant que je clique

Ps : Je repete j'ai fait bcp d'autre truc en info mais je découvre access ; ne me parlez pas chinois ...

Thanks, Alpha

[Faw]

C'est pas du chinois. En fait tu n'as pas besoin de te servir d'une variable
pour ce que tu veux faire, mais simplement de dire
En cliquant sur MonBouton, appliquer à la propriété .visible de mon sform
la valeur opposée à sa valeur actuelle. ce qui se traduit par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Bascule0_Click()
Me.sForm.Form.Visible = Not (Me.sForm.Form.Visible)
End Sub

fais un test pour voir

[Dolphy35]

Salut Faw,

Merci pour l'info sur la bascule.

Pour revenir à notre ami je pense qu'il veut faire son animation sur un bouton classique.

Alpha31 :

Met un Bouton à bascule (ToggleButton), ce bouton reste enfoncé lorsque tu as cliqué dessus. Met ensuite le code de Faw il fonctionne à merveille.

http://www.developpez.net/forums/att...1&d=1148473986

[Alpha31]

Ok, merci bien
la j'ai trés bien compris et cela marche parfaitement merci beaucoup

Alpha

[Dolphy35]

Ok, merci bien
la j'ai trés bien compris et cela marche parfaitement merci beaucoup

Alpha

C'est cool. Par contre oublie pas le tag

[monsurf]

...

Met un Bouton à bascule (ToggleButton), ce bouton reste enfoncé lorsque tu as cliqué dessus. Met ensuite le code de Faw il fonctionne à merveille.

http://www.developpez.net/forums/att...1&d=1148473986

salut,

j aimerai bien utiliser ce bouton (ToggleButton), mais je le trouve pas dans la liste de mes controles...
quelqu un peut me dire oú je peut le trouver ?? Merci

PS: le lien posté avant ne fonctionne pas/plus

[Alpha31]

Par contre oublie pas le tag

Heu c koi le tag ?

[monsurf]

click en bas de la page sur un bouton : resolu