Private Sub CmdBookClassSetDelete_Click()
    On Error GoTo Err_CmdBookClassSetDelete_Click
    DoCmd.SetWarnings False
    '打开“供货商档案”表
    Set Rs = New ADODB.Recordset
    StrTemp = "Select * From 存货档案 where 产品ID='" & Me![存货档案子窗体].Form![产品ID] & "'"
    Rs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    '“供应商档案”表中没有记录，则提示记录可删除
    If Rs.RecordCount <= 0 Then
        MsgBox "目前记录为空，无记录可删除！", vbOKOnly, "提示！"
        DoCmd.Close
    Else
        Rs.Delete
        Rs.Update
        存货档案子窗体.Requery
    End If
    '释放记录集空间
    Set Rs = Nothing
    DoCmd.SetWarnings True
Exit_CmdBookClassSetDelete_Click:
    Exit Sub
Err_CmdBookClassSetDelete_Click:
    MsgBox Err.Description
    Resume Exit_CmdBookClassSetDelete_Click
End Sub