我尝试了一些变化,但似乎都给了我相同的结果 - 所以我忽略了一些非常简单的事情。
我有一个帐号的文本框,一个搜索按钮和一个搜索查询结果的文本框。但是,当我点击搜索时 - 查询本身会被添加到第二个文本框而不是预期的结果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并在其他迭代尝试中获得相同的结果。
答案 0 :(得分:0)
一种可能的方法是,将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