MS Access文本框返回查询字符串而非结果，请求错误排查

嘿，我一眼就发现问题所在啦！你当前的代码只是把构造好的SQL查询语句Task直接赋值给了Me.Text2，完全没有执行这个查询去获取实际的结果值——这就是为什么文本框显示的是查询语句本身，而不是你期待的1或0。

下面给你两种简单的修正方案，按需选择：

方案一：用DLookup（Access专属的单值查询工具，最简便） #

DLookup是Access里专门用来从表或查询中提取单个字段值的函数，非常适合你这种只需要返回一个结果的场景，代码会简洁很多：

Private Sub SearchAcctNumber_Click()
    Dim strSearch As String
    
    ' 检查输入是否为空
    If IsNull(Me.Text0) Or Me.Text0 = "" Then
        MsgBox "Please type in your account number.", vbOKOnly, "Acct Num Needed"
        Me.Text0.SetFocus
    Else
        strSearch = Me.Text0.Value
        
        ' 使用DLookup获取匹配的I_Ind值
        Dim result As Variant
        result = DLookup("I_Ind", "dbo_BC", "ACCOUNT_NUMBER Like '*" & strSearch & "*'")
        
        ' 处理无匹配结果的情况（返回Null时显示0）
        Me.Text2 = IIf(IsNull(result), 0, result)
    End If
End Sub

方案二：执行SQL记录集（适合更复杂的查询场景） #

如果你更倾向于用自己构造的SQL语句，那需要通过记录集来执行查询，再提取结果：

Private Sub SearchAcctNumber_Click()
    Dim strSearch As String
    Dim Task As String
    Dim rs As DAO.Recordset
    
    ' 检查输入是否为空
    If IsNull(Me.Text0) Or Me.Text0 = "" Then
        MsgBox "Please type in your account number.", vbOKOnly, "Acct Num Needed"
        Me.Text0.SetFocus
    Else
        strSearch = Me.Text0.Value
        ' 修正SQL语句的引号格式（原写法的引号转义有小问题）
        Task = "SELECT I_Ind FROM dbo_BC WHERE ACCOUNT_NUMBER Like '*" & strSearch & "*'"
        
        ' 打开记录集执行查询
        Set rs = CurrentDb.OpenRecordset(Task)
        
        ' 提取结果：如果有匹配记录就取I_Ind值，否则显示0
        If Not rs.EOF Then
            Me.Text2 = rs!I_Ind
        Else
            Me.Text2 = 0
        End If
        
        ' 记得关闭记录集并释放对象，避免内存占用
        rs.Close
        Set rs = Nothing
    End If
End Sub

额外注意事项 #

• 原代码里的SQL引号格式有误：""*" & Text0 & ""*"" 应该调整为 "*" & strSearch & "*"（用单引号包裹通配符更直观，也避免双引号转义的麻烦）
• 一定要处理无匹配的情况：如果没有找到对应账号，查询会返回Null，直接赋值给文本框会显示为空，所以我们用IIf或者判断语句把它转成0
• 建议给控件改个有意义的名字：比如把Text0改成txtAccountNumber，Text2改成txtResult，这样后续维护代码会更清晰

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