如果我用了一个提示信息
msgbox("确定要删除吗?"), vbOKCancel
它的相关返回值什么的,谁能提供?
例如:
如果选择OK,则继续下面的代码,选择Cancel则退出
应如何?

解决方案 »

  1.   

    Private Sub cmdDelete_Click()                                      '删除按钮功能代码
    On Error Resume Next'***************************************删除记录控制**********************************
        Dim response As Integer
        response = MsgBox("你真想删除一条记录吗??", vbYesNo, "警告")
        If response = vbNo Then Exit Sub
        With rsOutput
            .Delete
            .MovePrevious
            If .EOF Then .MoveLast
            If .BOF Then .MoveFirst
        End With
        display
        
    End Sub
      

  2.   

    if msgbox("确认要删除吗?",vbyesno+vbinformation)=vbyes then
        '删除代码
    else
        exit sub
    end if