Stop some code

[Fritz24]

I'm sure this is really easy but I can't think of how to do it.

I've created a basic bit of code that will go at the start of a macro. It's just to remind the user of the database that they have to do something before they continue.

The code makes a vbYesNo message box appear. What I want it to do is stop the macro if they press No, and continue if they press Yes. The Yes bit is ok but I can't stop the macro.

Please can someone advise?

Thanks.

 

[Norie]

Can you post what code you have already?

Generally something like the following will work:

Sub Test()
Dim Continue

     Continue=Msgbox("Do you want to continue?", vbYesNo)
     
     If Continue = vbYes Then
         ' run code
     Else
         MsgBox "Procedure Cancelled"
         Exit Sub
     End If

End Sub

BTW You don't really need the Else, but you might want to display some message to the user.

 

[Fritz24]

This is what I tried:

Public Function Update()

Dim strUpdated As String

strUpdated = MsgBox("Please confirm you have done what you needed to.", vbYesNo, "Warning")

If strUpdated = vbNo Then

End Function


If I was to use your method how do I call the subroutine from the macro?

 

[Stubby Holder]

Hi,

You could try using two macrosne that tests if they want to continue, and one if they choose yes.

The first should have the action RunCode, with a function name "Update"

This will run your Update function, something like:

Function Update()
Dim intUpdated As Integer
Dim strConfirm As String
Dim mcrMyCode As String

    strConfirm = "Please confirm you have done what you needed to."
    mcrMyCode = "YourMacro"

    intUpdated = MsgBox(strConfirm, vbYesNo, "Warning")
    If intUpdated = vbYes Then
        DoCmd.RunMacro mcrMyCode
    End If

End Function

If they click yes, the code will run the second macro (please change "YourMacro" to your macro name!),if they click no, nothing will happen.

Don't forget to remove the RunCode action from your original macro!