Cancel button to bypass MsgBox
 

hi VB addicts!!
hope all bugs are conquered...

i created a userform in Excel.
I validated a textbox when empty to trigger MsgBox.
However, when I wish to cancel userform...MsgBox displays
not allowing to cancel.
What can I do bypass MsgBox when cancelling userform entirely??

My code:
'textbox FAST
Private Sub txtfast_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'display msgbox if textbox fast is empty
If txtfast.Text = "" Then
MsgBox "Enter FAST File"
Cancel = True
End If
End Sub

'Cancel Button
Private Sub cmdcancel_Click()
'cancel userform1
Unload UserForm1
End Sub


thanks in advance & have a happy day!!
myrna

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Cancel button to bypass MsgBox
 

Mhm... why don't you validate the txtfast in the "OK" button instead ?

--
Regards

Juan Pablo González

"Myrna Rodriguez" wrote in message
...
hi VB addicts!!
hope all bugs are conquered...

i created a userform in Excel.
I validated a textbox when empty to trigger MsgBox.
However, when I wish to cancel userform...MsgBox displays
not allowing to cancel.
What can I do bypass MsgBox when cancelling userform entirely??

My code:
'textbox FAST
Private Sub txtfast_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'display msgbox if textbox fast is empty
If txtfast.Text = "" Then
MsgBox "Enter FAST File"
Cancel = True
End If
End Sub

'Cancel Button
Private Sub cmdcancel_Click()
'cancel userform1
Unload UserForm1
End Sub


thanks in advance & have a happy day!!
myrna

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Cancel button to bypass MsgBox
 

Myrna,

Use a module scope variable, and set it to a value in the cancel procedure,
then test that in the exit routine. Something like

Dim fCancel As Boolean

Private Sub txtfast_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'display msgbox if textbox fast is empty
If Not fCancel Then
If txtfast.Text = "" Then
MsgBox "Enter FAST File"
Cancel = True
End If
End If
End Sub

'Cancel Button
Private Sub cmdcancel_Click()
'cancel userform1
fCancel = True
Unload UserForm1
End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Myrna Rodriguez" wrote in message
...
hi VB addicts!!
hope all bugs are conquered...

i created a userform in Excel.
I validated a textbox when empty to trigger MsgBox.
However, when I wish to cancel userform...MsgBox displays
not allowing to cancel.
What can I do bypass MsgBox when cancelling userform entirely??

My code:
'textbox FAST
Private Sub txtfast_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'display msgbox if textbox fast is empty
If txtfast.Text = "" Then
MsgBox "Enter FAST File"
Cancel = True
End If
End Sub

'Cancel Button
Private Sub cmdcancel_Click()
'cancel userform1
Unload UserForm1
End Sub


thanks in advance & have a happy day!!
myrna

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Cancel button to bypass MsgBox
 

I validated textboxes in command button OK.
When I Cancel, Msgbox appears and not letting me trigger
Cancel event. I used the code, but no luck...thanks Mr. Bob
Any other suggestion??
thanks...myrna



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!