基于表单日期范围生成指定日期记录集的临时表/查询实现咨询

以下是几种在Access中实现需求的可行方案，涵盖VBA、SQL查询两种方式：

方案一：VBA循环生成 + Append到临时表 #

这种方式灵活可控，适合需要自定义逻辑的场景：

步骤说明 #

1. 预先创建临时表tmpDateSequence，仅需一个日期类型字段SequenceDate；
2. 编写VBA代码，从表单获取起止日期，循环生成目标日期并插入临时表。

代码示例 #

Sub GenerateDateSequence()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim startDate As Date, endDate As Date
    Dim currentDate As Date
    
    ' 从表单读取起止日期
    startDate = Forms!frmForm1!StartDate
    endDate = Forms!frmForm1!EndDate
    
    Set db = CurrentDb()
    
    ' 清空临时表（可选，根据需求保留历史数据则删除此行）
    db.Execute "DELETE * FROM tmpDateSequence", dbFailOnError
    
    ' 打开记录集准备插入
    Set rs = db.OpenRecordset("tmpDateSequence", dbOpenDynaset)
    
    ' 插入起始日期
    rs.AddNew
    rs!SequenceDate = startDate
    rs.Update
    
    ' 生成后续每月1号
    currentDate = DateSerial(Year(startDate), Month(startDate) + 1, 1)
    Do While currentDate < endDate
        rs.AddNew
        rs!SequenceDate = currentDate
        rs.Update
        currentDate = DateSerial(Year(currentDate), Month(currentDate) + 1, 1)
    Loop
    
    ' 插入结束日期
    rs.AddNew
    rs!SequenceDate = endDate
    rs.Update
    
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub

注意事项 #

• 若临时表不存在，可在代码开头添加判断逻辑自动创建；
• 若起始日期恰好是当月1号，需手动去重（可在最后执行DELETE FROM tmpDateSequence WHERE SequenceDate IN (SELECT SequenceDate FROM tmpDateSequence GROUP BY SequenceDate HAVING COUNT(*) > 1)）。

方案二：递归SQL查询生成序列（无VBA） #

Access 2010及以上支持递归WITH查询，可直接用SQL生成目标日期序列，或插入到临时表：

生成查询的SQL #

WITH DateSequence AS (
    -- 初始记录：起始日期
    SELECT Forms!frmForm1!StartDate AS SequenceDate
    UNION ALL
    -- 递归生成每月1号
    SELECT DateSerial(Year(SequenceDate), Month(SequenceDate) + 1, 1)
    FROM DateSequence
    WHERE DateSerial(Year(SequenceDate), Month(SequenceDate) + 1, 1) < Forms!frmForm1!EndDate
    -- 加入结束日期
    UNION ALL
    SELECT Forms!frmForm1!EndDate AS SequenceDate
)
SELECT DISTINCT SequenceDate
FROM DateSequence
ORDER BY SequenceDate;

直接插入临时表的SQL #

INSERT INTO tmpDateSequence (SequenceDate)
WITH DateSequence AS (
    SELECT Forms!frmForm1!StartDate AS SequenceDate
    UNION ALL
    SELECT DateSerial(Year(SequenceDate), Month(SequenceDate) + 1, 1)
    FROM DateSequence
    WHERE DateSerial(Year(SequenceDate), Month(SequenceDate) + 1, 1) < Forms!frmForm1!EndDate
    UNION ALL
    SELECT Forms!frmForm1!EndDate AS SequenceDate
)
SELECT DISTINCT SequenceDate
FROM DateSequence
ORDER BY SequenceDate;

注意事项 #

• 确保表单frmForm1处于打开状态，否则无法读取控件值；
• 默认递归层数限制为100，若日期跨度超过100个月，需在查询属性中修改“最大递归层数”。

方案三：基于数字表的分步Append操作 #

如果无法使用递归查询，可借助预先创建的数字表（存储连续整数）生成日期序列：

步骤说明 #

1. 创建数字表tblNumbers，包含字段Number（整数类型），插入1到足够大的数值（比如200，覆盖4年的48个月）；
2. 分步执行Append语句：

1. 插入起始日期

INSERT INTO tmpDateSequence (SequenceDate) VALUES (Forms!frmForm1!StartDate);

2. 插入所有符合条件的每月1号

INSERT INTO tmpDateSequence (SequenceDate)
SELECT DateSerial(Year(Forms!frmForm1!StartDate), Month(Forms!frmForm1!StartDate) + Number, 1)
FROM tblNumbers
WHERE DateSerial(Year(Forms!frmForm1!StartDate), Month(Forms!frmForm1!StartDate) + Number, 1) < Forms!frmForm1!EndDate;

3. 插入结束日期

INSERT INTO tmpDateSequence (SequenceDate) VALUES (Forms!frmForm1!EndDate);

4. 去重并排序（可选）

SELECT DISTINCT SequenceDate FROM tmpDateSequence ORDER BY SequenceDate;

内容的提问来源于stack exchange，提问作者TexasCarey