Access交流网
  • 设为首页|收藏本站|繁体中文|手机版
  •     
  • Access培训-Access开发平台-Access行业开发

  • 首页
  • 资讯
  • 技巧
  • 源码
  • 行业
  • 资源
  • 产品
  • 活动
  • 培训
  • 招聘
  • 论坛
  • 商城
  • 关于

资讯

公司动态
业界资讯

Access资讯

Excel资讯

Word资讯

PPT资讯

其它Office资讯

微软新闻

IT资讯

热门文章

  • 金山词霸2006昨上市 首..
  • 中国把“超3G”列入十一五..
  • 张朝阳:搜狐博客代表互联网..
  • 你问我答:Google推出..
  • 大学生求职:定单就业火了I..
  • 迈克菲安全软件发现漏洞 导..

最新文章

  • 李开复:中国高校急需根据社..
  • VBA编程常用语句300句
  • SQL基础:常用SQL语句..
  • ACCESS学习日记
  • 多表查询技巧
  • Oracle数据库EXP、..

联系方式

Access交流网

电  话:0760-88315075
热  线:0760-88315075

邮  编:528463
咨询QQ:1918333016
营销QQ:4008553990

Email:1918333016@qq.com

网  址:www.access-cn.com

当前位置:首页 > 资讯 > 业界资讯 > IT资讯
IT资讯

分类计算余额的函数

函数名称:     计算余额
'-功能描述:     分类计算余额
'-输入参数说明: 参数1: 必选 str表 As String   计算余额的表名称
'               参数2: 必选 str日期 As String 日期 排序的字段名称
'               参数3: 必选 str分类 As String 分类的字段名称,字段类型:数字
'               参数4: 必选 str借方 As String 计算余额增加方字段名称,字段类型:数字
'               参数5: 必选 str贷方 As String 计算余额减少方字段名称,字段类型:数字
'               参数6: 必选 str余额 As String 计算的余额字段,字段类型:数字
'-返回参数说明: 计算成功返回True;计算失败返回False
'-使用语法示例: bln = 计算余额("银行存款", "日期", "银行", "存入", "提款", "余额")
'-参考:
'-使用注意:     使用本函数时请保留函数信息内容,需要引用ADO
'-兼容性:       2000,XP,2003

'
'===============================================================================
Function 计算余额(str表 As String, _
                str日期 As String, _
                str分类 As String, _
                str借方 As String, _
                str贷方 As String, _
                str余额 As String) As Boolean
On Error GoTo Err_计算余额
Dim conn As New ADODB.Connection
Dim rs As New Recordset
Dim rsTemp As New Recordset
Dim strSQL As String
Dim dblBalance As Double
   Set conn = CurrentProject.Connection
   strSQL = "SELECT DISTINCT " & str分类 & " FROM " & str表
   rsTemp.Open strSQL, conn, adOpenKeyset, adLockOptimistic
   Do While Not rsTemp.EOF
        strSQL = "SELECT * FROM " & str表
        strSQL = strSQL & " WHERE " & str分类 & " = " & rsTemp(str分类)
        '如果分类字段的数据类型为文本,请使用以下这句代码
        'strSQL = strSQL & " WHERE " & str分类 & " = '" & rsTemp(str分类) & "'"
        strSQL = strSQL & " ORDER BY " & str日期 & ";"
        rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic
        dblBalance = 0
            Do While Not rs.EOF
                rs(str余额) = Nz(rs(str借方), 0) - Nz(rs(str贷方), 0) + dblBalance
                dblBalance = rs(str余额)
                rs.Update
                rs.MoveNext
            Loop
            rs.Close
        rsTemp.MoveNext
   Loop
    计算余额 = True
   
    rsTemp.Close
    Set rsTemp = Nothing
    Set rs = Nothing
    Set conn = Nothing
   
Exit_计算余额:
    Exit Function
   
Err_计算余额:
    计算余额 = False
    Set rsTemp = Nothing
    Set rs = Nothing
    Set conn = Nothing
    MsgBox Err.Description
    Resume Exit_计算余额
End Function
发布人:fan0217@163.com-Access开发者  
分享到:
点击次数:  更新时间:2006-10-23 21:50:59  【打印此页】  【关闭】
上一篇:苹果最新iPod无线功能专利  下一篇:精妙SQL语句 值得推敲



相关文章

  • • 李开复:中国高校急需根据社会需求培养学生
  • • VBA编程常用语句300句
  • • SQL基础:常用SQL语句详解 (转)
  • • ACCESS学习日记
  • • 多表查询技巧
  • • Oracle数据库EXP、IMP命令语句使用方法
  • • SQL注入的高级应用ACCESS篇!
  • • 代码打开页面设置

热门文章

  • [2006-11-06] 福克斯搭车PS3 X战警3蓝光影碟公布access数据库
  • [2006-04-21] 微软面临危机重重 新CTO肩负扭转危局使命access数据库
  • [2006-09-30] 爱立信与T-Com携手试验全球首次下一代光技术access数据库
  • [2006-11-23] 批量去除通过ODBC连接到SQL Server链接表名前的"DBO_"access数据库
  • [2006-11-19] AMD缺货冲击波 英特尔将降价反击access数据库
  • [2006-11-22] Dell惠普刺激1GB内存市场极速成长access数据库

热门产品

  1. 电子厂管理软件系统

    电子厂管理软件系统

  2. 通用POS软件

    通用POS软件

  3. Access通用开发平台

    Access通用开发平台

公司动态|在线留言|在线反馈|联系我们|友情链接|会员中心|站内搜索|网站地图

中山市天鸣科技发展有限公司 版权所有 1999-2018 粤ICP备10043721号

广东省中山市西苑广场富贵阁20楼A座

电话:0760-88315075 手机:13928102596 QQ:1918333016

Access应用 Access培训 Access开发 Access平台

access|数据库|access下载|access教程|access视频|access软件

Powered by MetInfo 5.3.12 ©2008-2022  www.metinfo.cn