Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Couldn'nt unload a form
I have 3 userforms, the form3 has 2 buttons to open the others, the code that
I am using to change among these forms is: Private Sub cmdcancel_Click() Unload Me UserForm3.Show End Sub The problem is on form1 this form has a textbox that has the below validation code to work, when I write all the information correct and run the process and then click on the €ścmdcancel€ť button to change to form3 everything works well but if I write a incorrect data and then try to click on the €ścmdcancel€ť button the form1 or 2 remain open. I am stock in this part could you help me with this issue? If Trim(Me.txtlsize.Value) = "" Then Me.txtlsize.SetFocus MsgBox "Please enter a Lot size" Exit Sub End If If Me.txtlsize.Value <= 1 Then Me.txtlsize.SetFocus MsgBox "Invalid Lot size" Exit Sub End If If Not IsNumeric(Trim(Me.txtlsize.Value)) Then Me.txtlsize.SetFocus MsgBox "Invalid Lot size" Exit Sub End If The code continues€¦ |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Couldn'nt unload a form
You are exiting the Sub when an error occurs so you are never getting to the
code which closes the userform. The code is correct You may want to reverse these two instruction so the txtbox gets the focus after the msgbox is closed from Me.txtlsize.SetFocus MsgBox "Please enter a Lot size" to MsgBox "Please enter a Lot size" Me.txtlsize.SetFocus "Marcus" wrote: I have 3 userforms, the form3 has 2 buttons to open the others, the code that I am using to change among these forms is: Private Sub cmdcancel_Click() Unload Me UserForm3.Show End Sub The problem is on form1 this form has a textbox that has the below validation code to work, when I write all the information correct and run the process and then click on the €ścmdcancel€ť button to change to form3 everything works well but if I write a incorrect data and then try to click on the €ścmdcancel€ť button the form1 or 2 remain open. I am stock in this part could you help me with this issue? If Trim(Me.txtlsize.Value) = "" Then Me.txtlsize.SetFocus MsgBox "Please enter a Lot size" Exit Sub End If If Me.txtlsize.Value <= 1 Then Me.txtlsize.SetFocus MsgBox "Invalid Lot size" Exit Sub End If If Not IsNumeric(Trim(Me.txtlsize.Value)) Then Me.txtlsize.SetFocus MsgBox "Invalid Lot size" Exit Sub End If The code continues€¦ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Couldn'nt unload a form
Thanks Joel...
"Joel" wrote: You are exiting the Sub when an error occurs so you are never getting to the code which closes the userform. The code is correct You may want to reverse these two instruction so the txtbox gets the focus after the msgbox is closed from Me.txtlsize.SetFocus MsgBox "Please enter a Lot size" to MsgBox "Please enter a Lot size" Me.txtlsize.SetFocus "Marcus" wrote: I have 3 userforms, the form3 has 2 buttons to open the others, the code that I am using to change among these forms is: Private Sub cmdcancel_Click() Unload Me UserForm3.Show End Sub The problem is on form1 this form has a textbox that has the below validation code to work, when I write all the information correct and run the process and then click on the €ścmdcancel€ť button to change to form3 everything works well but if I write a incorrect data and then try to click on the €ścmdcancel€ť button the form1 or 2 remain open. I am stock in this part could you help me with this issue? If Trim(Me.txtlsize.Value) = "" Then Me.txtlsize.SetFocus MsgBox "Please enter a Lot size" Exit Sub End If If Me.txtlsize.Value <= 1 Then Me.txtlsize.SetFocus MsgBox "Invalid Lot size" Exit Sub End If If Not IsNumeric(Trim(Me.txtlsize.Value)) Then Me.txtlsize.SetFocus MsgBox "Invalid Lot size" Exit Sub End If The code continues€¦ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to unload a form | Excel Programming | |||
How to unload a form in excel vba? | Excel Programming | |||
Unload the form on esc key | Excel Programming | |||
form won't unload | Excel Programming | |||
Form Unload | Excel Programming |