使用VBA执行一个查询提示“至少一个参数没有被指定值”

susan　发表于：2012-07-03 17:32:32 　

使用VBA打开建好的查询，不过增加了一个新的条件，使用以下语句查询时提示“至少一个参数没有被指定值”，请教专家指点。

确定该查询有BC字段，单步执行时，rd.fields(0)也有值，担心字符型不匹配，又加了chr(34)代替双引号，仍不成功。

Set conn = CurrentProject.Connection

rd.Open "Select * From netoff_sum_bc", conn, adLockReadOnly, adLockReadOnly　　‘这步执行成功，也是执行一个查询
sql = "Select * From netoff_sum_rate where bc=" & Chr(34) & rd.Fields(0) & Chr(34)　‘打开另一个查询
rds.Open sql, conn, adLockReadOnly, adLockReadOnly　　’出错

Top

煮江品茶发表于：2012-07-03 17:54:40

sql = "Select * From netoff_sum_rate where bc='" & rd.Fields(0) & "'"

Top

susan 发表于：2012-07-04 10:00:57

感谢您的回复。

我查过类似问题，也改成您所说的这种了，但仍然同样的错误提示。

sql = "Select * From netoff_sum_rate where bc='" & Trim(rd.Fields(0).Value) & "'"
rds.Open sql, conn, adOpenDynamic, adLockOptimistic
是因为netoff_sum本身就是一个有where条件的查询吗？还有什么错误的可能吗？

我用单步执行出来sql的内容特地在新建查询里执行了，是没有问题的，可为什么VBA就不行呢？

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

使用VBA执行一个查询提示“至少一个参数没有被指定值”