设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

access查询设计余额计算例程

2002-5-6 01:50| 发布者: admin| 查看: 1859| 评论: 13|原作者: lwwvb|来自: www.office-cn.net

摘要: lwwvb版主的余额计算例程,非常不错,值得下载 文件下载
一个余额计算例程,非常不错,值得下载
可以动态地计算余额

f 是一个自定义函数,原型如下,作用是为了计算当前日期的余额,其实这个实例也可以直接在窗体的Text控件里用DSUM函数实现的:
Public Function f(d As Date) As Currency
  Dim a As Currency
  Dim b As Currency
  a = Nz(DSum("[银行存款]![存入]", "[银行存款]", "[日期] <=  # " & d & "#"))
  b = Nz(DSum("[银行存款]![提款]", "[银行存款]", "[日期] <=  # " & d & "#"))
  f = a - b
End Function


发表评论

最新评论

引用 huanghai 2002-5-6 02:11
我已经下载了,真的不错。
引用 ui 2002-5-8 08:41
真极品,ACCESS真是什么都能做,版主的东东让我对ACCESS有信心
引用 yuanhai 2002-5-29 00:07
好东西啊
引用 海棠花 2003-2-5 12:03
http://www.erpbus.net/access/topic.asp?topic_id=6930&forum_id=54

这是Access交流中心hung59直接在查询中做的例子
引用 gxason 2003-4-3 07:24
我正在下载不知道好不好用??
引用 cg1 2003-4-6 18:59
http://temp.shtip.com.cn/web/index.asp?board=4&mode=3&recordid=254

也许你还有启发
引用 哈瘌子 2003-4-10 21:05
以下是引用tmtony在2002-5-5 17:49:34的发言:
lwwvb版主的余额计算例程,非常不错,值得下载
文件下载

能解释一下 f   的作用吗?
引用 marco2 2003-10-9 17:00
f 是一个自定义函数,原型如下,作用是为了计算当前日期的余额,其实这个实例也可以直接在窗体的Text控件里用DSUM函数实现的:
Public Function f(d As Date) As Currency
  Dim a As Currency
  Dim b As Currency
  a = Nz(DSum("[银行存款]![存入]", "[银行存款]", "[日期] <=  # " & d & "#"))
  b = Nz(DSum("[银行存款]![提款]", "[银行存款]", "[日期] <=  # " & d & "#"))
  f = a - b
End Function
引用 nxjswt 2005-7-14 09:40
谢谢!!!!!!!!!!!
引用 cdwlove 2005-12-5 22:15
看帖不忘顶!!!!
引用 wf_xcb 2005-12-6 17:37
商榷!




这应作效率特差?====>>




    ====>>原因:每次打开查询,都要基于表中的纪录的顺序逐条重新计算余额。假若基表中的纪录达到万条乃至几十条,你试试要等待多长时间?




   =====>>解决方案:用静态数据,换取显示速度,也就是要[将即时余额填入表的余额字段(最好不用Dsum函数)]。




[em01]




引用 tonywang 2005-12-7 19:14
厉害,
引用 ljp518 2014-2-14 16:44
谢谢分享

查看全部评论(13)

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-4-26 16:06 , Processed in 0.087011 second(s), 23 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部