帮忙看一下这段代码错在哪?

zweidii

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

你查一下你的各字段有表中是否有空值的现象  把空值改成0  我前天这是这样啊!

zweidii

谢谢

tz-chf

这样做窗体上光标会跳动，可以直接操作记录集。

zweidii

4# tz-chf
直接操作记录集？是用ADO吗？
能帮忙写一个吗？