点击下载此附件
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、修改窗体中的“记帐日期”,同一日期可录入多条记录,且与日期先后无关