为什么双击子窗体发生错误？

下面是列表窗体的代码

Option Compare Database

Option Explicit
Public Function ViewDetails()
    Call Me.Parent.btnEdit_Click

End Function

Private Sub Form_Current()
    On Error Resume Next
    If Val(Application.Version) < 12 Then
        RunCommand acCmdSelectRecord
    End If

End Sub

下面是主窗体的代码：

Private Sub btnEdit_Click()
    On Error Resume Next
    If Me.sfrList.Form.CurrentRecord < 1 Then
        Exit Sub
    End If
    Me.sfrList.SetFocus
    RunCommand acCmdSelectRecord
    DoCmd.OpenForm FormName:="frm赎单信息_Edit", _
                   DataMode:=IIf(Me.btnEdit.Enabled, acFormEdit, acFormReadOnly), _
                   OpenArgs:=Me.sfrList![序号]      
End Sub