[AC-2000] erreur setfocus dans groupe d'options [Résolu]

[atech]

Bonjour,

J'ai un groupe d'options (2 cases à cocher).
Quand la case 2 est cochée, il y a une msgbox qui apparait.
Si l'utilisateur répond non à la question, je veux recocher la case 1 :

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub case2_GotFocus()
quest = MsgBox("blabla ?", vbYesNo + vbDefaultButton2 + vbExclamation)
 
If quest = 6 Then 'oui
 xxxxx
Else
 Me.case1.SetFocus
Endif
 
End sub

Ça plante sur le case1.setfocus : erreur d'exécution 2110, Access ne peut pas activer le contrôle.

Ces 2 cases sont placées dans un groupe d'options, peut-être faut-il en faire mention ? Merci pour les propositions.

[GAYOT]

Bonjour
J'ai l'impression qu'il y a des confusions.
Il faut effectivement jouer sur le groupe d'option.
Chaque case à cocher lui donne une valeur distincte.
Il faut donc créer un évènement sur l'évènement mise à jour du groupe:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub GroupeOption_AfterUpdate()
 
If Me.groupeOption.value = 2  'ou autre valeur
quest = MsgBox("blabla ?", vbYesNo + vbDefaultButton2 + vbExclamation)
 
If quest = 6 Then 'oui
 xxxxx
Else
 Me.groupeOption.value = 1 'ou autre valeur
End if
 
End Sub

[atech]

Merci bien, c'est tout bêtement ça