lecture d'un enregistrement choix multiple
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:
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
