Office中国论坛/Access中国论坛

标题: 帮忙看一下这段代码错在哪? [打印本页]

作者: zweidii 时间: 2009-4-10 21:58
标题: 帮忙看一下这段代码错在哪?
Dim yr As Currency '余额
Dim jls As Integer '记录数
jls = Me.mscx_1.Form.RecordsetClone.RecordCount - 1
Forms!mscx!mscx_1!余额.SetFocus'焦点移动到子窗体的余额字段
DoCmd.GoToRecord acActiveDataObject, , acFirst

   If IsNull(Forms!mscx!mscx_1!余额) Then Forms!mscx!mscx_1!余额 =  Nz(Forms!mscx!mscx_1!本期借方, 0) - Nz(Forms!mscx!mscx_1!本期贷方, 0)
      Do Until Me.mscx_1.Form.CurrentRecord = jls
         yr = Forms!mscx!mscx_1!余额
         DoCmd.GoToRecord acActiveDataObject, , acNext
         Forms!mscx!mscx_1!余额 = Nz(Forms!mscx!mscx_1!本期借方, 0) - Nz(Forms!mscx!mscx_1!本期贷方, 0) + yr
      Loop

运行到"DoCmd.GoToRecord acActiveDataObject, , acNext"时，显示“不能移动到指定记录。这句代码应该怎么写呢？

作者: shitou1ge 时间: 2009-4-10 22:10
你查一下你的各字段有表中是否有空值的现象把空值改成0 我前天这是这样啊!

作者: zweidii 时间: 2009-4-11 20:57
谢谢

作者: tz-chf 时间: 2009-4-11 22:18
这样做窗体上光标会跳动，可以直接操作记录集。

作者: zweidii 时间: 2009-4-12 19:52
4# tz-chf
直接操作记录集？是用ADO吗？
能帮忙写一个吗？

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