我想实现上图的功能，请问我给怎么做

1、先建一"查询1",其SQL如下:

SELECT 家庭财务表.日期, 家庭财务表.财务类别, 家庭财务表.发生金额, 家庭财务表.备注, Year([日期]) & "-" & Month([日期]) AS 月份
FROM 家庭财务表;

2、建一“窗体1”，在窗体1中放置“窗体1子窗体”，在“窗体1子窗体”中的加载事件中加入代码：

Private Sub Form_Load()
Dim str As String
Dim N1, N2 As Long
str = "select * from 查询1 where [月份]='" & Forms![家庭财务查询]![Text3] & "' order by [发生金额] desc"
Me.RecordSource = str
N1 = DSum("发生金额", "查询1", "发生金额>0 and 月份='" & Forms![家庭财务查询]![Text3] & "'")
N2 = DSum("发生金额", "查询1", "发生金额<0 and 月份='" & Forms![家庭财务查询]![Text3] & "'")
Forms![窗体1]![text0] = N1
Forms![窗体1]![text1] = N2
Forms![窗体1].Caption = "“" & Forms![家庭财务查询]![Text3] & "”家庭财务查询"
End Sub

这样的好处是，你只要一个窗体1，就能查询任意月份的家庭财务查询

点击下载此附件