Kolom kopieren van Query naar tabel

[Tibs]

Goedemiddag,

Vandaag lijkt er niets te lukken .

Ik probeer een kolom uit een query te kopieren naar een kolom in een tabel met variabele naam.

De volgende code geeft de foutmelding dat ik een parameter mis " het verwachte aantal = 3"

dbs.Execute "INSERT INTO tblDocumentKoppelingen ('" & Name & "') SELECT KKS FROM Q_KKS;"

Waarbij Name de variabele naam is en de gegevens moeten ingevoerd worden vanuit de kolom KKS uit de query Q_KKS.

Alvast bedankt!

 

[OctaFish]

Probeer 'm eens zo:
dbs.Execute "INSERT INTO tblDocumentKoppelingen ([" & Name & "]) SELECT KKS FROM Q_KKS;"

 

[Tibs]

Werkt niet .

Ik krijg opnieuwe de melding "3061 Er zijn te weinig parameters, het verwachte aantal is 3"

Bij het weglaten van de parameter "Name" en die te vervangen door een vaste kolomnaam werkt het ook niet.

Om een beter beeld te geven van het totaal:

Private Sub cmbKoppel_Click()

Dim Name As String
Dim dbs As Database

Set dbs = CurrentDb()
Name = Left(Me.Filename.Value, Len(Me.Filename.Value) - 4)


If (FieldExists("tblDocumentkoppelingen", "'" & Name & "'") = False) Then
    dbs.Execute "ALTER TABLE tblDocumentKoppelingen ADD '" & Name & "' Text"
End If
DoCmd.OpenQuery "Q_KKS"
dbs.Execute "INSERT INTO tblDocumentKoppelingen (Test) SELECT KKS FROM Q_KKS;"

End Sub