主子窗体，删除代码：  

If Not Me.sfrmList.Form.NewRecord Then
        Me.sfrmList.Form.AllowDeletions = True
        Me.sfrmList.SetFocus
        DoCmd.RunCommand acCmdDeleteRecord
    Else
        Me.Undo
    End If
    Me.sfrmList.Form.Refresh

    Me.Refresh

提示：命令或操作"DeleteRecord"当前不可用

反复排错，发现：

子窗体必须不是“快照”，改成“动态集”，OK

因为DoCmd.RunCommand是根在窗体内操作一样的，以后用时，可以在窗体内选中记录，Delete试验下。