TextBox点击按钮显示0/-1而非Yes/No的故障排查求助

问题背景 #

绑定到数据表短文本类型SYC字段的TextBox，点击按钮后显示0或-1，而非预期的Yes/No。已尝试压缩修复数据库、新建字段和TextBox，问题仍未解决。关联的VBA代码如下：

Private Sub btnSYC_AfterUpdate()
   If Me.Value = "Yes" Then
        Me.SYC.Value = "No"
    ElseIf Me.SYC.Value = "No" Then
        Me.SYC.Value = "Yes"
    End If
End Sub

可能的原因 #

• 控件引用错误：代码里的Me.Value指向按钮btnSYC本身，Access中按钮的Value属性是布尔类型（按下为-1，未按下为0），不是文本值。将布尔值与字符串"Yes"比较时，Access会自动做类型转换，导致逻辑判断混乱，最终可能意外把布尔值存入短文本字段，绑定的TextBox就会显示0或-1。
• 事件类型用错：按钮的AfterUpdate事件极少用于处理点击逻辑，触发时机不符合预期，可能导致代码执行时控件状态异常，触发不必要的类型转换。
• 逻辑分支覆盖不全：如果SYC字段当前值为空（无默认值），代码的两个分支都不会触发，此时若有其他误操作将布尔值赋值给字段，就会出现数字显示的情况。
• 自动类型转换干扰：Access会自动转换不匹配的数据类型，若代码中存在隐性的布尔值赋值逻辑（比如误将按钮状态直接赋值给SYC字段），短文本字段会自动把布尔值转为0或-1存储。

修正方案 #

1. 替换事件类型：把按钮的AfterUpdate事件改为Click事件，这是处理按钮点击逻辑的标准事件。
2. 修正控件引用：直接针对SYC字段/TextBox的当前值做判断，逻辑更清晰：

Private Sub btnSYC_Click()
    ' 直接翻转SYC的状态
    If Me.SYC.Value = "Yes" Then
        Me.SYC.Value = "No"
    Else
        Me.SYC.Value = "Yes"
    End If
End Sub

3. 检查控件格式：确认TextBox的Format属性设置为常规或文本，避免格式设置导致显示异常。
4. 排查其他代码：检查窗体的BeforeUpdate事件、其他控件的关联代码，确保没有其他逻辑将布尔值赋值给SYC字段。

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