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

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