主子窗体,删除代码:
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试验下。