ACCESS VBA 開始、終了期間を判断してレコードを１つずつ追加

Question

フォームに日付、[開始1]、[開始2]というテキストボックスがあり、[開始1]、[開始2]期間分のレコードを追加したいと考えております。
[開始1]が2019年1月1日、[開始2]が2020年6月30日なら、18レコードを追加
その際、入力TBの日付フィールドに2019年1月1日、2019年2月1日、2019年3月1日・・・2020年6月1日を追記していきたいです。

Private Sub コマンド36_Click()
'入力TBにレコードを追加
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim RECLoop As Integer
Dim i As Integer

Set DB = CurrentDb()
Set RS = DB.OpenRecordset("入力TB", dbOpenDynaset)
Set Me.Recordset = RS

　　i = (DateDiff("m", Forms![フォーム]![開始1], Forms![フォーム]![開始2]) + 1)　'フォームから追加レコードの総数を判断

　　For RECLoop = 1 To i

RS.AddNew
RS![日付] =　'ここの処理方法とループ方法がわかりません
RS.Update

Next RECLoop

DB.Close: Set DB = Nothing
RS.Close: Set RS = Nothing

End Sub

Answer 1

DateAddを使えばいいでしょう。

    i = DateDiff("m",  Forms![フォーム]![開始1], Forms![フォーム]![開始2]) 

    For RECLoop = 0 To i
        RS.AddNew
        RS![日付] = DateAdd("m", RECLoop,  Forms![フォーム]![開始1])
        RS.Update
    Next RECLoop