点击下载此附件

1、创建表“日记帐表”，其中“序号”字段为自动编号，主键

2、创建查询“计算余额查询”，在查询中增加一字段“余额: DSum("收入金额","日记帐表","序号<=" & [序号])-DSum("支出金额","日记帐表","序号<=" & [序号])”

3、创建窗体“窗体1”，在“窗体1”中添加一文本控件“记帐日期”，设置其默认值为：date(),可以修改日期；再添加一子窗体“计算余额查询子窗体”，在其中的两控件（[支出金额]和[收入金额]）的更新后事件中加入代码：

Private Sub 收入金额_AfterUpdate()
If Me.收入金额 <> 0 Then
    Me.日期 = Forms![窗体1]![记帐日期]

End If
End Sub

Private Sub 支出金额_AfterUpdate()
If Me.支出金额 <> 0 Then
    Me.日期 = Forms![窗体1]![记帐日期]

End If
End Sub

其目的是：在子窗体中录入数据时，按窗体中的“记帐日期”，自动填充日期

4、修改窗体中的“记帐日期”，同一日期可录入多条记录，且与日期先后无关