Inserir cada registro de data do mês atual na tabela do Access usando VBA

Question

May 29, 2016, 11:27 AM

vba access-vba ms-access-2010 ms-access

Inserir cada registro de data do mês atual na tabela do Access usando VBA

Eu sou novo na programação VBA. Eu projetei um formulário no qual há um botão. Depois de clicar neste botão, quero inserir um registro na minha tabela com uma coluna de data. O número de registros fictícios deve ser igual ao número de dias no mês atual. Se o mês for maio de 2016, o registro será inserido com a data 1/5/2016, 5/5/2016 ....... 31/5/2016 assim.

Desde já, obrigado.

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