Question

access ado 窗体查询出现标准表达式中数据类型不匹配问题

Option Compare Database
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim temp As String

Private Sub 查询_Click()
Dim aa As String
aa = Me.身份证号码
If DCount("[身份证号码]", "申请人信息", "[身份证号码]='" & Me.身份证号码 & "'") = 1 Then
temp = "select * from 申请人信息 where 身份证号码 = " & 身份证号码
rst.Close
rst.Open temp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic '标准表达式中数据类型不匹配
If Not rst.EOF Then
Do While Not rst.EOF
身份证号码.Value = rst("身份证号码")
租户姓名.Value = rst("租户姓名")
批次.Value = rst("批次")
电话.Value = rst("电话")
rst.MoveNext
Loop
Else
End If

Else
MsgBox "无此申请人信息，请查询！", vbOKOnly, "错误提示！"
End If
End Sub

Answer 1

问题出在 《temp = "select * from 申请人信息 where 身份证号码 = " & 身份证号码》这个语句中，既然是“标准表达式中数据类型不匹配”，那么说明你的“身份证号码”这个变量的数据类型与字段“身份证号码”的数据类型不一样。
一般变量名称尽量不要使用汉字，并且你的变量名称与字段名称是一样的，很容易出现问题。
比如你的字段的数据类型是字符数据，你的变量的数据是数字数据，这样就不可以。
不清楚你的字段的数据类型，变量的数据类型，无法给你修改的语句。