关于：至少一个参数未被指定值的问题

[jeangood]

关于客户管理的

Dim oldsuoyin1 As String '索引1是字母（单个）
Dim oldsuoyin2 As Integer '索引2是数字（从1开始自动编号）

Private Sub Command3_Click() '修改

client.RecordSource = "select * from client where 索引1 = " & oldsuoyin1 & " and 索引2 = " & oldsuoyin2 & ""
client.Refresh

With client.Recordset
.Fields(0) = Text2.Text
.Fields(1) = Label28.Caption
.Fields(2) = Label16.Caption
.Fields(3) = Combo11.Text
.Fields(4) = Combo12.Text
.Fields(5) = Combo13.Text
.Fields(6) = Combo14.Text
.Fields(7) = Combo15.Text
.Fields(8) = Combo16.Text
.Fields(9) = Combo17.Text
.Fields(10) = Combo18.Text
.Update
End With

调试时已显示：
"select * from client where 索引1 = A and 索引2 = 8"

但还是显示：至少一个参数未被指定值。为什么？

[jeangood]

这是ACCESS表中的字段

[wcymiss]

文本类型的常数要用引号括住。
select * from client where 索引1 = 'A' and 索引2 = 8"
代码应该写成:
client.RecordSource = "select * from client where 索引1 = '" & oldsuoyin1 & "' and 索引2 = " & oldsuoyin2