bonjour,
je vous livre une partie de mon code :Mon probleme est que je veut affecter a la variable dont le nom est contenu dans la variable "var" (type string) une valeur .
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
33 For i = 1 To RS1L Step 1 ty = RS1.Fields("TYPE").Value st = RS1.Fields("SOUS TYPE").Value arg = RS1.Fields("REF").Value If arg = "NB" Then Else If ty = "PP" Then If st = "TR" Then x = 3 Else x = 2 End If ElseIf ty = "TR" Then x = 3 ElseIf ty = "AF" Then x = 4 End If For J = 1 To 8 Step 1 If para(J, x) <> "" Then rec = para(J, x) & arg For k = 1 To 12 Step 1 var = para(J, 1) & "(" & k & ")" champ = "champ" & k + 2 set #var = RS1.Fields(champ).Value Next k Else End If Next J End If RS1.MoveNext Next i
est ce que quelqu'un ici sait comment faire ?
merci
Franck
Partager