利用删除查询来达到要删除的目的。让Delete按钮不起作用,只能用按钮删除的方式：

Private Sub 删除记录_Click()

 If MsgBox("确实要删除当前记录吗？", vbYesNo) = vbYes Then
    DoCmd.Echo False
    Dim stDocName As String

    stDocName = ChrW(21024) & ChrW(-27036) & ChrW(27719) & ChrW(24635) & ChrW(-30616) & ChrW(73) & ChrW(68) & ChrW(26597) & ChrW(-29726)
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    
    Forms!日报表综合窗体!frmChildED!frmChild.Requery
    Form_日报表综合窗体!frmChildED!frmChild.SetFocus
    DoCmd.Echo True
    End If
    
End Sub

附   件:

点击下载此附件

图   示: