vbno not being recognized as vbno - affecting If statement

[Ark68]

I have this code:

ui1 = MsgBox("This will end data entry . No data entered will be retained." & Chr(13) & "Are you sure you wish to exit?", vbQuestion + vbYesNo, "CONFIRMATION REQUEST")
Stop
If ui1 = vbNo Then Exit Sub

When the user selects "NO", the code continues beyond the IF statement. The value of ui1 = 6 and vbno = 7? Why the differencesd is values? What do I need to use in my If statement?

 

[Alex Blakenburg]

What data type have you assigned to uil ?
If I add "Dim uil as long" to your code it seem to work fine for me.

 

[Ark68]

I had a "duh" moment.
Disregard this question folks. Moderators may choose to exterminate it.

 

[Ark68]

Thanks Alex. The question was phrased to exit if answered "YES". I had it coded to exit with "NO" as an answer.

 

[Alex Blakenburg]

Thanks Alex. The question was phrased to exit if answered "YES". I had it coded to exit with "NO" as an answer.

Haha, maybe its a sign that you shouldn't be working on a weekend.

 

[dmt32]

Thanks Alex. The question was phrased to exit if answered "YES". I had it coded to exit with "NO" as an answer.

looks like you spotted your own problem but I was going to suggest trying this

Dim Response As VbMsgBoxResult
Response = MsgBox("This will end data entry . No data entered will be retained." & Chr(13) & _
"Are you sure you wish to exit?", vbQuestion + vbYesNo, "CONFIRMATION REQUEST")
If Response = vbYes Then Exit Sub

Msgbox result has it's own enum: MsgBoxResult Enum (Microsoft.VisualBasic)

which will produce the IntelliSense which you should find tad easier

Dave

 

[Ark68]

Thanks Dave! I will have to investigate that further!!! I always enjoy a new learning opportunity so this post certainly wasn't a waste after all.

 

[Fluff]

You can aslo get rid of the variable completely & just do

If MsgBox("This will end data entry . No data entered will be retained." & Chr(13) & "Are you sure you wish to exit?", vbQuestion + vbYesNo, "CONFIRMATION REQUEST") = vbYes Then Exit Sub