INSERT INTO depuis recordset

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:

---

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,

Bonsoir,

1 - Tu n'as pas déclaré DB

2 - var1 est un String
3 - où initialises tu var2 ?

alors il faut :

Code:

---

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 28 29

Public Sub Interface()   Dim strSQL As String Dim Db As DAO.Database Dim rst As DAO.Recordset Dim var1 As String Dim var2 As String   Set Db = Application.CurrentDb   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)   While not rst.EOF   var1 = nz(rst!d)     DoCmd.RunSQL ("INSERT INTO TABLE (champ1, champ2) VALUES ('" & var1 & "','" & var2 & "') ")   wend   set rst=nothing set db=nothing End Sub

---

:D

Bonsoir !

En premier lieu merci de cette réponse,

En effet je n'avais pas déclaré ma base ... Et voulant essayer si ma méthode marchait avec var1 je n'ai même pas attribué var2 ...

Cependant à quoi correspont nz(rst!d) ?

J'ai compris qu'il sagissait de trouver la valeur du champ d dans le recordset rst mais à quoi sert nz ?( google m'aiderai mais bon ... )

Cordialement,

Citation:

---

rst!d

---

renvoie la même valeur que rst("d") ou rst.fields("d") mais en plus condensé
Quant à la fonction NZ() elle retourne toujours une valeur non nulle : vois l'aide par F1

:lol:

Ok ! Merci bien ;-)

Je n'arrive décidement pas à faire ce qu'il faut ....

J'ai ,dans une table "LISTE", un champ A contenant une suite de compte :
A : A2020,A4030,A5060 <---( 1 seule enregistrement tel quel)

Auquel est associé dans cette même table un champ B :
B : MG045

En gros aux comptes A2020,A4030,A5060 est associé le compte MG045

D'un autre coté j'ai une table "DIM" répertoriant tous les comptes A, cette fois bien structuré, i.e 1enregistrement = 1compte.

Je cherche là à associé chaque enregistrement de ma table "DIM" au champ B qui lui est associé ...

Une idée ?

Merci d'avance,

Citation:

---

e cherche là à associé chaque enregistrement de ma table "DIM" au champ B qui lui est associé

---

Pense à utiliser la fonction de domaine Dlookup(),
quelquechose comme :

Code:

---

1 2	SELECT DIM.Compte , Dlookup( "B", "Liste", "A Like '*" & DIM.compte & "*'") FROM DIM

---

à adapter à tes champs, of course
:P

Merci beaucoup !

Voilà maintenant 1 semaine que je penchais sur ce problème .... J'essayais de le résoudre avec ma condition WHERE en SQL mais rien de bon ....

J'ai donc fait ma requête en SQL puis j'ai mis le code dans ACCESS et c'est bon ça fonctionne !

PARFAIT !

Encore merci pour ton aide !!!!