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

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

资讯

公司动态
业界资讯

Access资讯

Excel资讯

Word资讯

PPT资讯

其它Office资讯

微软新闻

IT资讯

热门文章

  • AMD对戴尔说不 微软要请..
  • 5大行业急着招能人 中高级..
  • 方兴东预言中国新媒体发展速..
  • 微软亚洲研究院成人才摇篮 ..
  • 百度、天极口水战升级 天极..
  • 微软操作系统定价之谜 正版..

最新文章

  • 李开复:中国高校急需根据社..
  • 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-08-21] 比亚迪抛出“袋鼠”模式 要造电动车和跑车access数据库
  • [2006-11-20] 惠普营业额逾九百亿 超IBM成全球最大IT公司access数据库
  • [2006-04-28] 微软Office正版增值计划遭到大多数用户反对access数据库
  • [2005-10-31] “网赚”诈骗又出新花样 叫卖网站源代码骗钱财access数据库
  • [2006-08-09] 华硕鸿海殊途同归 并购映射台湾省业态access数据库
  • [2005-04-23] 微软下周一将发布64位Windows操作系统access数据库

热门产品

  1. 适合国庆/元旦/中秋等节日抽奖的程序

    适合国庆/元旦/中秋等节日抽奖的程序

  2. 较强的日程管理功能源码(新版)

    较强的日程管理功能源码(新版)

  3. 短信专家接口(可用于企业及个人多种短信用途)

    短信专家接口(可用于企业及个人多种短信用途)

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

中山市天鸣科技发展有限公司 版权所有 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-2021  www.metinfo.cn