Question

access窗体中有两个文本框，想点击按扭，通过text2中的值查询表basic，在text1中输出查询的值，请高手帮忙

代码如下：
Private Sub chaxun_Click()
Me.RecordSource = "select * from basic where scode=text2.value"
Me.Refresh
Text1.Value = Me.Recordset.sname
End Sub
点查询后弹出窗口让输入text2.value，请高手看看哪里写错了

Answer 1

Me.RecordSource = "select * from basic where scode=text2.value"修改成：

Me.RecordSource = "select * from basic where scode='" & text2.value & "'" // 如果scode是字符型

或
Me.RecordSource = "select * from basic where scode=" & text2.value // 如果scode是数字型

Answer 2

Private Sub chaxun_Click()
Dim strSQL As string
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
strSQL="select sname from basic scode=" & me.text2.value
rst.Open strSQL,CurrentProject.Connection
me.Text1.Value = rst("sname")
End Sub
试试，对不对？

Answer 3

me.text1.setfocus
me.text1=dlookup("[sname]","basic","[scode]='"& me.text2 &"'")