ACCESS 删除问题

linyq_4321

Private Sub Command22_Click()


On Error GoTo Err_cmask_Click
If Me.VIP编号 = "" Or IsNull(Me.VIP编号) Then
    MsgBox "未指定记录，无法删除！"
    Exit Sub
End If

yy = MsgBox("您将删除VIP卡号为“" & Me.VIP编号 & "”那一条记录，如果确定删除请点是。", vbYesNo, "警告")
If yy = vbYes Then
    DoCmd.SetWarnings False  '关闭提示
    DoCmd.RunSQL "Delete FROM VIP顾客档案 WHERE ([VIP顾客档案].[VIP编号]=" & Me.VIP编号 & ")"
    DoCmd.SetWarnings True '打开提示
    Me.顾客信息管理子窗口.Requery
    MsgBox "已删除了一条记录！"
End If

Exit_cmask_Click:
         Exit Sub

Err_cmask_Click:
    MsgBox Err.Description
    Resume Exit_cmask_Click
End Sub

linyq_4321

这个删除怎么出来一个这个提示呢
各位大虾米帮忙帮忙下

xinjiana

([VIP顾客档案].[VIP编号]=" & Me.VIP编号 & ")"
这个要修改
([VIP顾客档案].[VIP编号]=’" & Me.VIP编号 & "‘)"

注意，增加了单引号，否则会被当做参数，弹出的对话框就是要求输入参数的

linyq_4321

Private Sub 反审核_Click()



DoCmd.SetWarnings False  '关闭提示

DoCmd.RunSQL "UPDATE 销售 SET [销售].[审核]='1' WHERE [销售].[单号] = " & Me.单号

DoCmd.SetWarnings True '打开提示
MsgBox "反审核成功！"
Me.销售子窗体.Requery

修改保存.Enabled = True
删除记录.Enabled = True


End Sub


这一句也一样啊 但是怎么改不懂 帮忙下谢谢

linyq_4321

Private Sub 反审核_Click()



DoCmd.SetWarnings False  '关闭提示

DoCmd.RunSQL "UPDATE 销售 SET [销售].[审核]='1' WHERE [销售].[单号] = " & Me.单号

DoCmd.SetWarnings True '打开提示
MsgBox "反审核成功！"
Me.销售子窗体.Requery

修改保存.Enabled = True
删除记录.Enabled = True


End Sub