Discussion :

[fbu78]

Bonjour, je vous expose mon petit souci... j'ai une table qui contient les champs suivants :
- agent
- NumDeb
- NumFin

Je souhaite alimenter une table avec l'ensemble des n° :
Exemple :
- agent |NumDeb | NumFin
x |10 |20
y |21 |33

La table à alimenter devrait contenir les n° :
agent|num
x |10
x |11
x |12
...
y |21
y |22
...

Merci d'avance pour votre aide.

Fred

[mout1234]

Bonjour,

Une petite boucle en VBA devrait faire l'affaire...


qq chose du genre (écrit en direct ici, non testé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim db as database
Dim i as integer
Dim orst as recordset
set db = currentdb
set orst=  db.openRecordset("tablesource")
while not orst.EOF
  for i = orst!numdeb to orst!numfin
     db.execute "INSERT INTO tableDest(agent, num) " & _
                     "VALUES (""" orst!agent & """," & i & ")" ,dbFailonError
 
  next i
  orst.movenext
wend

[fbu78]

j'ai exploré cette possibilité :
mais j'ai un message d'erreur "trop peu de paramètre : 1 paramètre attendu"
sur le db.execute

ci-joit 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
 
Dim db As DAO.Database
Dim Rst As DAO.Recordset
Dim NumChqdeb, NumChqfin As String
Dim i As Long
 
Set db = CurrentDb()
Set Rst = db.OpenRecordset("SELECT * FROM T_FichiersIN_TMP", dbOpenDynaset)
 
NumChqdeb = Rst![NumChqD]
NumChqfin = Rst![NumChqF]
 
While Not Rst.EOF
 
For i = Rst!NumChqD To Rst!NumChqF
compte = Rst![compte]
 
 
     db.Execute "INSERT INTO T_NumChq (Compte, NumChq) " & "VALUES (Rst![compte]," & i & ")", dbFailOnError
 
 
  Next i
  Rst.MoveNext
Wend
 
End Sub

je ne vois pas ce qui manque

Merci d'avance.

Fred

J'ai trouvé en fait dans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

db.Execute "INSERT INTO T_NumChq (Compte, NumChq) " & "VALUES (Rst![compte]," & i & ")", dbFailOnError

il faut modifier en :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 db.Execute "INSERT INTO T_NumChq (Compte, NumChq) " & "VALUES (" & Rst![compte] & "," & i & ")", dbFailOnError

Merci encore

[mout1234]

de rien.


N'oublies pas de cliquer sur le bouton