Hallo,

ich möchte gern Daten über VBA in eine Access-Tabelle einfügen. Die Tabelle besteht, hat aber auch ein paar mehr Felder als ich nutzen möchte.

 Sub testinsert()
    Dim sqlstr As String
   
    sqlstr = "INSERT INTO bestellungen(BestNr,ArtNr,Anzahl) VALUES ('12345', '6789', '3');"
    CurrentDb.Execute sqlstr, dbFailOnError
End Sub

Ich habe es auch schon so versucht:

Public Sub DoSQL()
 
    Const QUERY_NAME As String = "dummy"
          
    Dim db As DAO.Database
    Dim qd As DAO.QueryDef    
    
    Set db = CurrentDb
    Set qd = db.CreateQueryDef(QUERY_NAME, "INSERT INTO bestellungen(BestNr,ArtNr,Anzahl) VALUES ('12345', '6789', '3');")

    DoCmd.OpenQuery QUERY_NAME

End Sub

Leider wird in beiden Varianten nix in die Tabelle eingefügt. Ich verstehe noch nicht ganz, ob ich zuerst eine Verbindung zur Datenbank herstellen muss, da aktuell ja genau eine Datenbank geöffnet ist mit der ich arbeiten möchte. Wenn ja fehlt mir der Ansatz, wie ich mich am besten mitt der *.accdb verbinde und die SQL-Querys auführe.

Würde mich sehr freuen, wenn mir jemand weiter helfen kann.

VG Stefan