Office中国论坛/Access中国论坛

标题: 求教:如何计算余额? [打印本页]

作者: 小溪 时间: 2003-10-4 22:36
标题: 求教:如何计算余额?
例:
表中的三个字段: 收入支出余额
余额等于上条记录的余额加上本条记录的收入减支出。
如何实现？初次涉足ACCESS编程，请各位多多指教！

作者: 小溪 时间: 2003-10-9 19:51
解决了，谢谢！

作者: 盗到稻 时间: 2003-10-9 23:31
可参考一下
Public Sub 分类帐补余额_贷方余额()
'本宏为贷方余额者,若生成贷方余额,则以负号表示.
Dim varBalance As Double, strLedger As String
Dim rs1 As Recordset
Set rs1 = New ADODB.Recordset
'指定rs1的联接数据库为目前打开的数据库
rs1.ActiveConnection = CurrentProject.Connection
On Error GoTo 错误式
strLedger = InputBox("请输入你要补余额的分类帐表的名称", "基础理论")
      '使用open方法打开刚生成的表 [？？分类帐]
rs1.Open strLedger, , adOpenKeyset, adLockOptimistic, adCmdTable
      '先设余额等于零
varBalance = 0
      '使用Do Loop循环在表记录集合中逐笔往下计算本日余额
Do Until rs1.EOF
      'rs1.Cancelupdate
      rs1("余额") = rs1!贷方金额 - rs1!借方金额 + varBalance
      rs1.Update
      varBalance = rs1!余额
      rs1.MoveNext
Loop
MsgBox "余额字段已替你补好了,你不必自己计算"
DoCmd.SelectObject acTable, strLedger, True
DoCmd.OpenTable strLedger, acViewNormal, acEdit
DoCmd.GoToControl "余额"

[此贴子已经被作者于2003-10-9 16:11:53编辑过]

作者: 小溪 时间: 2003-10-10 23:18
虽然比调用函数复杂，但是从中学了不少东东，谢了！

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