Je veux ajouter des lignes a la fin de mon tableau " OL" .
Voila mon petit programme que ne marche pas , il ajoute une seul ligne.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Dim dd As Integer
    Dim aa As Long
 
    dd = 0
    aa = 32928
 
    For dd = 0 To 156
    aa = aa + 1
            squery = "INSERT INTO OL (IdNum, BIVLigneId, AdresseC2BIVId, OL, ValeurOL, IsUtiliser) VALUES(  " & aa & " , 0,282, " & dd & " , 255, 0)"
             Call CurrentDb.Execute(squery)
    Next dd
    MsgBox ("ok")
Merci.