如何在Access窗体计算控件值变化时启用保存按钮？

问题根源分析 #

1. 计算控件的Change事件不触发：txtValidation是计算文本框，它的值由四个组合框的选择计算得出，并非用户直接编辑，因此txtValidation_Change()事件不会自动执行。
2. 条件逻辑不匹配：你需要当值为"Validated"时启用按钮，但代码中判断的是"Selection validated"，与需求不符。
3. 未处理反向状态：当前代码只处理启用按钮的情况，未在值不符合时禁用按钮，会导致按钮一旦启用就无法恢复禁用状态。

修正方案 #

步骤1：创建通用检查函数 #

在窗体模块中编写一个通用函数，用于检查txtValidation的值并设置按钮状态：

Private Sub UpdateSaveButtonStatus()
    ' 匹配需求的"Validated"，同时处理值为Null的情况
    Me.btnSave.Enabled = (Nz(Me.txtValidation.Value, "") = "Validated")
End Sub

步骤2：在依赖控件的AfterUpdate事件中调用函数 #

因为txtValidation的值由四个组合框决定，给每个组合框的AfterUpdate事件添加函数调用（假设四个组合框名为cboOption1、cboOption2、cboOption3、cboOption4）：

Private Sub cboOption1_AfterUpdate()
    UpdateSaveButtonStatus
End Sub

Private Sub cboOption2_AfterUpdate()
    UpdateSaveButtonStatus
End Sub

Private Sub cboOption3_AfterUpdate()
    UpdateSaveButtonStatus
End Sub

Private Sub cboOption4_AfterUpdate()
    UpdateSaveButtonStatus
End Sub

步骤3：在窗体加载时初始化状态 #

确保窗体打开时按钮状态正确，在窗体的Load事件中调用函数：

Private Sub Form_Load()
    UpdateSaveButtonStatus
End Sub

额外检查项 #

• 确认txtValidation的计算表达式能正确返回"Validated"或"Selection validated"，检查表达式是否存在拼写或逻辑错误。
• 如果组合框存在默认值，需确保窗体加载时计算控件能正确计算初始值。

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