Discussion :

[DUCKY_]

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,

[micniv]

Bonsoir,

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

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

alors il faut :

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

[DUCKY_]

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,

[micniv]

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

[DUCKY_]

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,

[micniv]

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 :

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

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

à adapter à tes champs, of course