Access VBA命令按钮无响应求助：为保单到期日增加6个月

原代码的核心问题是连续使用两个等号，VBA会将其解析为比较运算，最终把[AUTO POLICIES.EFFECTIVE DATE]与DateAdd("m",6,EXPIRATIONDATE)的比较结果（True/False）赋值给EXPIRATIONDATE，完全偏离了需求逻辑。

正确逻辑应为：取窗体上「AUTO POLICIES.EFFECTIVE DATE」控件的日期值，加上6个月后赋值给「EXPIRATIONDATE」控件。

修正后的VBA代码 #

Private Sub Ctl6mosBtn_Click()
    ' 显式引用当前窗体的控件，避免歧义
    Me.EXPIRATIONDATE = DateAdd("m", 6, Me![AUTO POLICIES.EFFECTIVE DATE])
End Sub

关键说明 #

• 用Me.前缀明确指向当前窗体的控件，防止字段名与控件名冲突导致的识别错误。
• 对于含空格的控件名，必须用!加方括号包裹：Me![AUTO POLICIES.EFFECTIVE DATE]，确保VBA能正确识别。
• DateAdd("m", 6, 日期值)是标准的日期增量用法，"m"代表以月份为单位增加6个月。

额外排查点 #

• 确认窗体数据源已正确绑定到包含这两个字段的表/查询。
• 检查控件实际名称是否与代码引用一致（可在窗体设计视图的属性窗口查看）。
• 确保EXPIRATIONDATE控件未设置为只读状态。

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