Groupe d'options et bouton radio

**climz** · 30/05/2006, 08h36

Bonjour
J'aimerai savoir si lorsque vous crée un Groupe d'option vous avez des evenements Clic sur les boutons radio ? car moi je n'est que :"Focus" " Souris appuyée relaché deplacé" et du coup et c'est assez étrange je clic une fois le bouton est activé ( enfin le rond se rempli de noir ) et il me faut un second clic pour que dans mon code le changement soi pri en compte.
J'espere avoir été claire sinon je developperé

Merci à vous tous

**973thom** · 30/05/2006, 08h47

J'ai eu ce genre de pb il y a deux jours
En fait il vaut mieux baser ta procédure sur le cadre que sur le bouton radio lui même.

Le cadre contenant les boutons radio du groupe d'option s'appelle par défaut cadrexx...

Ensuite pour connaitre la valeur qu'a pris le cadre il faut faire un truc du genre :

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
24
25
26
27
' Choix du classement des données
    Select Case OPTION_CLASS
       Case 1
            OrdreSQL = "ORDER BY PROPRIO"
        Case 2
            OrdreSQL = "ORDER BY NUM_PAR"
        Case 3
            If Me.chk_commune.Value = False Then
                Me.chk_commune.Value = True
            End If
            OrdreSQL = "ORDER BY COMMUNE_NOM"
        Case 4
            If Me.CHK_ZONE_ETUDE.Value = False Then
                Me.CHK_ZONE_ETUDE.Value = True
            End If
            OrdreSQL = "ORDER BY ZONE_NOM"
        Case 5
            If Me.CHK_PROPOSITION.Value = False Then
                Me.CHK_PROPOSITION.Value = True
            End If
            OrdreSQL = "ORDER BY PROPOSITION_LIB"
        Case 6
            If Me.CHK_AVIS.Value = False Then
                Me.CHK_AVIS.Value = True
            End If
         OrdreSQL = "ORDER BY AVIS_CAF_LIB"
    End Select

Les valeurs que prend le cadre sont définies lors de la création du groupe d'option (cf l'assistant)

J'espère que moi aussi j'ai été clair..

**Kyrha** · 30/05/2006, 08h49

Bonjour
personnellement je n'utilise pas de condition sur un evenement

tout comme pour la recherche multicritere j'utilise plutot
l'indice du bouton radio

voici un exemple

Code :

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

1
2
3
4
5
6
7
8
 
Dim intOpeChamp As Integer
intOpeChamp = Me.opt_option
Select Case intOpeChamp
                    Case 1 
                    Case 2 
                    Case 3 
                    Case 4             End Select

il n'y a plus qu'à remplir chaque cas avec ton code où "opt_option" est
ton groupe d'option

en espérant tavoir aidé et de ne pas m'etre tromper

Kyrha

**climz** · 30/05/2006, 09h23

Tout d'abord merci de vos réponse
J'avai lu ton post hier et j'ai essayé de suivre ce que tu avai fait Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
 
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

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
 
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

Si vous voyez ou est le problèmes ?

**Kyrha** · 30/05/2006, 09h32

Alors moi je pense que ton premier code n'est pas utile
mais qu'il faut plutot mettre ton select sur une condition after update

Kyrha

**climz** · 30/05/2006, 09h34

C'est a dire tu fai ca comment ?

**Kyrha** · 30/05/2006, 09h37

Je pense qu'il faut faire comme 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
 
Private Sub Option_consult_AfterUpdate()
 
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

mais je peux me tromper je ne suis pas expert...

Kyrha

**climz** · 30/05/2006, 10h01

Hé bien ecoute
GENIAL ca marche trés trés bien merci beaucoup à toi

**sellig60** · 10/06/2006, 10h32

Bonjour à tous
Je viens de lire les posts précédents en espérant trouver une réponse à mon pb simple mais que je n'arrive pas à résoudre

Voilà:
J'ai deux groupes d'options de trois boutons radio chacun.
Le premier s'appelle cdr_orientation avec les boutons suivants: opt_egpa; opt_maintien et opt_mdph . Ces boutons radio remplissent un champ nommé "orientation" avec les valeurs suivantes: 1, 2, 3
Le second groupe s'appelle cdr_affectation avec les trois boutons radio suivant: opt_segpa; opt_erea et opt_college. Ces boutons radio remplissent un champ nommé "affectation" avec les valeurs suivantes: 1, 2, 3.
Certaines combinaisons ne sont pas possibles, d'autres sont automatiques. Des valeurs contenues dans les champs "orientation" et "affectation" dépendent des requêtes qui vont donner des états. Je veux sécuriser la saisie selon le tableau suivant:
si opt_egpa (de cdr_orientation) alors not opt_college (de cdr_affectation)
si opt_maintien (de cdr_orientation) alors opt_college (de cdr_affectation)
si opt_mdph (de cdr_orientation) alors not opt_college, not opt_segpa ni not opt_erea (de cdr_affectation)
et je veux donc que la sélection (le point noir!) se mette sur le bon bouton radio.
En lisant les posts ci-dessus, j'ai essayé ceci (qui ne marche pas!):
Private Sub cdr_orientation_Click()
Select Case cdr_orientation
Case 1
Me.opt_maintien.Value = True
Me.opt_college.Value = True
Case 2
Me.opt_mdph.Value = True
Me.opt_college.Value = False
Me.opt_erea.Value = False
Me.opt_segpa.Value = False
Case 3
Me.opt_egpa.Value = True
Me.opt_college.Value = False
End Select
End Sub
Je l'ai essayé sur un afterupdate() aussi mais j'obtiens une erreur 2448.
"Impossible d'attribuer une valeur à cette objet".
Devant cette impasse, je me tourne vers vous pour essayer de comprendre ce que j'ai oublié (ou que je ne connais pas).
Merci d'avance de votre aide.
Sellig60
Oise