fill a table with a sequence of hourly dates

[maxbre]

hi all

I need to fill a table with a sequence of hourly dates;
this is my attempt so far....

Private Sub fill_tbl_dates()


'del old recs in the table
sql_del_recs = "DELETE * FROM data_ok"
DoCmd.RunSQL sql_del_recs


'def start and end date
start_date = #1/1/2014#
end_date = #10/1/2014#


'insert first rec in the table
sql_insert_date = "INSERT INTO data_ok (data) VALUES ('" & start_date & "');"
DoCmd.RunSQL sql_insert_date


' def start date for cycling
date_add = DateAdd("h", 1, start_date)


'def n cycles
n_hour = DateDiff("h", date_add, end_date)

'here the cycle for I'm stuck at....

For i = 1 To n_hour


Next


End Sub

....definitely stuck at the proper way of conceiving the loop (or an alternative solution) to fill the table with dates



any hints for that?

thank you


max

[June7]

Try:

'del old recs in the table
CurrentDb.Execute "DELETE * FROM data_ok"

'def start and end date
start_date = #1/1/2014#
end_date = #10/1/2014#

'def n cycles
n_hour = DateDiff("h", DateAdd("h", 1, start_date), end_date)

For i = 1 To n_hour
CurrentDb.Execute "INSERT INTO data_ok (data) VALUES ('" & DateAdd("h", i, start_date) & "');"
Next

[maxbre]

yes, thank you, it's perfectly working!

...and this is my final code snipped for any future reference

thank you again for the support

'del old recs in the table
CurrentDb.Execute "DELETE * FROM data_ok"

'def start and end date
'#m/d/y
start_date = #3/27/2014 1:00:00 PM#
end_date = #4/10/2014 3:00:00 PM#


'def n cycles

'upper end open
n_hour = DateDiff("h", DateAdd("h", 1, start_date), end_date)

'upper end close
'n_hour = DateDiff("h", start_date, end_date)


For i = 0 To n_hour
CurrentDb.Execute "INSERT INTO data_ok (data) VALUES ('" & DateAdd("h", i, start_date) & "');"
Next