phpaccess记账体系技巧_进出记账轨范 Access数据库系统设计制作实例 VBA编程

Call 总进出打算

Forms(进出记账程序).账户收入 = Nz(DLookup("账户收入", "账户进出查询", "账户名称='" & Forms(进出记账程序).账户名称 & "'"), 0)

Forms(进出记账程序).账户支出 = Nz(DLookup("账户支出", "账户进出查询", "账户名称='" & Forms(进出记账程序).账户名称 & "'"), 0)

Forms(进出记账程序).账户余额 = Forms(进出记账程序).账户收入 - Forms(进出记账程序).账户支出

End Sub

Private Sub 日期_DblClick(Cancel As Integer)

Me.日期 = Date

End Sub

账户进出查询数据表

Private Sub 账户名称_DblClick(Cancel As Integer)

Forms("进出记账程序").Filter = "账户名称='" & 账户名称 & "'"

Forms("进出记账程序").FilterOn = True

Forms("进出记账程序").账户名称.SetFocus

Forms("进出记账程序").账户收入 = Nz(DLookup("账户收入", "账户进出查询", "账户名称='" & Me.账户名称 & "'"), 0)

Forms("进出记账程序").账户支出 = Nz(DLookup("账户支出", "账户进出查询", "账户名称='" & Me.账户名称 & "'"), 0)

Forms("进出记账程序").账户余额 = Forms("进出记账程序").账户收入 - Forms("进出记账程序").账户支出

End Sub

进出记账程序

Private Sub Command天生报表_Click()

DoCmd.OpenReport "账户进出报表", acViewReport, , "账户名称='" & Me.账户名称 & "'"

End Sub

Private Sub Form_AfterUpdate()

Me.账户列表.Requery

End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

On Error GoTo 数据更新条件示_Err

If (MsgBox("是否保存对记录的修正", 1, "修正记录提醒") = 1) Then

Beep

Else

DoCmd.RunCommand acCmdUndo

End If

数据更新条件示_Exit:

' Exit Function

Exit Sub

数据更新条件示_Err:

MsgBox Error$

Resume 数据更新条件示_Exit

End Sub

Private Sub Form_Load()

Me.账户收入 = Nz(DLookup("账户收入", "账户进出查询", "账户名称='" & Me.账户名称 & "'"), 0)

Me.账户支出 = Nz(DLookup("账户支出", "账户进出查询", "账户名称='" & Me.账户名称 & "'"), 0)

Me.账户余额 = Me.账户收入 - Me.账户支出

Call 总进出打算

End Sub

Public Sub 总进出打算()

Forms("进出记账程序").总收入 = Nz(DSum("金额", "进出表", "进出='收入'"), 0)

Forms("进出记账程序").总支出 = Nz(DSum("金额", "进出表", "进出='支出'"), 0)

Forms("进出记账程序").总余额 = Forms("进出记账程序").总收入 - Forms("进出记账程序").总支出

End Sub