谁帮我看看那里出问题了啊

linyq_4321

'------------------------------------------------------------
' 删除记录
'------------------------------------------------------------
Private Sub Command17_Click()

If Me.VIP编号 = "" Or IsNull(Me.VIP编号) Then
MsgBox "未指定记录，无法删除！"
If Me.联系日期 = "" Or IsNull(Me.联系日期) Then
MsgBox "未指定记录，无法删除！"
If Me.内容纪要 = "" Or IsNull(Me.内容纪要) Then
MsgBox "未指定记录，无法删除！"
If Me.联系人 = "" Or IsNull(Me.联系人) Then
    MsgBox "未指定记录，无法删除！"
    Exit Sub

End If
yy = MsgBox("您将删除记录为“" & Me.VIP编号 & Me.联系日期 & Me.内容纪要 & Me.联系人 & "”如果确定删除请点是。", vbYesNo, "警告")
If yy = vbYes Then
    DoCmd.SetWarnings False  '关闭提示
    DoCmd.RunSQL "Delete FROM 顾客联系记录 WHERE ([顾客联系记录].[VIP编号]=" & Me.VIP编号 & " and [顾客联系记录].[联系日期]=" & Me.联系日期 & " and [顾客联系记录].[内容纪要]=" & Me.内容纪要 & " and [顾客联系记录].[联系人]=" & Me.联系人 & ")"
    DoCmd.SetWarnings True '打开提示
    Me.顾客联系记录查询子窗体.Requery
    MsgBox "已删除了一条记录！"
End If

End Sub

sgrshh29

你这是在窗体上浏览记录时操作的吗?还是专门有一个输入各种条件的窗体来执行删除记录?

linyq_4321

浏览记录时候

sgrshh29

原帖由 linyq_4321 于 2009-10-27 18:52 发表
浏览记录时候

那就不用那么麻烦,只要用下面的就可以了
yy = MsgBox("您将删除记录为“" & Me.VIP编号 & Me.联系日期 & Me.内容纪要 & Me.联系人 & "”如果确定删除请点是。", vbYesNo, "警告")
If yy = vbYes Then
docmd.runcommand accmdselectrecord
docmd.runcommand accmddeleterecord
end if

[ 本帖最后由 sgrshh29 于 2009-10-27 20:55 编辑 ]