if msgbox= yes then

来源:互联网 发布:淘宝女购物车 猝死男友 编辑:程序博客网 时间:2024/04/27 22:29
 
Private Sub btnDeactivateJob_Click()On Error GoTo Err_btnDeactivateJob_Click     If MsgBox("Do you want to deactivate this job from the Job Board?", vbQuestion + vbYesNo, "Deactivea Job") = vbYes Then          Me.[Active] = False          Me.[Invoiced] = True     Else          Exit Sub     End IfExit_btnDeactivateJob_Click:    Exit SubErr_btnDeactivateJob_Click:    MsgBox Err.Number & " - " & Err.Description, vbCritical, "btnDeactivateJob_Click()"    Resume Exit_btnDeactivateJob_Click    End Sub
原创粉丝点击