如何删除子窗体的记录

我用这个代码就是删除不掉，不知是什么原因

Public Function funDeleteRec()
    On Error GoTo Err:
   
    If Not IsLoaded("主窗体") Then Exit Function
   
    If MsgBox("记录删除后不能恢复，你确定删除选中的数据吗？", vbYesNo + 32, "提示信息") = vbYes Then

        Forms("主窗体").子窗体.SetFocus
        DoCmd.SetWarnings False     '关闭警告

        DoCmd.RunCommand acCmdDeleteRecord
        DoCmd.SetWarnings True      '打开警告

    End If

Err:     Exit Function

End Function

提示：DoCmd.RunCommand acCmdDeleteRecord 这个有错。不知是什么原因？