ms-access - 复选框使标签可见

Question

我有三个组合框 - 当选择它们时，我希望它选中复选框。

如果选中该复选框，则文本框将变为“启用”，我目前将其设置为“禁用”。

我的问题是，当选择三个组合时，如何将复选框设置为 true。

我该如何做到这一点，以便当复选框为真时它将启用文本框

Answer 1

当所有 3 个组合框均设置完毕后，该复选框将启用。一旦任何组合框的值更新，它就会调用一个通用函数，该函数检查所有组合框是否都已分配值并相应地设置复选框。

Private Sub cmbClientContact_AfterUpdate()
   Call SetCheckBox
End Sub

Private Sub cmbClientName_AfterUpdate()
    Call SetCheckBox
End Sub

Private Sub cmbProjectManager_AfterUpdate()
    Call SetCheckBox
End Sub

Private Sub SetCheckBox()
     If Nz(Me.cmbClientContact, "") <> "" And Nz(Me.cmbClientName, "") <> "" And Nz(Me.cmbProjectManager, "") <> "" Then
        Me.Check25 = True
        Me.Text27.Enabled = True
     Else
        Me.Check25 = False
     End If
End Sub

<小时/>

启用/禁用复选框的文本框基础值

Private Sub Check25_AfterUpdate()
    If Nz(Me.Check25, False) Then
        Me.Text27.Enabled = True
    Else
        Me.Text27.Enabled = False
    End If
End Sub