Office中国论坛/Access中国论坛

标题: 如何做一个流水记帐? [打印本页]

作者: ldx6 时间: 2006-5-23 06:36
标题: 如何做一个流水记帐?
小弟初学,就想做个简单的收支余额的帐.可以按月统计各类信息的.

我想在查询中显示的每一笔都有余额,自动按借贷方加减,而不是一个总的余额.

请各位高手帮忙指点一下,谢谢了.

有源码更好,呵呵

作者: 一点通 时间: 2006-5-23 16:47
请看下这个例子

http://www.office-cn.net/forum.php?mod=viewthread&tid=761&replyID=&skin=1

作者: tz-chf 时间: 2006-5-23 16:51
在报表中可以加个汇总字段的文本框，能自动累计。

作者: ldx6 时间: 2006-5-24 06:04
这个例子自定义了一个函数吧,我不太明白,

内置的函数做不出来吗

作者: fan0217 时间: 2006-5-24 06:09

以下是引用一点通在2006-5-23 8:47:00的发言：

请看下这个例子

http://www.office-cn.net/forum.php?mod=viewthread&tid=761&replyID=&skin=1

这是个典型的流水帐，只要能实现，还要拘泥于形式吗？

作者: tz-chf 时间: 2006-5-24 06:10
在报表中把金额字段"运行总额"属性改一下

作者: fan0217 时间: 2006-5-24 06:26
这里也有个计算余额的函数，使用时直接套用就可以了。

'示例 Call 计算余额("财务明细帐", "收入", "支出", "余额")
Public Function 计算余额(str表 As String, str借方 As String, str贷方 As String, str余额 As String) As Boolean
On Error GoTo Err_计算余额
Dim con As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim varBalance As Double

Set con = CurrentProject.Connection

Rs.Open str表, con, adOpenKeyset, adLockOptimistic, adCmdTable

varBalance = 0
Do Until Rs.EOF
      Rs.CancelUpdate
      Rs(str余额) = Nz(Rs(str借方), 0) - Nz(Rs(str贷方), 0) + varBalance
      Rs.Update
      varBalance = Rs(str余额)
      Rs.MoveNext
Loop

计算余额 = True
Rs.Close
Set Rs = Nothing
Set con = Nothing

Exit_计算余额:
Exit Function

Err_计算余额:
计算余额 = False
Set Rs = Nothing
Set con = Nothing
MsgBox Err.Description
Resume Exit_计算余额

End Function

作者: pohoo 时间: 2008-6-28 17:39
要分10分的呀，不能看呀！！

作者: xcshine 时间: 2009-11-11 21:55
函数怎么套用，盼高手详解一下

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)