Microsoft Access VBA INSERT SQL-Anweisung

Question

Ich habe eine Datenbank innerhalb von Microsoft Access und damit ein Formular erstellt.
Ich habe eine Schaltfläche an das Formular angehängt und wenn es geklickt wird, möchte ich einen neuen Datensatz in die Tabelle customerHeader einfügen.
Es gibt vier Felder innerhalb dieser Tabelle, von denen eine eine automatische Nummerierung ist. In meiner SQL-Anweisung schließe ich die Bestellnummer nicht ein, da es sich um ein Autofeld handelt.
Wenn ich versuche, auf die Schaltfläche zu klicken und das On-Click-Ereignis ausgeführt wird, erhalte ich die Fehlermeldung, dass Microsoft Access die Datensätze in der Append-Abfrage nicht anhängen kann.

Irgendwelche Ideen, ich habe überall gesucht und ich konnte die Lösung nicht finden.

Private Sub addOrder_Click() 
    Dim mySql As String 
    Dim rowNum As Integer 
    Dim recCount As Long 
    Dim orderNumber As Long 
    Dim myBool As Boolean 


    Dim todayDate As Date 

    todayDate = CDate(Date) 

    myBool = False 


    MsgBox todayDate 

    rowNum = Form.CurrentRecord 
    rowNum = CInt(rowNum - 1) 



    'DoCmd.GoToRecord , , acNewRec 
    mySql = "INSERT INTO orderHeader (orderDate,custNumber,printed) VALUES (" & todayDate & "," & rowNum & "," & myBool & ")" 

    DoCmd.RunSQL mySql 

    Me!orderNum.Requery 

Answer 1

Sie haben nicht zu viel um - nur die Sequenz ISO verwenden für das Format des String-Ausdrucks für den Datumswert:

mySql = "INSERT INTO orderHeader (orderDate,custNumber,printed) VALUES (#" & Format(todayDate, "yyyy\/mm\/dd") & "#," & rowNum & "," & myBool & ")" 

es aber es ist heute, verwenden Sie einfach:

mySql = "INSERT INTO orderHeader (orderDate,custNumber,printed) VALUES (Date()," & rowNum & "," & myBool & ")"