请教各位如何设计窗体（带附件）

qjj1221

我现在数据库里有2个表，统计表、统计表1。里面的字段全部一样，分别是“日期、项目、单价、数量、金额、备注”现在我想查询2个表里日期相同的记录，比如想查询日期为2009-7-1的记录，符合条件的记录则会查询出来。现在我是利用查询语句实现的，现在我想通过设计窗体查询出来，就是日期能够让我输入，然后点窗体上的“查询”按钮即可查询，请问该如何弄？谢谢！！附件里是我的数据库，请大虾帮忙看下，非常感谢！！！

aslxt

建立一个窗体[窗体1],在该窗体中新建一个Text0,用于输入日期,一个Command2,用于刷新数据,一个子窗体[Me.查询1子窗体],用于显示查询结果,该子窗体可以使用你的[查询1]建立!
Private Sub Command2_Click()
  Me.查询1子窗体.Form.RecordSource = "select * from 统计表 where 日期=#" & Text0 & "# " & _
                                  " UNION ALL select * from 统计表1 where 日期=#" & Text0 & "#;"

End Sub

aslxt

如附件