Ich bin neu in der VBA-Programmierung. Ich habe eine Form entworfen, in der es einen Knopf gibt. Nach dem Klicken auf diese Schaltfläche möchte ich einen Datensatz mit einer Datumsspalte in meine Tabelle einfügen. Die Anzahl der Dummy-Datensätze sollte der Anzahl der Tage im aktuellen Monat entsprechen. Wenn der Monat Mai 2016 ist, wird der Datensatz mit dem Datum 05.01.2016, 05.02.2016 ... 31.05.2016 so eingefügt.

Danke im Voraus

Private Sub Command0_Click()
    Dim strQuery As String
    Dim currDateTime As Date
    currDateTime = Now()
    strQuery = "INSERT INTO tbl_ShipOrders (IDate ) VALUES (" & currDateTime & " )"
    CurrentDb.Execute (strQuery)
End Sub