MS Access SQL-Anweisung für Append

Question

Ich bin relativ neu in MS Access und SQL.

Ich habe eine Abfrage in einer Access-Datenbank, um eine Tabelle an eine andere anzuhängen, sortiert aufsteigend nach einer bestimmten Spalte, die ich dann zum Hinzufügen von Spalte für die Zwecke der Zuweisung einer eindeutigen Kennung verwenden.

Die Abfrage selbst läuft gut in Zugriff, jedoch möchte ich dies in den VBA-Code eines Formulars zu Aktion schreiben, wenn eine Schaltfläche geklickt wird.

Die SQL-Ansicht im Zugriff gibt mir den folgenden Code, aber wenn ich es in meinen Code schreibe, heißt es, dass ein Operator fehlt, kann jemand einen Vorschlag machen?

Code:

DoCmd.RunSQL ("INSERT INTO tblImport (CustomerAccount, OrderReference, OrderDate, DueDate, CustomerRef," & _ 
    "StockNo, OrderQuantity, AddressName, Add1, Add2, Add3, Town, County, PostCode, Country, ServiceLine)" & _ 
    "SELECT tblImport2.CustomerAccount, tblImport2.OrderReference, tblImport2.OrderDate, tblImport2.DueDate," & _ 
    "tblImport2.CustomerRef, tblImport2.StockNo, tblImport2.OrderQuantity, tblImport2.AddressName, tblImport2.Add1," & _ 
    "tblImport2.Add2, tblImport2.Add3, tblImport2.Town, tblImport2.County, tblImport2.PostCode, tblImport2.Country," & _ 
    "tblImport2.ServiceLine" & _ 
    "FROM tblImport2" & _ 
    "ORDER BY tblImport2.OrderReference") 

Answer 1

Speichern Sie die Abfrage. Dann können Sie es aus dem Code aufrufen:

CurrentDb.QueryDefs("NameOfYourAppendQuery").Execute 

oder ohne Abfrage:

Dim Sql As String 

Sql = "<Your SQL string>" 
Debug.Print Sql  ' Check SQL. 
CurrentDb.Execute Sql 

Answer 2

Sind Sie sich bewusst, dass in VBA eine mehrzeilige Zeichenfolge angeben (wie Ihre Abfrage hier ist), müssen Sie beitreten die Linien zusammen so? Ansonsten wird VBA10 nicht wissen, dass es eine einzelne Zeichenfolge sein soll.

mySql = "INSERT INTO tblImport (CustomerAccount, OrderReference, OrderDate, DueDate, CustomerRef, StockNo, OrderQuantity, AddressName, Add1, Add2, Add3, Town, County, PostCode, Country, ServiceLine) " & _ 
"SELECT tblImport2.CustomerAccount, tblImport2.OrderReference, tblImport2.OrderDate, tblImport2.DueDate, tblImport2.CustomerRef, tblImport2.StockNo, tblImport2.OrderQuantity, tblImport2.AddressName, tblImport2.Add1, tblImport2.Add2, tblImport2.Add3, tblImport2.Town, tblImport2.County, tblImport2.PostCode, tblImport2.Country, " & _ 
"tblImport2.ServiceLine " & _ 
"FROM tblImport2 " & _ 
"ORDER BY tblImport2.OrderReference; "