cs_akzo
Messages postés133Date d'inscriptiondimanche 23 juin 2002StatutMembreDernière intervention 3 janvier 2015
-
25 juin 2004 à 20:15
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 2006
-
28 juin 2004 à 16:48
Dim variable As String
Dim x, y, z
Dim w As String
x = 1
For y = 0 To 9 Step 1
For z = 0 To 8 Step 1
variable = "" & "champ reference" & "='" & x & "'"
If x > 90 Then Exit Sub
Data1.Recordset.FindFirst variable
w = ""
w = "A" & y & " (" & z & ")"
w = Data1.Recordset.Fields("champ de recherche").Value
x = x + 1
next z, y
alors mes textbox se nomme a0(0).......a0(9)
a1(0).......a1(9)
etc ......
j'ai fait avec des boucle for next le changement de la variable w
ensuite normalement je devrais ecrire
a0(0)=data1.recorset.fields(........
dans ce ca ok ca fonctionne mais si je remplace
a0(0) par w ca ne fonctionne plus alors que w est bien egale a a0(0)
qui pourrais m'aider je pense que c'est pas grand chose mais je ne connais pas toutes les syntaxes
cs_dragon
Messages postés2336Date d'inscriptionsamedi 14 juillet 2001StatutMembreDernière intervention 5 mai 20096 25 juin 2004 à 21:54
w = ""
w = "A" & y & " (" & z & ")"
w =
ça se peut pas
For y = 0 To 9
variable = "" & "champ reference" & "='" & x & "'"
If x > 90 Then Exit Sub
A1(y) = Data1.Recordset.Fields("champ de recherche").Value
next y