[Catégorie modifiée VB6 -> VBA] groupe d'options

Résolu
jojo076 Messages postés 2 Date d'inscription vendredi 5 juin 2009 Statut Membre Dernière intervention 23 décembre 2011 - 23 déc. 2011 à 14:57
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 - 23 déc. 2011 à 17:11
Bonjour tout le monde,
Je suis novice dans la programmation sur Access 2010. J'ai réalisé un groupe d'options (4 choix : A, B C et D) dans un formulaire.
A ces 4 choix, je veux y affecter une valeur (0,25 pour A ; 0,5 pour B ; 1 pour C et 2 pour D). Comment fait-on ?
Pour finir, je souhaite mettre le chiffre sélectionné par l'option choisie dans une zone de texte (sans doute dans "source de contrôle") mais je n'arrive pas à générer une expression. Comment faire ?
J'espère que j'ai été assez clair.
Merci d'avance.

Jojo

3 réponses

cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
23 déc. 2011 à 16:29
Salut

Le VB des suites office est du VBA, )pas du VB6 (catégorie)

De quel type sont tes "choix" ?
Des cases à cocher ou des boutons d'option ?
Peut-il y en avoir plusieurs de valides en même temps ?

Puisqu'il n'existe pas d'indexation de composant possible sous VBA, il te faut nommer chaque composant :
Pour extraire ton chiffre (cas d'un unique choix) :
Select Case True
    Case monOption1.Value : monChiffre = 0.25
    Case monOption2.Value : monChiffre = 0.5
    Case monOption3.Value : monChiffre = 1
    Case monOption4.Value : monChiffre = 2
End Select
.Value et True dépendent du type d'objet utilisé - à adapter

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
3
jojo076 Messages postés 2 Date d'inscription vendredi 5 juin 2009 Statut Membre Dernière intervention 23 décembre 2011
23 déc. 2011 à 16:52
Merci. Mes choix sont "boutons d'option".
Une fois que j'ai fais cette manip, comment je peux récupérer dans une étiquette indépendante, soit 0,25, soit 0,5, soit 1 ou soit 2. Merci d'avance.

Jojo
0
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
23 déc. 2011 à 17:11
Les lignes que je t'ai proposées range ce chiffre dans une variable que j'ai appelée monChiffre.
Simple de l'envoyer vers un objet, non ?

Ton étiquette a un nom.
Je ne suis pas familier du VBA de Access et je ne sais pas ce qu'est une étiquette. Je suppose que c'est un Label.
Dans ce cas, il suffit de remplacer monChiffre par monLabel.Caption ou .Text, à voir.
0
Rejoignez-nous