Office中国论坛/Access中国论坛

标题: 求教用docmdrunsql执行操作查询表的代码错误 [打印本页]

作者: dxssxd    时间: 2009-2-7 01:05
标题: 求教用docmdrunsql执行操作查询表的代码错误
本帖最后由 dxssxd 于 2009-2-7 01:34 编辑

我要实现从文本框输入参数的多条件查询  操作的是名称为 “自定义查询”的查询表
以下是查询按钮的click事件
Private Sub Command9_Click()

Dim str As String
str = "SELECT * FROM 自定义查询 "
str = str & "WHERE [奶户编号]  ='" & Me.奶户编号 & "'"
DoCmd.RunSQL (str)
DoCmd.OpenQuery (自定义查询)
End Sub


好久不接触了 忘光光了  大家帮我看看 哪有问题 为什么过不去

另外如果我的语句如果完全不对
那么从文本框取值(分别是姓名和2个限定时间段的日期框)(可空)来对“自定义查询”表进行操作的sql语句怎么写

通过click事件触发 然后打开 经过查询筛选后的“自定义查询表”

万分感谢
作者: Henry D. Sy    时间: 2009-2-7 06:20
RunSQL
只能是动作查询,其并不还回记录集。
作者: todaynew    时间: 2009-2-7 09:39
从代码的错误信息中看,你是想对窗体数据进行筛选。基于这个判断,代码于是乎应该这样写:
Me.窗体名称.Form.filter = [奶户编号]  ='" & Me.奶户编号 & "'"
Me.窗体名称.Form.FilterOn = True

此外:不是卖的三鹿吧?
作者: andymark    时间: 2009-2-7 10:05
临时创建查询
作者: dxssxd    时间: 2009-2-7 12:33
其实这个功能可以用子窗体实现
但是我想用纯代码实现 可惜扔的太久了
谢谢大家
作者: ACMAIN_CHM    时间: 2009-2-7 13:24
解决方案之一:

Public Sub test3()
    CurrentProject.Connection.Execute "create view q1 as select * from t"
    DoCmd.OpenQuery "q1"
    CurrentProject.Connection.Execute "drop view q1 "
End Sub


你可以用DAO中的querydef


******************
*  一切皆有可能  *
******************

.

.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .
作者: Henry D. Sy    时间: 2009-2-7 19:57
动态定义查询也可以




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3