建立一个窗体[窗体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 & "#;"