提示“数据明细不能为空”，“不能找到表达式中引用的字段"|1"

点击下载此附件

这是我重新下载的快速开发平台上的数据库文件和主文件，因为无法全部上传，所以只上传了这两个文件 ，我已经做好的程序，文件太大，包含的东西太多，无法上传。

现在的主要问题是：我现在开发的程序已经完成，也正在使用，但是现在需要在原来的基础上加上几个字段，同时，改一下自动计算的内容，我在原窗体上改，改过以后一进提示”数据明细不能为空“，无法保存。

                          后来我干脆直接把原来的窗体删除，用自动生成器再生成了一组窗体，把代码写进去以后，又一进提示”不能找到表达式中引用的字段"|1"，就算是我把原来没出问题的程序代码粘贴进去依然出现这个提示。

求各位大神帮忙啊！！！

原来没出问题时的代码：
    Dim strSQL: strSQL = "SELECT * FROM [FYMX] WHERE [BH]=" & Nz(Me![BH], 0)
    Dim rst:    Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
    If rst.EOF Then
    rst.AddNew
    rst!CZY = GetParameter("Current User Username")
    rst![ZBCJE] = Round([XNHBCJE] + [QTBCJE], 2)
    rst!XTSBBZ = DLookup("[XTSBBZ]", "FPRYXXB_Q", "[SFZH] = Forms![frmFYMX_Edit]!SFZH")
    If [ZYJBQFX] < 301 Then
    rst![BCJMFY] = Round(IIf([ZYZFY] - [XNHBCJE] - [QTBCJE] > ([ZYZFY] - [JBYLFWZZFXM] - [ZYJBQFX]) * 0.05 + [ZYJBQFX] + [ZLF] * 0.1 + [CWF] * 0.1 + [ZLF_1] * 0.1 + [ZSF] * 0.1 + [JBYLFWZZFXM] * 0.3 + [CC] * 0.3 + [CGZ] * 0.3 + [CT] * 0.3 + [QT] * 0.4, ([ZYZFY] - [JBYLFWZZFXM] - [ZYJBQFX]) * 0.05 + [ZYJBQFX] + [ZLF] * 0.1 + [CWF] * 0.1 + [ZLF_1] * 0.1 + [ZSF] * 0.1 + [JBYLFWZZFXM] * 0.3 + [CC] * 0.3 + [CGZ] * 0.3 + [CT] * 0.3 + [QT] * 0.4, [ZYZFY] - [XNHBCJE] - [QTBCJE]), 2)
    rst![GRZFJE] = Round([ZYZFY] - [XNHBCJE] - [QTBCJE] - Round(IIf([ZYZFY] - [XNHBCJE] - [QTBCJE] > ([ZYZFY] - [JBYLFWZZFXM] - [ZYJBQFX]) * 0.05 + [ZYJBQFX] + [ZLF] * 0.1 + [CWF] * 0.1 + [ZLF_1] * 0.1 + [ZSF] * 0.1 + [JBYLFWZZFXM] * 0.3 + [CC] * 0.3 + [CGZ] * 0.3 + [CT] * 0.3 + [QT] * 0.4, ([ZYZFY] - [JBYLFWZZFXM] - [ZYJBQFX]) * 0.05 + [ZYJBQFX] + [ZLF] * 0.1 + [CWF] * 0.1 + [ZLF_1] * 0.1 + [ZSF] * 0.1 + [JBYLFWZZFXM] * 0.3 + [CC] * 0.3 + [CGZ] * 0.3 + [CT] * 0.3 + [QT] * 0.4, [ZYZFY] - [XNHBCJE] - [QTBCJE]), 2), 2)
    Else
    rst![BCJMFY] = Round(IIf([ZYZFY] - [XNHBCJE] - [QTBCJE] > ([ZYZFY] - [JBYLFWZZFXM] - [ZYJBQFX]) * 0.05 + [ZYJBQFX] * 0.5, ([ZYZFY] - [JBYLFWZZFXM] - [ZYJBQFX]) * 0.05 + [ZYJBQFX] * 0.5, [ZYZFY] - [XNHBCJE] - [QTBCJE]), 2)
    rst![GRZFJE] = Round([ZYZFY] - [XNHBCJE] - [QTBCJE] - Round(IIf([ZYZFY] - [XNHBCJE] - [QTBCJE] > ([ZYZFY] - [JBYLFWZZFXM] - [ZYJBQFX]) * 0.05 + [ZYJBQFX] * 0.5, ([ZYZFY] - [JBYLFWZZFXM] - [ZYJBQFX]) * 0.05 + [ZYJBQFX] * 0.5, [ZYZFY] - [XNHBCJE] - [QTBCJE]), 2), 2)
    End If
    End If
    If Not rst.EOF Then
    rst![ZBCJE] = Round([XNHBCJE] + [QTBCJE], 2)
    rst!XTSBBZ = DLookup("[XTSBBZ]", "FPRYXXB_Q", "[SFZH] = Forms![frmFYMX_Edit]!SFZH")
    If [ZYJBQFX] < 301 Then
    rst![BCJMFY] = Round(IIf([ZYZFY] - [XNHBCJE] - [QTBCJE] > ([ZYZFY] - [JBYLFWZZFXM] - [ZYJBQFX]) * 0.05 + [ZYJBQFX] + [ZLF] * 0.1 + [CWF] * 0.1 + [ZLF_1] * 0.1 + [ZSF] * 0.1 + [JBYLFWZZFXM] * 0.3 + [CC] * 0.3 + [CGZ] * 0.3 + [CT] * 0.3 + [QT] * 0.4, ([ZYZFY] - [JBYLFWZZFXM] - [ZYJBQFX]) * 0.05 + [ZYJBQFX] + [ZLF] * 0.1 + [CWF] * 0.1 + [ZLF_1] * 0.1 + [ZSF] * 0.1 + [JBYLFWZZFXM] * 0.3 + [CC] * 0.3 + [CGZ] * 0.3 + [CT] * 0.3 + [QT] * 0.4, [ZYZFY] - [XNHBCJE] - [QTBCJE]), 2)
    rst![GRZFJE] = Round([ZYZFY] - [XNHBCJE] - [QTBCJE] - Round(IIf([ZYZFY] - [XNHBCJE] - [QTBCJE] > ([ZYZFY] - [JBYLFWZZFXM] - [ZYJBQFX]) * 0.05 + [ZYJBQFX] + [ZLF] * 0.1 + [CWF] * 0.1 + [ZLF_1] * 0.1 + [ZSF] * 0.1 + [JBYLFWZZFXM] * 0.3 + [CC] * 0.3 + [CGZ] * 0.3 + [CT] * 0.3 + [QT] * 0.4, ([ZYZFY] - [JBYLFWZZFXM] - [ZYJBQFX]) * 0.05 + [ZYJBQFX] + [ZLF] * 0.1 + [CWF] * 0.1 + [ZLF_1] * 0.1 + [ZSF] * 0.1 + [JBYLFWZZFXM] * 0.3 + [CC] * 0.3 + [CGZ] * 0.3 + [CT] * 0.3 + [QT] * 0.4, [ZYZFY] - [XNHBCJE] - [QTBCJE]), 2), 2)
    Else
    rst![BCJMFY] = Round(IIf([ZYZFY] - [XNHBCJE] - [QTBCJE] > ([ZYZFY] - [JBYLFWZZFXM] - [ZYJBQFX]) * 0.05 + [ZYJBQFX] * 0.5, ([ZYZFY] - [JBYLFWZZFXM] - [ZYJBQFX]) * 0.05 + [ZYJBQFX] * 0.5, [ZYZFY] - [XNHBCJE] - [QTBCJE]), 2)
    rst![GRZFJE] = Round([ZYZFY] - [XNHBCJE] - [QTBCJE] - Round(IIf([ZYZFY] - [XNHBCJE] - [QTBCJE] > ([ZYZFY] - [JBYLFWZZFXM] - [ZYJBQFX]) * 0.05 + [ZYJBQFX] * 0.5, ([ZYZFY] - [JBYLFWZZFXM] - [ZYJBQFX]) * 0.05 + [ZYJBQFX] * 0.5, [ZYZFY] - [XNHBCJE] - [QTBCJE]), 2), 2)
    End If
    End If
现在的代码已经写在了附件里，

自动生成的窗体，我只改了保存单击和身份证号更新后代码，身份证号更新后代码没有问题，IF语句以前也都没有问题，我都试过了，

这几个是这次新加上去的字段

还有，怎么才参把完整的软件上传上去啊？