Bonjour à tous,

J'essaye donc de réaliser un recordset puis d'ajouter le résultat de ce recordset à une table.

( J'ai cherché à créer une table qui soit l'image de mon recordset mais en vain alors j'essaye ainsi ... )

J'ai essayé avec le code suivant :

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
27
Public Sub Interface()
 
Dim strSQL As String
Dim taBdd As Database
Dim rst As DAO.Recordset
Set Db = Application.CurrentDb
Dim var1 As String
Dim var2 As String
 
strSQL = "SELECT d.Compte, f.Compte_Magnitude " _
       & "FROM DIM_compte AS d, FAC_Interface AS f " _
       & "WHERE d.Compte LIKE '*' + f.Account + '*' ;"
 
 
Set rst = Db.OpenRecordset(strSQL)
 
i = 0
 
While (i < rst.RecordCount)
 
var1 = rst.Fields("d").Value
DoCmd.RunSQL ("INSERT INTO TABLE VALUES (" & var1 & "," & var2 & ") ")
i = i + 1
 
Wend
 
End Sub
Mais j'ai l'erreur :

" Element non trouvé dans cette collection "

Une idée ?

Cordialement,