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

Question

我正在努力将用于时间卡的庞大，过时的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

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

Answer 1

这是使用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

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