Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
A Question for Ron de Bruin
Ron,
I asked a question on 5 Jan regarding exit event of a text box and getting focus back if the entry did not meet certain criteria. You kindly answered the question. It generated a lot of interest from others regarding the frame control. I aprreciate your help and thank you for helping.It did help me. I have now removed the offending frames from the userform. However, the code below works fine if I remove the Msgbox. Once the msgbox code is executed the focus is lost to the msgbox and deos not come back to the textbox. Is this a known problem or can it be resolved? Thanks so much for for your help. Your answer was Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1.Value < 100 Then Cancel = True MsgBox "You must enter ....." TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1.Text) End If End Sub My original Qs was I am trying to write code so that when the value entered in a textbox does not meet certain criteria, the text in the textbox is selected for correction by the user. Please see the code below. Once the user presses the tab key the message is displayed but the focus is lost and goes on to the next textbox or next frame if the textbox is the last one in the current frame. I have tried before update and change as well as exit. What am I doing wrong? How can I get it to go back and highlight the textbox with incorrect text/value. Thanks for your help. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1.Value < 100 Then msgbox "You must enter ....." TextBox1.SetFocus TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1.Text) End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
A Question for Ron de Bruin
Jamal,
You simply forgot to set the Cancel argument Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1.Value < 100 Then MsgBox "You must enter ....." TextBox1.SetFocus TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1.Text) Cancel = True End If End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
A Question for Ron de Bruin
Private Sub TextBox1_Exit(ByVal Cancel As
MSForms.ReturnBoolean) If TextBox1.Value < 100 Then Cancel = True MsgBox "You must enter ....." TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1.Text) End If End Sub worked fine for me in a userform with two textboxes, a commandbutton and no frames. If the user can only enter 100, why not just have your code enter it an be done with it. (use a label, not a textbox). Unless this is just a simplified example. -- Regards, Tom Ogilvy "Jamal" wrote in message ... Ron, I asked a question on 5 Jan regarding exit event of a text box and getting focus back if the entry did not meet certain criteria. You kindly answered the question. It generated a lot of interest from others regarding the frame control. I aprreciate your help and thank you for helping.It did help me. I have now removed the offending frames from the userform. However, the code below works fine if I remove the Msgbox. Once the msgbox code is executed the focus is lost to the msgbox and deos not come back to the textbox. Is this a known problem or can it be resolved? Thanks so much for for your help. Your answer was Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1.Value < 100 Then Cancel = True MsgBox "You must enter ....." TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1.Text) End If End Sub My original Qs was I am trying to write code so that when the value entered in a textbox does not meet certain criteria, the text in the textbox is selected for correction by the user. Please see the code below. Once the user presses the tab key the message is displayed but the focus is lost and goes on to the next textbox or next frame if the textbox is the last one in the current frame. I have tried before update and change as well as exit. What am I doing wrong? How can I get it to go back and highlight the textbox with incorrect text/value. Thanks for your help. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1.Value < 100 Then msgbox "You must enter ....." TextBox1.SetFocus TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1.Text) End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
A Question for Ron de Bruin
Hi jamal
You see how great this goup is<g Thanks Bob/Tom -- Regards Ron de Bruin (Win XP Pro SP-1 XL2000-2003) www.rondebruin.nl "Jamal" wrote in message ... Ron, I asked a question on 5 Jan regarding exit event of a text box and getting focus back if the entry did not meet certain criteria. You kindly answered the question. It generated a lot of interest from others regarding the frame control. I aprreciate your help and thank you for helping.It did help me. I have now removed the offending frames from the userform. However, the code below works fine if I remove the Msgbox. Once the msgbox code is executed the focus is lost to the msgbox and deos not come back to the textbox. Is this a known problem or can it be resolved? Thanks so much for for your help. Your answer was Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1.Value < 100 Then Cancel = True MsgBox "You must enter ....." TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1.Text) End If End Sub My original Qs was I am trying to write code so that when the value entered in a textbox does not meet certain criteria, the text in the textbox is selected for correction by the user. Please see the code below. Once the user presses the tab key the message is displayed but the focus is lost and goes on to the next textbox or next frame if the textbox is the last one in the current frame. I have tried before update and change as well as exit. What am I doing wrong? How can I get it to go back and highlight the textbox with incorrect text/value. Thanks for your help. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1.Value < 100 Then msgbox "You must enter ....." TextBox1.SetFocus TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1.Text) End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Questioin for Ron de Bruin | Excel Discussion (Misc queries) | |||
question for Ron de Bruin on importing | Excel Discussion (Misc queries) | |||
[email protected] | Excel Discussion (Misc queries) | |||
For Ron Bruin Please | Excel Worksheet Functions | |||
For Ron de Bruin Please | Excel Worksheet Functions |