tableau

Question

Slt, j'ai fait une requete et j'ai une erreur ("tableau attendu") au niveau du texte en rouge
Pouvez-vous me débloquer?

Dim k as integer
ReDim var(20)
For k = 1 To 20
var(k) = ""
Next
Set Db = DBEngine(0)(0)Me.Dat_financeurs.RecordSource ("SELECT Financeur.[Nom Financeur] From Financeur Where (((Financeur.[Ref reseau]) 1)) ORDER BY Financeur.[codeFinanceur]")
Rs.MoveFirst
k = 1

    Do Until Rs.EOF
            var(k) = Rs![Nom Financeur]
            Rs.MoveNext
            k = k + 1
    Loop
 

Me.Dat_financeurs.Refresh
Me.Financeurs.MaxRows = Me.Dat_financeurs.Recordset.RecordCount

mortalino · Answer

salut,

dim var(1 to 20)

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

mortalino · Answer

For k = 1 To 20
var(k) = ""
Next

ca sert à rien, ne l'execute pas

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

ricky84 · Answer

Si y'a REDIM Var(20), doit y avoir quelque part avant un DIM Var() !!

mortalino · Answer

ouaich !
mais je me méfie, on en voit tellement... J'aurais effectivement dû le préciser 

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Tableau

4 réponses

Votre réponse

Discussions similaires