Discussion :

[chris45]

Bonjour,
voila je ne trouve pas la solution, j'ai chercche un peu partout mais sans resultat, bricolé un peu tous se que je pensais, sans resultat non plus
si vous pouviez m'aider je vous en remercie

voici mon code

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
 
Dim xx(200, 200)
Dim Rst As DAO.Recordset, db As DAO.Database
Set db = CurrentDb
 
requete = "SELECT * FROM " & aa
Set Rst = db.OpenRecordset(requete)
 
Rst.MoveFirst
While Not Rst.EOF
 
aa1 = Rst("NoAuto")
aa2 = Rst("etape precedente").Value
aa3 = Rst("etape suivante").Value
 
arrayCheck = IsArray(aa2) 'egal false
 
For Each E2 In aa2
For Each E3 In aa3
 
xx(E2, E3) = 1
 
Next E3
Next E2
 
 
Rst.MoveNext
Wend
 
 
Rst.Close
Set Rst = Nothing
Set db = Nothing

et mon probleme
dans ma table aa, le champs 'etape precedente' est de type numerique et correspond a une liste de choix multiple contenant des numero d'index de la table aa
il est donc ecrit 1 par exemple ou 2;4;6
pour une valeur c'est bon mais quand il y en a plusieur celle la premiere est lu...
le for each ne fonctionne pas, normale aa2 n'est pas un tableau (j'ai verifier par une ligne du code)

je je sais pas si je suis assez clair dans mes explication,mais merci pour votre aide

[chris45]

rebonjour
j'ai trouve ma reponse

voici le code

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
34
35
36
37
38
39
40
41
 
 
Dim xx(200, 200)
 
 
 
 
 
 
 
aa = Forms![chemin etape]![Texte9] ' numero du groupe
 
 
 
 
Dim Rst As DAO.Recordset, db As DAO.Database
Set db = CurrentDb
 
requete = "SELECT NoAuto,precedente.value,suivante.value FROM " & aa
 
Set Rst = db.OpenRecordset(requete)
 
Rst.MoveFirst
 While Not Rst.EOF
 
 
aa1 = Rst.Fields(0).Value
aa2 = Rst.Fields(1).Value
aa3 = Rst.Fields(2).Value
 
 
xx(aa2, aa3) = 1
 
 
Rst.MoveNext
Wend
 
 
Rst.Close
Set Rst = Nothing
Set db = Nothing

a+
Christophe