Inserte cada registro de fecha para el mes actual en la tabla de Access usando VBA

Question

May 29, 2016, 11:27 AM

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

Inserte cada registro de fecha para el mes actual en la tabla de Access usando VBA

Soy nuevo en la programación de VBA. He diseñado una forma en la que hay un botón. Después de hacer clic en este botón, quiero insertar el registro en mi tabla con una columna de fecha. La cantidad de registros ficticios debe ser igual a la cantidad de días en el mes actual. Si el mes es mayo de 2016, el registro se insertará con la fecha 1/5/2016, 2/5/2016 ....... 31/5/2016 así.

Gracias por adelantado.

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