Office中国论坛/Access中国论坛

标题: [求助]非常难的问题向高手们请教 [打印本页]

作者: 常言笑 时间: 2004-11-26 19:25
标题: [求助]非常难的问题向高手们请教
在窗体中有一个文本框，接受用户输入段号并按段号进行查询，并将查询的结果生成EXCEL表格。

dim StrWhere As String

StrWhere = me.段号

strSQL = "SELECT  *" & _

            "FROM 台帐 " & _

            "WHERE 段号 =  StrWhere " & "ORDER BY 段序号;"这一句有没有错

      Set qdf1 = dbs.CreateQueryDef("~台帐", strSQL)



      Set TableA = dbs.OpenRecordset("~台帐", dbOpenSnapshot)这两句怎样理解,为什么总是提示运行时错误 '3061' 参数不足,期待是1,请高手们帮忙看一下到底错在哪,该如何改正,感激不尽[attach]7830[/attach]

作者: 大熊 时间: 2004-11-26 19:53
"WHERE 段号 = StrWhere " & "ORDER BY 段序这段肯定错了。

作者: 大熊 时间: 2004-11-26 19:54
strSQL = "SELECT  * " & _

            "FROM 台帐 " & _

            "WHERE 段号 = '" & strWhere & "' ORDER BY 段序号;"这样修改我试了好像没问题啊。你改好再传上来试试.

作者: 常言笑 时间: 2004-11-26 22:42
OK,问题解决了，向大熊同志表示我最衷心的感谢！这个问题让我这个菜鸟头痛了许久，不知所措，再此向你表示感谢，并向你学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)