Вставьте каждую запись даты за текущий месяц в таблицу доступа, используя VBA
Я новичок в программировании VBA. Я разработал одну форму, в которой есть кнопка. После нажатия этой кнопки я хочу вставить запись в мою таблицу с одним столбцом даты. Количество фиктивных записей должно быть равно количеству дней в текущем месяце. Если месяц - май 2016 года, то запись будет вставлена с датой 05.01.2016, 05.02.2016 ....... 31.05.2016, например.
Заранее спасибо.
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