[求助]在VBA中使用SQL语句时出错

好学

Private Sub Form_Load()
    Dim strSQL As String
    strSQL ="Select 数值, DCount([数值],"码表","数值<" & [数值])+1 AS 排名 from 码表" _
    & ORDER BY DCount([数值],"码表","数值<" & [数值])+1;
    Me!要求结果_子窗体.Form.RecordSource = strSQL
End Sub


上面的提示出错:缺少语句结束!             请问我错在那里呢?

fan0217

strSQL ="Select 数值, DCount([数值],"码表","数值<" & [数值])+1 AS 排名 from 码表" _
    & ORDER BY DCount([数值],"码表","数值<" & [数值])+1;

这句明显的有错误，变量和函数不能用双引号引起来。以下语句没有进行测试，仅是根据书写格式进行了修改。如不能通过测试，请自己再做必要的修改。


strSQL ="Select 数值," & DCount([数值],"码表","数值<" & [数值])+1 & " AS 排名 from 码表 ORDER BY " & DCount([数值],"码表","数值<" & [数值])+1;"

好学

还是不行啊[em01][em01][em01]

andymark

建议把SQL写到窗体的记录源上去

好学

andymark版主我是参考查询写的,如果用查询是没问题的,但我有特殊的原因才用VBA写.