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 If Exit_btnDeactivateJob_Click: Exit Sub Err_btnDeactivateJob_Click: MsgBox Err.Number & " - " & Err.Description, vbCritical, "btnDeactivateJob_Click()" Resume Exit_btnDeactivateJob_Click End Sub
if msgbox= yes then
最新推荐文章于 2023-12-28 09:53:00 发布