Update Code to add message cancel / continue

[Gerrit.B]

I have a button with following code:

------------------------------------------------------------------------------------
Private Sub Update_Exchange_Rate_€_Click()
On Error GoTo Err_Update_Exchange_Rate_€_Click

Dim stDocName As String
DoCmd.SetWarnings False
stDocName = ChrW(85) & ChrW(112) & ChrW(100) & ChrW(97) & ChrW(116) & ChrW(101) & ChrW(69) & ChrW(120) & ChrW(99) & ChrW(104) & ChrW(97) & ChrW(110) & ChrW(103) & ChrW(101) & ChrW(82) & ChrW(97) & ChrW(116) & ChrW(101) & ChrW(8364)
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.SetWarnings True
Exit_Update_Exchange_Rate_€_Click:
Exit Sub

Err_Update_Exchange_Rate_€_Click:
MsgBox Err.Description
Resume Exit_Update_Exchange_Rate_€_Click

End Sub

------------------------------------------------------------------------------------

Where and what should I add to get a message with 2 options, Cancel or Continue.

 

[Andrew Fergus]

Hi

Before this line :
DoCmd.SetWarnings False

insert this code :

    If MsgBox("Do you want to continue?", vbOKCancel, "Continue?") = vbCancel Then
        Exit Sub
    End If

Change the message to suit.

Also, you may want to move this line :
DoCmd.SetWarnings True

to after this line:
Exit_Update_Exchange_Rate_€_Click:

That way if there is an error and the code bombs then the warnings are turned back on.

HTH, Andrew

 

[Gerrit.B]

Thanks, this was just what I needed.