在 Access 中选中和取消选中复选框

Question

我在 MS Access 中有一个带有多个复选框的表单，我想用它来填充一个文本框。如果其中一个复选框未被选中，我希望从文本框中删除其值而不删除其他值。我是在 VBA 中使用 Access 和编码的新手（过去 3 周一直在阅读电子书），虽然我尝试在网上进行研究，但我很难找到正确的代码。

这是我目前所拥有的：

---

找到第一个代码

Private Sub cb_click()
If Me.cb1 = True Then
Me.txtComentarios.Value = "INACTIVO;"
Else
Me.txtComentarios.Value = Null
End If

End Sub

---

找到第二个代码

Private Sub cb2_Click()
If Me.cb2 = -1 Then
Me.[txtComentarios] = [txtComentarios] & "DISCREPANCIA"
Else
Me.[txtComentarios] = ""
End If
Exit Sub

End Sub

我还希望复选框以与显示复选框相同的顺序填充文本框。

例如

cb1; CB2; cb3

如果 cb2 未被选中并且它的值被删除，我应该得到“cb1; cb3”，但如果我重新检查 cb2，我应该再次得到“cb1; cb2; cb3”。

我只是希望有人可以指导我。提前谢谢你。

卢兹

Answer 1

您不需要为每个复选框设置事件。只需创建一个过程，该过程根据复选框状态创建全文并将此文本放入文本框。要在每次单击复选框后调用此函数，请将所有复选框的 After Update 属性设置为 =MyFunctionToUpdateTextbox 而不是 [Event Procedure]

Private Function MyFunctionToUpdateTextbox()
    Dim strText As String

    If Me.cb1 = True Then
        strText = strText & "INACTIVO;"
    End If
    If Me.cb2 = True Then
        strText = strText & "DISCREPANCIA;"
    End If
    If Me.cb3 = True Then
        strText = strText & "Text for cb3"
    End If

    Me.txtComentarios = strText
End Function