Access表账龄天数计算遇阻，求替代解决方案

先明确你之前操作的问题 #

• 表设计里的默认值是静态属性，只能设置固定值或仅在记录创建时计算一次的表达式，没法实时根据当前日期、STATUS或CLOSE DATE的变化动态更新，所以直接在默认值里写IIf函数行不通。
• 函数用错了：Day()是提取日期的“日”部分（比如1-31），要获取当前系统日期得用Date()。

三种可行替代方案 #

方案1：用查询实时计算（最推荐，无需修改表结构）

创建一个查询，直接添加计算字段，每次运行都会实时算出最新账龄：

SELECT 
    *,
    IIf([STATUS]="OPEN", Date()-[OPEN DATE], [CLOSE DATE]-[OPEN DATE]) AS 账龄天数
FROM mdr;

当STATUS为OPEN时，自动用当前日期减去开单日期；当记录关闭时，用关闭日期减开单日期，完全避开Close date为空的问题。

方案2：给表添加计算字段

如果一定要在表中直接看到账龄字段，可以在表设计视图新增一个计算字段：

1. 新建字段，数据类型选择计算
2. 在表达式生成器里输入：

IIf([STATUS]="OPEN", Date()-[OPEN DATE], [CLOSE DATE]-[OPEN DATE])

这个字段会自动随STATUS、OPEN DATE、CLOSE DATE的变化实时更新，不用手动维护。

方案3：用VBA定时更新静态字段（适合需要存储账龄值的场景）

如果需要把账龄天数作为静态值存在表中（比如每天固定时间更新一次），可以写一段VBA代码：

Sub UpdateAccountAge()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("mdr")
    
    Do While Not rs.EOF
        rs.Edit
        If rs!STATUS = "OPEN" Then
            rs!账龄天数 = Date() - rs!OPEN_DATE
        Else
            rs!账龄天数 = rs!CLOSE_DATE - rs!OPEN_DATE
        End If
        rs.Update
        rs.MoveNext
    Loop
    
    rs.Close
    db.Close
    Set rs = Nothing
    Set db = Nothing
End Sub

可以把这个代码绑定到窗体的打开事件，或者设置Windows任务计划定时启动Access并执行这个宏，实现自动更新。

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