Office中国论坛/Access中国论坛

标题: 请帮忙看下这段语句有什么问题？ [打印本页]

作者: guihyy 时间: 2008-9-1 16:05
标题: 请帮忙看下这段语句有什么问题？
目标：想在数据输入窗体添加一个功能，当删除输入的数据时，系统会自动提醒是否删除
请教：我在“数据输入”窗体的代码中，“删除记录”按钮的代码结束后开始添加代码：

  '删除记录按钮
Private Sub Command43_Click()
On Error GoTo Err_Command43_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Command43_Click:
Exit Sub
Err_Command43_Click:
MsgBox Err.Description
Resume Exit_Command43_Click

End Sub

  '删除提醒代码
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
  Response = acDataErrContinue
  '显示对话框信息
  If MsgBox=("删除这些记录?", vbOKCancel)=vbOKCancel Then Cancel=True
  End If
End Sub

其中，Command43为删除按钮的名称，但是在第二段关于删除提醒的代码有了问题，系统提示 If MsgBox=("删除这些记录?", vbOKCancel)=vbOKCancel Then Cancel=True 这句话是错误的，光标停留在  删除这些记录?",后的逗号上，说缺少：）

本人新手，一直解决不了，请知情者告知，衷心感谢

作者: tz-chf 时间: 2008-9-1 16:27
=vbOKCancel

作者: guihyy 时间: 2008-9-1 16:56
？？？可以说详细些吗？

作者: kevindeng 时间: 2008-9-1 17:08
应该是 If MsgBox=("删除这些记录?", vbOKCancel)=vbCancel Then Cancel=True
那个等于号后面的应该是vbCancel或者vbOK

作者: guihyy 时间: 2008-9-1 17:24
谢谢两位

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)