Variable Chaîne pour variable de type Entier long

Bonjour,
Je suis un utilisateur de petit niveau de VBA pour Access 2003.
Je souhaite vous exposer un problème qui ne semble pas directement résolvable par lecture des FAQ. Le voici :

Dans un module de formulaire (nommé f), la valeur « X » prise, sur click, d’un contrôle groupe d’options (cases à cocher) est donné par l’expression :
X = f![Sous-Formulaire]![Cocher]
Il s’agit d’une variable définie par Access comme « Entier long ».
Je souhaiterais utiliser cette écriture de variable en définissant le nom du sous-formulaire comme étant lui-même une variable. Il s’agit donc d’utiliser une variable de type chaîne faisant référence au sous-formulaire actif au moment du click.
Je n’ai pas réussi à trouver l’écriture me permettant cela. Pouvez-vous m’aider ?

Bonjour,

Je ne suis pas sûr de tout comprendre, notamment

Citation:

---

X = f![Sous-Formulaire]![Cocher]

---

et tout spécialement [Sous-Formulaire]

Si j'ai bien compris, tu veux faire référence à la valeur donnée par ton groupe d'options nommé [Cocher] ???

Dans du code, cela pourrait être

Code:

---

1 2	Dim i as Integer i = Me.Cocher

---

Dans lequel Me est une expression qui représente le formulaire courant...

Si ces éléments ne répondent pas à ton problème, il faut que tu sois plus explicite. ;)

"Sous-formulaire" (pour l'exemple) est le nom du sous-formulaire du formulaire "f".
"Cocher" est le nom du groupe d'option (pour l'exemple), contrôle membre du sous-formulaire "Sous-formulaire" .

Pour tenter d'être plus explicite, voici un extrait du code utilisé :

Code:

---

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 28 29 30 31 32 33 34 35 36 37 38

'... SFactes = f![TexteNameSF] 'donne le nom du SF ouvert pour le choix de l'acte (variable de type chaîne)   Select Case SFactes Case "BD_Consultation base" ValGOActe = f![BD_Consultation base]![GoActe] Select Case ValGOActe Case 1 'consultation simple Act = "C": MontantCalculé = ActeC Case 2 'EcG Act = "C + K6.5": MontantCalculé = ActeC + 6.5 * ActK End Select Case "BD_Consultation au 1/10/03" ValGOActe = f![BD_Consultation au 1/10/03]![GoActe] Select Case ValGOActe Case 1 'consultation simple Act = "C": MontantCalculé = ActeC Case 2 'forfait pédiatrique Act = "C+FPE": MontantCalculé = ActeC + FPE Case 3 'EcG Act = "C + K6.5": MontantCalculé = ActeC + 6.5 * ActK End Select Case "BD_Consultation au 1/03/05" ValGOActe = f![BD_Consultation au 1/03/05]![GoActe] Select Case ValGOActe Case 1 'consultation simple Act = "C": MontantCalculé = ActeC Case 2 'majoration nourrisson Act = "C+MNO": MontantCalculé = ActeC + MNO Case 3 'forfait pédiatrique Act = "C+FPE": MontantCalculé = ActeC + FPE Case 4 'EcG Act = "C + K6.5": MontantCalculé = ActeC + 6.5 * ActK End Select Case "BD_Consultation au 15/04/06" ' etc '...

---

Le code (extrait) ainsi écrit fonctionne très bien.

ValGoACte est une variable de type long (défini ainsi par access suivant la fonction VarType).

Pour chaque situation de Select Case, il m'a fallu, pour la variable ValGoActe, écrire le nom du sous-formulaire activé.
J'aurai souhaité pouvoir utiliser la variable SFactes (type Chaîne), qui donne le nom du sous-formulaire actif, pour la définition de ValGoActe. Je n'ai pas trouvé la syntaxe adaptée.

Ceci est-il plus clair ?:cry:
Merci pour la réponse.

Bonjour,

je pense que tu peux utiliser

Code:

---

f.Controls(SFactes).Form.GoActe

---

A+

Cela fonctionne bien et permettra de simplifier le code.
C'est l'occasion également de me familiariser avec les propriétés Controls et Form.
Merci beaucoup pour cette réponse.