请教：如何在窗体中通过文本框查询多个子窗体数据

snow9988

请教：如何在窗体中通过文本框查询多个子窗体数据各位达人老师：

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


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

详见附件！

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

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

Henry D. Sy

http://www.accessbbs.cn/bbs/thread-9356-1-1.html

snow9988

这个我看过啦，不过…………没看懂~~~~~~~

一堆代码~~~

Henry D. Sy

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

一堆代码~~~

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

snow9988

非常感谢，认真学习中。

snow9988

又认真看了一遍，真的有收获！

Henry D. Sy

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

学习了！