Discussion :

[sleen]

bonjour

Est il possible d'ajouter des enregistrement dans une table en fonction de calculs
par exemple je rentre un nombre (500) et je veux y ajouter 3, donc dans ma table je voudrai avoir 3 enregistrements avec 500, 501, 502
Si ce n'est pas possible je voudrai savoir si il est possible de faire une requéte d'insertion et comment ???

merci

[LedZeppII]

Bonjour,

voila un exemple de code.
Il ajoute des enregistrements dans la table TABLE3 en mettant une valeur dans le champ COL1.

Code vb :

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
Dim db As DAO.Database
Dim strTable As String, strChamp As String
Dim strSQLbase As String, strSQL As String
Dim l As Long, lDebut As Long, lNbre As Long
 
strTable = "TABLE3"
strChamp = "COL1"
strSQLbase = "INSERT INTO [" & strTable & "] ([" & strChamp & "]) "
lDebut = 500
lNbre = 3
 
Set db = CurrentDb
For l = lDebut To (lDebut + lNbre - 1)
    strSQL = strSQLbase & "VALUES(" & CStr(l) & ")"
    db.Execute strSQL, dbFailOnError
Next

A+