根据文本框1的内容在文本框2显示相应的内容，总提示错误

qq89486841

麻烦各位帮忙看一下代码错在哪里，谢谢帮忙

我是想在text0中输入TaxLocation字段的值，然后系统自动在Text2中显示对应的税率，代码写了出来，但总提示“2147217904。至少有一个参数未被指定值“，不知是什么原因，请给位帮忙，
代码如下：

Private Sub Text0_AfterUpdate()
    Dim rs As ADODB.Recordset
    Dim a
    Set rs = New ADODB.Recordset
    rs.Open "select * from 表1 where TaxLocation =" & me!Text0 , CurrentProject.Connection, adOpenDynamic, adLockOptimistic
    If Not rs.EOF Then
    a = rs!TaxRate
    MsgBox a
    End If
    rs.Close
    Set rs = Nothing
End Sub

Database1.zip (20.96 KB, 下载次数: 20)

2012-2-21 14:40 上传

点击文件名下载附件

qq89486841

自己顶一下，不能沉

marco

注意文本类型的前后加单引号
Private Sub Text0_AfterUpdate()
    Dim rs As ADODB.Recordset
    Dim a
    Set rs = New ADODB.Recordset
    rs.Open "select * from 表1 where TaxLocation ='" & Me!Text0 & "'", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
    If Not rs.EOF Then
    Text2.Value = rs!TaxRate
   
    End If
    rs.Close
    Set rs = Nothing

End Sub

qq89486841

marco 发表于 2012-2-21 15:45
注意文本类型的前后加单引号
Private Sub Text0_AfterUpdate()
    Dim rs As ADODB.Recordset

真是太谢谢你了，在看到你的回复之前，这个问题一直困扰着我