更改复选框的值
Change the value of the Checkbox
我通过表格在table中添加了新的一行数据。在表单上我还有复选框,它也集成到 table 中。勾选复选框会导致获得 -1 的值。是否可以将 -1 更改为用户定义的值,例如 'x'?
简单回答:否
更复杂的答案:您可以使用隐藏的绑定字段、未绑定的复选框、VBA 和默认值来创建一个复选框,其行为就像 returns 不同值的绑定复选框。
考虑两个字段,myUnboundCheckbox
和 myBoundTextfield
。 myBoundTextfield
为 True
保留 "X"
,为 False
保留 "Y"
。
myUnboundCheckbox
是一个未绑定的复选框,myBoundTextfield
是一个隐藏的绑定文本字段
那么您可以使用以下方法:
Private Sub myUnboundCheckbox_AfterUpdate()
If myUnboundCheckbox Then
myBoundTextfield = "X"
Else
myBoundTextfield = "Y"
End If
End Sub
Private Sub Form_Current()
myUnboundCheckbox = myBoundTextfield = "X"
End Sub
我通过表格在table中添加了新的一行数据。在表单上我还有复选框,它也集成到 table 中。勾选复选框会导致获得 -1 的值。是否可以将 -1 更改为用户定义的值,例如 'x'?
简单回答:否
更复杂的答案:您可以使用隐藏的绑定字段、未绑定的复选框、VBA 和默认值来创建一个复选框,其行为就像 returns 不同值的绑定复选框。
考虑两个字段,myUnboundCheckbox
和 myBoundTextfield
。 myBoundTextfield
为 True
保留 "X"
,为 False
保留 "Y"
。
myUnboundCheckbox
是一个未绑定的复选框,myBoundTextfield
是一个隐藏的绑定文本字段
那么您可以使用以下方法:
Private Sub myUnboundCheckbox_AfterUpdate()
If myUnboundCheckbox Then
myBoundTextfield = "X"
Else
myBoundTextfield = "Y"
End If
End Sub
Private Sub Form_Current()
myUnboundCheckbox = myBoundTextfield = "X"
End Sub