求教用docmdrunsql执行操作查询表的代码错误

dxssxd

我要实现从文本框输入参数的多条件查询  操作的是名称为 “自定义查询”的查询表
以下是查询按钮的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

RunSQL
只能是动作查询，其并不还回记录集。

todaynew

从代码的错误信息中看，你是想对窗体数据进行筛选。基于这个判断，代码于是乎应该这样写：
Me.窗体名称.Form.filter = [奶户编号]  ='" & Me.奶户编号 & "'"
Me.窗体名称.Form.FilterOn = True

此外：不是卖的三鹿吧？

andymark

临时创建查询

dxssxd

其实这个功能可以用子窗体实现
但是我想用纯代码实现 可惜扔的太久了
谢谢大家

ACMAIN_CHM

解决方案之一：

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

动态定义查询也可以