Date MS Access-根据初始值/起始值填充表格列

我正在将笨重、过时的Excel电子表格迁移到Access[2016]，该电子表格用于时间卡。我正在寻找一种在Access中输入起始日期的方法，并从该起始日期开始填写一个表格，表格中的日期从起始日期开始相隔7天

示例：

Start date (Preferably from a form): 12/31/2017

Column A:  
12/31/2017
01/07/2017  
01/14/2017  
01/21/2017  
01/28/2017  
02/04/2017  
...  
12/30/2018

---

这可能吗？我还没能找到一种方法，从输入表格的数据中填写表格中的数据。这个初始数据不需要来自表，但我需要它易于编辑

这是使用VBA执行此操作的一种方法：

For i=0 to [However many dates I need]
    DoCmd.RunSQL "INSERT INTO [MyTable] ([MyDateColumn]) VALUES (#" & FormatDateTime(DateAdd("d",7*i,CDate("12/31/2017")),vbShortDate) & "#)"
  Next i

---

该代码未经测试，因此可能需要一些小的修复。另外，请确保在运行操作查询之前禁用警告，否则必须单击“允许添加每个日期”。

表是否已包含记录，还是为空？使用VBA循环结构将记录写入表。可能存在重复的