Question

我尝试了一些变化，但似乎都给了我相同的结果 - 所以我忽略了一些非常简单的事情。

我有一个帐号的文本框，一个搜索按钮和一个搜索查询结果的文本框。但是，当我点击搜索时 - 查询本身会被添加到第二个文本框而不是预期的结果1或0.

这是我在本网站上发现的最新尝试：

Private Sub SearchAcctNumber_Click()


Dim strsearch As String
Dim Task 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
    Task = "SELECT I_Ind FROM dbo_BC WHERE (([ACCOUNT_NUMBER] Like ""*" & Text0 & "*""))"
   Me.Text2 = Task

End If

End Sub

有人能帮助我看到我犯的错误吗？令我疯狂的是，如此简单的事情并没有按照我的想法行事。

编辑：想要补充一点，我也尝试过DLookup并在其他迭代尝试中获得相同的结果。

Answer 1

一种可能的方法是，将Text2类型更改为combo box。然后设置Text2.recordsource = Task并使用Me.Text2.requery刷新显示的值。

另一种方法是打开记录集，读取值并设置Text2值。

Dim r as dao.recordset, db as dao.database  
set db = currentdb()  
set r=db.openrecordset(Task)  
Me.Text2 = r(0).value
Set r = Nothing

MS Access - 文本字段返回查询字符串而不是查询结果值

1 个答案: