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

Signaler
Messages postés
2
Date d'inscription
vendredi 5 juin 2009
Statut
Membre
Dernière intervention
23 décembre 2011
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
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

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
70
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)
Messages postés
2
Date d'inscription
vendredi 5 juin 2009
Statut
Membre
Dernière intervention
23 décembre 2011

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
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
70
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.