Access 2007实现窗体按钮为指定日期列批量加一天的方法

你之前用的Excel VBA代码在Access里无法运行，核心原因是Access没有Excel的Range、Cells、ActiveSheet这类对象，两者的VBA环境针对的对象模型完全不同。下面提供两种适合Access的解决方案：

方法1：使用更新查询（高效推荐） #

这种方式无需复杂VBA，直接用Access的查询功能批量更新，速度更快：

1. 打开查询设计视图，选择你要操作的表；
2. 添加名为Next revision的字段；
3. 在设计选项卡中切换到「更新查询」；
4. 在该字段的「更新到」行输入表达式：

   IIf(IsDate([Next revision]), [Next revision]+1, [Next revision])
   

   这个表达式会判断字段值是否为有效日期，是则加1天，否则保持原值；
5. 保存查询，命名为qry_AddOneDayToNextRevision；
6. 给窗体按钮添加点击事件代码：

   Private Sub Skip_day_button_Click()
       DoCmd.OpenQuery "qry_AddOneDayToNextRevision"
       MsgBox "批量日期加1天操作完成" '可选，用于提示操作结果
   End Sub
   

方法2：用VBA遍历记录集（适合需额外逻辑的场景） #

如果需要在更新时加入更多判断逻辑，可以用DAO记录集遍历整张表的记录：

Private Sub Skip_day_button_Click()
    Dim rs As DAO.Recordset
    '替换成你实际的表名称
    Set rs = CurrentDb.OpenRecordset("你的表名", dbOpenDynaset)
    
    If Not rs.EOF Then
        rs.MoveFirst
        Do Until rs.EOF
            '判断当前记录的Next revision字段是否为有效日期
            If IsDate(rs!Next revision) Then
                rs.Edit
                rs!Next revision = rs!Next revision + 1
                rs.Update
            End If
            rs.MoveNext
        Loop
    End If
    
    rs.Close
    Set rs = Nothing
    MsgBox "操作完成"
End Sub

补充说明 #

你当前实现的仅对当前行生效，是因为[Next revision field]直接指向绑定窗体的当前记录字段，要覆盖所有记录，必须遍历表中所有数据或使用批量更新逻辑。

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