Office中国论坛/Access中国论坛

标题: 请教：如何在窗体中通过文本框查询多个子窗体数据 [打印本页]

作者: snow9988 时间: 2009-1-21 11:38
标题: 请教：如何在窗体中通过文本框查询多个子窗体数据
请教：如何在窗体中通过文本框查询多个子窗体数据各位达人老师：

急求一个问题：如何在窗体中通过文本框查询多个子窗体数据

问题描述：
1.在窗体视图中，有两个文本框，一个命令按钮，两个子报表（子报表一个来自表，一个来自查询）。
2.要求功能：在文本框输入搜索词，按下命令按钮，两个子报表显示查询结果
3.简单说，用文本框为查询/筛选赋值。

详见附件！

在论坛上看到一些范例，但是道行太浅，一时消化不了，功课赶着要在年前交，有点心力交瘁了，有劳各位详细指点一下。

如果需要代码，麻烦提供一下详细内容，先鞠躬感谢！

作者: Henry D. Sy 时间: 2009-1-21 14:09
http://www.accessbbs.cn/bbs/thread-9356-1-1.html

作者: snow9988 时间: 2009-1-21 17:24
这个我看过啦，不过…………没看懂~~~~~~~

一堆代码~~~

作者: Henry D. Sy 时间: 2009-1-21 19:48

原帖由 snow9988 于 2009-1-21 17:24 发表
这个我看过啦，不过…………没看懂~~~~~~~

一堆代码~~~

里面有个word，讲解的很详细。

作者: snow9988 时间: 2009-1-23 11:32
非常感谢，认真学习中。

作者: snow9988 时间: 2009-1-23 11:40
又认真看了一遍，真的有收获！

作者: Henry D. Sy 时间: 2009-1-23 20:38
Private Sub cmd查询_Click()
Dim strCriteria As String
Dim strSQL As String
If IsNull(Me.公司) Then Exit Sub
strCriteria = "公司='" & Me.公司 & "'"
strSQL = "SELECT * FROM 2007实际财务数据 where " & strCriteria
Me.Ctl2007实际财务数据_子窗体.Form.RecordSource = strSQL
strSQL = "SELECT * FROM qry与预算比较 where " & strCriteria
Me.qry与预算比较_子窗体.Form.RecordSource = strSQL
End Sub

作者: brothers 时间: 2009-6-12 18:34
学习了！

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