在VBA的AfterUpdate事件中调用AddWorkingDays函数遇问题求助

你的代码存在三个核心问题，导致无法正常运行，以下是错误分析和修正方案：

错误点分析 #

1. 语法混淆：你把Access表达式的IIf函数写法和VBA的If语句混在了一起，VBA的If语句需要完整的If...Then...End If结构，不能直接套用表达式里的格式。
2. 控件引用错误：用双引号包裹"reviewdate"会被VBA识别为普通字符串，而不是窗体上的控件对象，无法正确获取控件值。
3. 缺少赋值操作：原代码仅调用了函数，但没有把函数返回的结果赋值给目标控件（比如txt_DueDate），导致执行后看不到效果。

修正后的代码 #

方案1：用VBA标准If语句（更易读，适合新手） #

Private Sub txt_DueDate_AfterUpdate()
    ' 检查ReviewDate控件是否不为空
    If Not IsNull(Me.ReviewDate) Then
        ' 将函数处理后的日期赋值给txt_DueDate
        Me.txt_DueDate = AddWorkingDays(Me.ReviewDate)
    End If
End Sub

方案2：用VBA的IIf函数（简洁写法） #

如果想保持类似表达式的简洁风格，可以用VBA内置的IIf函数，但要确保完成赋值：

Private Sub txt_DueDate_AfterUpdate()
    ' 若ReviewDate不为空则调用函数，否则保留原日期
    Me.txt_DueDate = IIf(IsNull(Me.ReviewDate), Me.txt_DueDate, AddWorkingDays(Me.ReviewDate))
End Sub

关键说明 #

• Me是VBA中代表当前窗体的关键字，用它引用控件是规范写法，能避免命名冲突，比直接写[ReviewDate]更清晰。
• 表达式生成器里的=AddWorkingDays([ReviewDate])能生效，是因为它遵循的是Access表达式语法，而VBA有独立的语法规则，这是两者的核心区别。

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