如何在MS Access 2007 VBA中实现文本框三态布尔值的显示与存储

嘿，我之前在维护Access 2007遗留系统时，也碰到过SQL Server可空bit字段绑定文本框的头疼问题——Access默认把True显示成-1，还经常搞乱Null的存储。给你两个亲测有效的解决方案：

这个方法最灵活，能完全按照你的需求来：

首先给绑定到HOME字段的文本框（假设命名为txtHOME）添加两个事件：

BeforeUpdate 事件（验证+转换输入） #

这个事件会在值更新到数据库前触发，用来过滤无效输入并转换为正确的存储值：

Private Sub txtHOME_BeforeUpdate(Cancel As Integer)
    Dim cleanInput As String
    cleanInput = Trim(Nz(Me.txtHOME.Value, ""))
    
    Select Case cleanInput
        Case "1"
            ' 把输入的1转成Access能识别的布尔值，但用Abs确保存1而非-1
            Me.txtHOME.Value = Abs(True)
        Case "0"
            Me.txtHOME.Value = False
        Case ""
            ' 空或空格直接存Null
            Me.txtHOME.Value = Null
        Case Else
            MsgBox "只能输入1、0或留空哦！", vbExclamation
            Cancel = True
            Me.txtHOME.Undo ' 恢复之前的值
    End Select
End Sub

AfterUpdate 事件（确保显示正确） #

因为Access有时候会把True自动显示成-1，所以用这个事件把显示值转成1：

Private Sub txtHOME_AfterUpdate()
    If Not IsNull(Me.txtHOME.Value) Then
        Me.txtHOME.Value = Abs(Me.txtHOME.Value)
    End If
End Sub

如果不想写太多代码，可以用Access的内置属性配合简单的事件：

1. 设置输入掩码：选中文本框，在属性表的「数据」选项卡，把输入掩码设为 \1;0;_。这个掩码会限制用户只能输入1、0或者空/空格。
2. 设置Format属性：在「格式」选项卡，把格式设为 "1";"0";""。这个格式会让：
   • 布尔True（对应SQL Server的1）显示为1
   • 布尔False（对应SQL Server的0）显示为0
   • Null值显示为空

然后再加个简单的BeforeUpdate事件处理空格转Null：

Private Sub txtHOME_BeforeUpdate(Cancel As Integer)
    If Trim(Nz(Me.txtHOME.Value, "")) = "" Then
        Me.txtHOME.Value = Null
    End If
End Sub

• 确认SQL Server的HOME字段确实设置了允许Null，并且Access链接表已经刷新过（右键链接表→刷新链接），不然Access可能会忽略Null设置。
• 确保文本框的控件类型是「文本框」，不要用复选框——复选框默认会把True显示为勾选，不符合你的需求。
• 测试的时候记得验证三种情况：输入1后数据库存1，输入0存0，清空/输入空格存Null。

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