四时宝库

代码如下：

Private Sub Combo1_AfterUpdate()

Me.Combo2 = ""

Me.Combo2.Requery

End Sub

Private Sub Combo2_AfterUpdate()

Select Case Combo2

Case Is = "年度收入项目查询"

Me.日期起始.Enabled = False

Me.日期截止.Enabled = False

Me.收支查询子窗体.SourceObject = "查询.年度收入项目查询"

Case Is = "月度收入项目查询"

Me.收支查询子窗体.SourceObject = "查询.月度收入项目查询"

Case Is = "收入明细查询"

Me.收支查询子窗体.SourceObject = "查询.收入明细查询"

Case Is = "年度支出类目查询"

Me.收支查询子窗体.SourceObject = "查询.年度支出类目查询"

Case Is = "月度支出类目查询"

Me.收支查询子窗体.SourceObject = "查询.月度支出类目查询"

Case Is = "年度支出项目查询"

Me.收支查询子窗体.SourceObject = "查询.年度支出项目查询"

Case Is = "月度支出项目查询"

Me.收支查询子窗体.SourceObject = "查询.月度支出项目查询"

Case Is = "支出明细查询"

Me.收支查询子窗体.SourceObject = "查询.支出明细查询"

Case Is = "年度收支总查询"

Me.收支查询子窗体.SourceObject = "查询.年度收支总查询"

Case Is = "月度收支总查询"

Me.收支查询子窗体.SourceObject = "查询.月度收支总查询"

Case Is = "收支明细查询"

Me.收支查询子窗体.SourceObject = "查询.收支明细查询"

End Select

End Sub

原由如下，增加代码：

Private Sub 日期起始_Change()

Me.Refresh

End Sub

Private Sub 日期截止_Change()

Me.Refresh

End Sub