Discussion :

[Gaston62]

Bonjour à tous,

Je voudrais utiliser la chaîne de caractères d'une variable (string) comme nom de variable (existante).
Comment dois-je proceder ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Option Compare Database
Dim lastChecked As String
 
Private Sub chkBox1_Click()
    lastChecked = "chkBox1"
    Call Filtre1
End Sub
 
Private Sub chkBox2_Click()
    lastChecked = "chkBox2"
    Call Filtre1
End Sub
 
Private Sub chkBox3_Click()
    lastChecked = "chkBox3"
    Call Filtre1
End Sub
 
Private Sub chkBox4_Click()
    lastChecked = "chkBox4"
    Call Filtre1
End Sub
 
Private Sub Filtre1()
.
.       'Quelque part dans le code :
.
	Me.chkBoxX.Value = False		'utiliser la variable (string) dans la déclaration pour obtenir par exemple "Me.chkBox3.Value = False" lorsque "lastChecked" = "chkBox3"
.
.
.
End Sub

Pour éviter ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    If lastChecked = "chkBox1" Then
    Me.chkBox1.Value = False
    ElseIf lastChecked = "chkBox2" Then
    Me.chkBox2.Value = False
    ElseIf lastChecked = "chkBox3" Then
    Me.chkBox3.Value = False
    ElseIf lastChecked = "chkBox4" Then
    Me.chkBox4.Value = False
	End If

[tee_grandbois]

bonjour,
il faut utiliser la propriété controls() du formulaire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Controls(lastChecked) = False

[Gaston62]

Bonjour tee_grandbois,

Merci, c'est simple et ça marche à merveille!

Mais est-il néanmoins possible (pour d'autres cas) de récupérer la chaîne d'une variable string comme nom de variable ?

Gaston

[star]

Bonjour,
La fonction Eval évalue une expression qui génère une chaîne de texte ou une valeur numérique.
Bon DEV
.

[Gaston62]

Merci star.

Cela semble être une bonne piste dans le sens que je voulais.

Je vais regarder ça de plus près en faisant quelques tests.

Bonne fin de journée,
Gaston

[star]

Bonjour,
Serait-ce possible d'avoir un aperçu de la solution adoptée ?
.

[Gaston62]

Bonjour,

Momentanément j'utilise la solution de tee_grandbois, car je n'ai pas encore eu le temps de faire d'autres tests.

Merci quand même et bonne journée,

Gaston

[tee_grandbois]

bonjour,
si c'est le contrôle actif que tu souhaites tester, il existe déjà dans le formulaire en tant que "variable": c'est la propriété ActiveControl du formulaire actif

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub chkBox1_Click()
 
    Call Filtre1 (Screen.ActiveControl.Name)
 
End Sub

et là, plus besoin d'une variable String

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Filtre1(ActivCtl as control)
'...
ActivCtl.Value = False
' ... etc
End sub

il existe également la propriété PreviousControl