主子窗体记录同步、主窗体显示子窗体数据的时候，子窗体程序如下：（程序1）

Private Sub Form_Current()
On Error Resume Next
If Not Me.Parent.Form.Recordset Is Me.Recordset Then
Set Me.Parent.Form.Recordset = Me.Recordset
End If
End Sub

主窗体"新增"按钮如下：（程序2）

Private Sub 新增或修改_Click()
'点修改，则子窗体可新增数据，否则不可新增数据
    If 新增或修改.Caption = "新增或修改" Then
        子窗体1.Locked = False
        子窗体1.Form.AllowAdditions = True
        新增或修改.Caption = "确定"
        子窗体1.SetFocus
    Else
        子窗体1.Form.AllowAdditions = False
        子窗体1.Locked = True
        新增或修改.Caption = "新增或修改"
    End If
End Sub
但是主窗体点击”新增与修改“的时候，子窗体出错：

”在不使用AddNew或Edit的情况下，更新或取消更新

若删掉”程序1“，就不会出错，怎么修改？