Discussion :

[tofoo]

Hello,

J'ai une erreur sur la declaration de la fonction SQL au niveau de l'insest INTO. J'ai trituré la ligne dans tous les sens, je ne vois pas.
Pour info je suis sur un access UK

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Private Sub Load()
Dim rst As DAO.Recordset
Dim SQL As String
Set rst = CurrentDb.OpenRecordset("select * from REFList")
While Not rst.EOF
    SQL = "INSERT INTO " & rst("VDCODE") & "SELECT [split].* FROM split WHERE [split].VDCODE= '" & rst("VDCODE") & "'"
    DoCmd.RunSQL SQL
    'Debug.Print SQL
    rst.MoveNext
Wend
rst.Close: Set rst = Nothing
End Sub

Merci

[User]

Bonsoir,

Comme vous pouvez l'imaginer c'est au niveau de la chaîne SQL que ça coince :

Code :

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

1
2
3
...
SQL = "INSERT INTO " & rst("VDCODE") & " SELECT [split].* FROM split WHERE [split].VDCODE= '" & rst("VDCODE") & "'"
...

Un espace avant le SELECT semble nécessaire pour distinguer la valeur de rst("VDCODE") du SELECT.

Cdlt,

[tofoo]

Tout simplement... Merci User, c'est bien l'origine du problème.