Discussion :

[yoldz]

salut tout le monde

et merci d'avance

[Jean-Philippe André]

bonjour,
je ne suis pas sûr d'avoir saisi, mais dans le doute je te donne un exemple de ce que je crois être ce que tu cherches :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
MsgBox "Plop1"
CommandButton1_Change
End Sub
 
Private Sub CommandButton1_Change()
MsgBox "Plop2"
End Sub

[Invité]

Bonjour

Précise quel type d'évènements, car tu peux avoir des intéractions, par exemple un double-click ne pourra se produire si tu mets du code dans le click.

Starec

[yoldz]

ok starec,

en fait j'ai un formulaire F1 dans lequel j'ai inséré des boutons bascule dans un filtre et je veux a partir de ce bouton effectuer 2 evenements:

le premier evenement :en cliquant sur ce meme bouton un formulaire F2 de login et mot de passe s'ouvre, apres avoir s'authentifier correctement et valider, on se trouve de nouveau dans le formulaire initial F1 et face au meme bouton bascule et c a partir de là

le deuxieme evenement apparait, en recliquant sur le bouton je veux que le fitre s'applique.

comment dois je faire?
j'espere que c clair mnt

[electrosat03]

Salut,

Pourquoi ne pas mettre un compteur qui s'incrémante à chaque click.

Variable varclickNum=0 --> 1°click place la variable à 1
2° click place la variable à 2
Tu fais une vérif sur le compteur pour exécuter le code que tu veux.

Remettre la variable à 0 à la sortie du form ou la fermeture d'access, à toi de voir.

A+

[yoldz]

salut electrosat03

je te comprends pas pasque chui nulle en VBA et chui debutante en acces donc à peine je vous suit
peux tu me donner un bout de code ou m'expliquer encore plus
merci

[electrosat03]

Ok,

Tu place en début de code dans un module standard la variable Public VarPublicCompteClick as integer

Donc dans événement form load de ton form F1: dans la procédure, tu place le code VarPublicCompteClick =0
Dans la procédure sur click de ton form F1 tu mets : VarPublicCompteClick =VarPublicCompteClick +1 (donc elle vaudra 1 quand tu clickera la première fois.
Là, tu met une vérif de la valeur pour voir se que le code doit exécuter :

If VarPublicCompteClick =1 then openform le nom de ton form F2
....
....
endif

If VarPublicCompteClick =2 then
....
....
endif

maintenant, si tu peux faire plusieurs click après le premier, met If VarPublicCompteClick =>2 then
....
....
endif

La valeur de VarPublicCompteClick se remet à 0 si tu ferme puis réouvre ton form F1

Voilà
A+

[yoldz]

resalut electrosat03
sinon ya pas autre solution pour utiliser le meme bouton deux fois de suite et a chaque fois pour un evenement independant

[electrosat03]

Re,

Ben je ne pense pas, mais attend les autres avis.

A+

[loufab]

resalut electrosat03
sinon ya pas autre solution pour utiliser le meme bouton deux fois de suite et a chaque fois pour un evenement independant

Bonjour,

Moi elle me plait bien la solution de Electro03.

Elle te gène ?

Cordialement,

[francishop]

Bonjour,

Une solution possible :

Un bouton-->CmdChange avec pour légende :"Votre mot de passe"

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CmdChange_Click()
 If Me.CmdChange.Caption = "Votre mot de passe" Then
    Me.CmdChange.Caption = "Accéder à la base"
'Exécution du code associé
 Else
    Me.CmdChange.Caption = "Votre mot de passe"
'Exécution du code associé
 End If
End Sub

Cordialement.

[Faw]

Salut,
s'agissant d'un bouton on pourrait simplement jouer sur sa "polarité" :
Enfoncé il est = -1
Relâché il est = 0

[yoldz]

resalut a tout le monde,

Bon, je reformule ma question,en fait j'ai voulu lorsque je clique une premiere fois sur le bouton il m'affiche la fenetre de login et je valide et lors du 2 eme clik le filtre se declenche,
je vous livre le code la :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Ctl1101_GotFocus()
 
  VarPublicCompteClick = VarPublicCompteClick + 1
   If VarPublicCompteClick = 1 Then
      Me.Requery
      Me.Refresh
      Dim stDocName As String
      Dim stLinkCriteria As String
      stDocName = "F_Login"
      DoCmd.OpenForm stDocName, , , stLinkCriteria
      'DoCmd.Close acForm, "Menu Général"
 
Exit Sub
    End If
 
    If VarPublicCompteClick = 1 Then
      DoCmd.RunMacro ("droulante.Bouton  Alpha")
    End If
 
End Sub

Et voila ci joint une premiere capture ecran pour pouvoir comprendre de quoi il s'agit
il ya dedans des boutons normalement c'est eux qui me permettent de faire le filtre,mais avec ce bout code que je t'ai affiché dessus,
je passe plus par le filtre en premier lieu autrement dit maintenant lorsque je clique par exp sur le bouton 1101(voir piece jointe) la fenetre de login s'ouvre : je m'inscris et je valide je me retrouve dans le form initial PGC et donc je reclique sur le meme bouton 1101 pour me faire le fitre.
jusqu'au là c bon.

mais le probleme mnt:

comment faire (une boucle ou autre chose pareille) de façon qu'en passant à un 2eme bouton ou n ème bouton et revenant sur un autre, on gardera tjrs le mem principe :
1) ouverture de form login ,
2)filtre quelque soit le bouton(voir piece jointe 2)