Simple message Yes No...

[jmhadp]

Below is my attempts at basic VB

Dim lngUserChoice As Long
lngUserChoice = MsgBox("Do you want to Undo last entry?", _
vbYesNo + vbQuestion, "Undo Last Entry")
If lngUserChoice = vbYes Then
GoTo Account_undo
If Response = vbNo Then GoTo Bye
End If
End Sub

I am getting an error message Compile Error: Label Not Defined...I figure this is a basic step I am missing...I am trying to get a message button to go forward with the Macro Account_undo if yes and if no end...don't execute...

I appreciate your help.

[Tim Williams]

>> GoTo Account_undo

You do not have a line label named "Account_undo" in your procedure.

Tim

--
Tim Williams
Palo Alto, CA


"jmhadp" <[email protected]> wrote in
message news:[email protected]...
>
> Below is my attempts at basic VB
>
> Dim lngUserChoice As Long
> lngUserChoice = MsgBox("Do you want to Undo last entry?", _
> vbYesNo + vbQuestion, "Undo Last Entry")
> If lngUserChoice = vbYes Then
> GoTo Account_undo
> If Response = vbNo Then GoTo Bye
> End If
> End Sub
>
> I am getting an error message Compile Error: Label Not Defined...I
> figure this is a basic step I am missing...I am trying to get a message
> button to go forward with the Macro Account_undo if yes and if no
> end...don't execute...
>
> I appreciate your help.
>
>
> --
> jmhadp
> ------------------------------------------------------------------------
> jmhadp's Profile:
http://www.excelforum.com/member.php...o&userid=25340
> View this thread: http://www.excelforum.com/showthread...hreadid=388196
>

[Tim Williams]

I forgot to add in my previous post - it is considered bad style to use
"goto" anywhere outside of error-handling routines.

What are "Account_undo" and "Bye" ? Are they subroutines?

Tim

--
Tim Williams
Palo Alto, CA


"jmhadp" <[email protected]> wrote in
message news:[email protected]...
>
> Below is my attempts at basic VB
>
> Dim lngUserChoice As Long
> lngUserChoice = MsgBox("Do you want to Undo last entry?", _
> vbYesNo + vbQuestion, "Undo Last Entry")
> If lngUserChoice = vbYes Then
> GoTo Account_undo
> If Response = vbNo Then GoTo Bye
> End If
> End Sub
>
> I am getting an error message Compile Error: Label Not Defined...I
> figure this is a basic step I am missing...I am trying to get a message
> button to go forward with the Macro Account_undo if yes and if no
> end...don't execute...
>
> I appreciate your help.
>
>
> --
> jmhadp
> ------------------------------------------------------------------------
> jmhadp's Profile:
http://www.excelforum.com/member.php...o&userid=25340
> View this thread: http://www.excelforum.com/showthread...hreadid=388196
>

[Norman Jones]

Hi Jmhadp,

Try the following revision:

Sub Tester05()
Dim Res As Long
Res = MsgBox("Do you want to Undo last entry?", _
Buttons:=vbYesNo + vbQuestion, _
Title:="Undo Last Entry")

If Res = vbYes Then Call Account_Undo

End Sub

Public Sub Account_Undo()
'Your Undo steps
MsgBox "Hi from Account_Undo!"
End Sub

---
Regards,
Norman



"jmhadp" <[email protected]> wrote in
message news:[email protected]...
>
> Below is my attempts at basic VB
>
> Dim lngUserChoice As Long
> lngUserChoice = MsgBox("Do you want to Undo last entry?", _
> vbYesNo + vbQuestion, "Undo Last Entry")
> If lngUserChoice = vbYes Then
> GoTo Account_undo
> If Response = vbNo Then GoTo Bye
> End If
> End Sub
>
> I am getting an error message Compile Error: Label Not Defined...I
> figure this is a basic step I am missing...I am trying to get a message
> button to go forward with the Macro Account_undo if yes and if no
> end...don't execute...
>
> I appreciate your help.
>
>
> --
> jmhadp
> ------------------------------------------------------------------------
> jmhadp's Profile:
> http://www.excelforum.com/member.php...o&userid=25340
> View this thread: http://www.excelforum.com/showthread...hreadid=388196
>

[ElectroAeroguy]

Nor one named "Bye" for that matter ...

"Tim Williams" wrote:

> >> GoTo Account_undo
>
> You do not have a line label named "Account_undo" in your procedure.
>
> Tim
>
> --
> Tim Williams
> Palo Alto, CA
>
>
> "jmhadp" <[email protected]> wrote in
> message news:[email protected]...
> >
> > Below is my attempts at basic VB
> >
> > Dim lngUserChoice As Long
> > lngUserChoice = MsgBox("Do you want to Undo last entry?", _
> > vbYesNo + vbQuestion, "Undo Last Entry")
> > If lngUserChoice = vbYes Then
> > GoTo Account_undo
> > If Response = vbNo Then GoTo Bye
> > End If
> > End Sub
> >
> > I am getting an error message Compile Error: Label Not Defined...I
> > figure this is a basic step I am missing...I am trying to get a message
> > button to go forward with the Macro Account_undo if yes and if no
> > end...don't execute...
> >
> > I appreciate your help.
> >
> >
> > --
> > jmhadp
> > ------------------------------------------------------------------------
> > jmhadp's Profile:
> http://www.excelforum.com/member.php...o&userid=25340
> > View this thread: http://www.excelforum.com/showthread...hreadid=388196
> >
>
>
>

[Jim Thomlinson]

You have a couple of small problems here. You are using gotos when they
really are not appropriate (other than error handling they never are). Also
you have 2 if statements and only one end if. It should look more like this...

public sub Whatever

if msgbox("Do you want to undo the last entry?", vbYesNo, _
"Undo Entry") = vbYes Then
Call Account_Undo
else
Call Bye
end if
end sub
--
HTH...

Jim Thomlinson


"jmhadp" wrote:

>
> Below is my attempts at basic VB
>
> Dim lngUserChoice As Long
> lngUserChoice = MsgBox("Do you want to Undo last entry?", _
> vbYesNo + vbQuestion, "Undo Last Entry")
> If lngUserChoice = vbYes Then
> GoTo Account_undo
> If Response = vbNo Then GoTo Bye
> End If
> End Sub
>
> I am getting an error message Compile Error: Label Not Defined...I
> figure this is a basic step I am missing...I am trying to get a message
> button to go forward with the Macro Account_undo if yes and if no
> end...don't execute...
>
> I appreciate your help.
>
>
> --
> jmhadp
> ------------------------------------------------------------------------
> jmhadp's Profile: http://www.excelforum.com/member.php...o&userid=25340
> View this thread: http://www.excelforum.com/showthread...hreadid=388196
>
>