为编程爱好者分享易语言教程源码的资源网

网站首页 > 数据库 > Access 正文

收支记账程序 Access数据库系统设计制作实例 VBA编程

三叶资源网 2022-06-26 Access 290 ℃ 0 评论

收支数据表

Private Sub Form_AfterUpdate()

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

Tags:创建access数据库

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网⑤群:21414575

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网⑤群:三叶资源网⑤群

网站分类
随机tag
UDP组播京东注册滑块快手did获取数组剖析获取网络IP地址DNS自绘旋转图片奇易模块隐藏外部程序易CEF3浏览器支持库机器人限制窗口位置和尺寸聚享游post鱼刺HTTP工作记忆训练对比两块内存酷Q智能机器人源码无水印COM对象组件易语言做网站JS加密
最新评论

公告×

公告1:域名更换通知
公告2:关于部分地区无法访问本站的解决方法
公告3:未登录用户禁止搜索通知