Discussion :

[climz]

Bonjour
J'ai crée un groupe d'option qui permet d'afficher les résultats issue de mon formulaire en cherchant par Utilisateurs ou par groupe.
Les 2 bouton radio fon donc apparaitre ou disparaitre la liste déroulante voulu.
Mais pourquoi un double clic sur le bouton change t -il son état ?
j'ai mit ma procèdure sur : " Sur souris appuyé"

Merci

Ps : je vous montre mon code :

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
21
22
23
Private Sub Radio1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Selection
End Sub
 
Private Sub Radio2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Selection
End Sub
Private Sub Selection()
Select Case Option_consult
Case 1 ' Par Utilisateur
    cmbRechNom.Visible = True
    cmbRechGroupe.Visible = False
 
    RefreshQuery
 
 
Case 2 ' Par Groupe
    cmbRechNom.Visible = False
    cmbRechGroupe.Visible = True
 
    RefreshQuery2
End Select
End Sub

[snoopy69]

Question peut-être bête mais pourquoi ne pas mettre ton code sur l'évènement : SUR CLIC ???

C'est nomal que cela réagi au double clique car cela fait partie de l'évènement Sur souris appuyée que cela soit un clic SIMPLE ou alors un DOUBLE clic ...

Déplace ton code et réessaie ... et redonne nous des nouvelles ...

[climz]

Parce que dans les options je n'est pas sur Clic Et quand je le programme ca ne marche pas

Code :

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

1
2
3
4
5
6
7
Private Sub Radio1_Click()
Selection
End Sub
 
Private Sub Radio2_Click()
Selection
End Sub

[snoopy69]

Même si tu fais cela :

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
21
22
23
Private Sub Radio1_Click(Button As Integer, Shift As Integer, X As Single, Y As Single)
Selection
End Sub
 
Private Sub Radio2_Click(Button As Integer, Shift As Integer, X As Single, Y As Single)
Selection
End Sub
Private Sub Selection()
Select Case Option_consult
Case 1 ' Par Utilisateur
    cmbRechNom.Visible = True
    cmbRechGroupe.Visible = False
 
    RefreshQuery
 
 
Case 2 ' Par Groupe
    cmbRechNom.Visible = False
    cmbRechGroupe.Visible = True
 
    RefreshQuery2
End Select
End Sub

ça ne fonctionne pas ... ...

C'est louche tout ça ... ... cela devrait fonctionner pourtant ... ...

[climz]

A ma grande surprise ... Non ca ne marche pas je ne comprend pas pourquoi

Code :

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

1
2
3
4
5
6
7
Private Sub Radio1_Click(Button As Integer, Shift As Integer, X As Single, Y As Single)
Selection
End Sub
 
Private Sub Radio2_Click(Button As Integer, Shift As Integer, X As Single, Y As Single)
Selection
End Sub

Ca ne change dans ma fonction "Selection"

[climz]

Ca me fait pareille avec un bouton à bascule
Est-ce l'outil de microsoft qui deconne ou ma programmation ?