按1楼代码修改不行
\Private Sub cmd删除_Click()
Dim strSQL As String
Dim currentID As String
'If Me.ID = "新增记录" Then
'MsgBox "您想干嘛!", vbInformation, "消息"
'Exit Sub
'End If
'
'If Me.ID = "1" Then
'MsgBox "您不能删除所有记录!", vbInformation, "消息"
'Exit Sub
'End If
'If IsNull(Me.ID) Then
'MsgBox "请选择您要删除记录!", vbInformation, "消息"
'Me.入库子窗体.SetFocus
'Exit Sub
'End If
currentID = Me.入库子窗体.Form.ID
CurrentDb.Execute "DELETE 入库.* FROM 入库 WHERE id=" & Me.ID
If MsgBox("您确认要删除当前已选择的记录么?", vbOKCancel, "提示") = vbOK Then
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
DoEvents
'Me.frmChild.Requery
' RequeryDataObject Me.frmChild
MsgBox "您所选择的记录已被删除!", vbInformation, "消息"
End If
'rst.Close
Set rst = Nothing
Me.入库子窗体.Form.Requery
'Me.ID = Null
'Me.零件号 = Null
'Me.零件名 = Null
'Me.数量 = Null
'Me.日期 = Null
End Sub