[Toutes versions] Groupe d' option valeur [Résolu]

[Aladin_23]

Bonsoir le forum
Je reviens sur le forum avec un sujet de case d' options que j' avais abordé et et que j' avais abandonné.
Je le reprend car je veux essayé de le finalisé. Ci joint le code placé sur aprs maj du controle d' option

Code :

1
2
3
4
5
6
7
8
9
10
11
Dim M As String
Dim S As String
Dim J As String
M = 1
S = 2
J = 3
Select Case Abscences
    Case 1: [Soir ou Matin] = "M"
    Case 2: [Soir ou Matin] = "S"
    Case 3: [Soir ou Matin] = "J"
End Select '

1) 1 groupe d' option de trois bouton avec comme valeur 1, 2, 3
2) Un Champ [Soir ou Matin]
3) En selectionnant un bouton il prend comme valeur soit M, Soit J (Ces valeurs sont stocké dans le champ [Soir ou Matin]
4) Jusque la tout va bien lorsque l' on fait de la saisie
5) Le pb c' est que lorsquel' on ouvre le formulaire et qu' il existe des enregistrement en mode visualisation, les boutons restent neutres.
Comment faire pour dire au contole d' option si c' est M qui est dans le champ [Soir ou Matin] ce sera le bouton d' option ayant la valeur 1 qui sera active, de même pour les autres

merci d' avance pour toute aide
Aladin

[tee_grandbois]

Bonsoir,
Tu places le code ci-dessous sur l'événement Current du formulaire

Code :

1
2
3
4
5
Select Case Me.[Soir ou Matin]
    Case "M": Me.[Abscences] = 1
    Case "S": Me.[Abscences] = 2
    Case "J": Me.[Abscences] = 3
End Select

Si, bien sûr, Abscences est le cadre de ton groupe d'options. Dans ce cas, pour la saisie, je suppose que tu as mis ton code sur l'événement Before Update de Abscences.

[Aladin_23]

Bonjour tee_grandbois et le forum
Merci de pour ta réponse, le test est ok, je n' ai pas pensé à faire l' inverse, je pensais partir sur une solution du type if.
Aladin