Moving focus back to first textbox

**LisaPatch** · 10-31-2011, 05:59 AM

Hi guys

I have two textboxes
1. txtpolno
2. Textbox5
I am writing the following code to double check if the person has inputted the right policy number. If yes then the cursor should move to the next control but if not then the above two textboxes shoule be blank and the focus should be at txtPolNo.But the code moves the focus to the next control always.

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txtPolNo.Value <> TextBox5.Value Then
MsgBox "The Policy numbers don't match with each other"
TextBox5.Value = ""
txtPolNo.Value = ""
txtPolNo.SetFocus
Cancel = True
End If
End Sub

**LisaPatch** · 10-31-2011, 06:40 AM

Can anyone please answer my question?

Thanks

**john55** · 10-31-2011, 07:43 AM

hi,
not sure but ....just try this one!

Private Sub TextBox5_Change()
If TextBox1.Value <> TextBox5.Value Then
MsgBox "The Policy numbers don't match with each other"
TextBox1.SetFocus
TextBox1.Value = ""
TextBox5.Value = ""
End If
TextBox1.SetFocus
End Sub

**LisaPatch** · 10-31-2011, 09:17 AM

But if its in the change event of a textbox then it will fire even we type just 1 character in the textbox.

Any other ideas?

**romperstomper** · 10-31-2011, 10:18 AM

The issue you have is with timing. If you step through your code you will see that the focus does get set to your control, but as soon as the routine ends, the focus switches to whatever control was next in the tab order. (basically, the tabbing to the next control is suspended while your code runs, then continues as normal.)

**Kenneth Hobson** · 10-31-2011, 10:44 AM

I could not duplicate your problem. You can post a sample workbook if you like.

**LisaPatch** · 11-01-2011, 03:35 AM

Hi

Please see attached the workbook. I hope you will be able to help me now.

Thanks

**snb** · 11-01-2011, 04:17 AM

Why do you allow the user to enter 'invalid' input in the first place ?
By disabling all other objects in the frame you can force the focus to remain in the same textbox.

**LisaPatch** · 11-01-2011, 04:45 AM

Hi snb

Thanks for your reply. In the actual workbook there are lots of textboxes and drop down boxes so I can disable all of them to resolve this issue.

Can you think of any other workaround of this problem?

Thanks

**romperstomper** · 11-01-2011, 09:46 AM

I would either:
1. use the Exit event to simply highlight both textboxes in red if they don't match (you could also use a label with an error message) and then have the Save button's code verify the two before it allows a save; or
2. Simply cancel the input into the second textbox rather than trying to set the focus back to the first one.

**LisaPatch** · 11-01-2011, 10:13 AM

Hi Romper

I am writing the following code but still the focus still goes to the next control.Please help me to figure it out.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txtPolNo.Value <> TextBox2.Value Then
MsgBox "The Policy numbers don't match with each other"
txtPolNo.BackColor = vbRed
TextBox2.BackColor = vbRed
TextBox2.Value = ""
txtPolNo.Value = ""

Cancel = True
End If

**romperstomper** · 11-01-2011, 10:23 AM

I can't replicate that behaviour in your sample workbook.

Moving focus back to first textbox

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Moving focus back to first textbox

Re: Moving focus back to first textbox

Re: Moving focus back to first textbox

Re: Moving focus back to first textbox

Re: Moving focus back to first textbox

Re: Moving focus back to first textbox

Re: Moving focus back to first textbox

Re: Moving focus back to first textbox

Re: Moving focus back to first textbox

Re: Moving focus back to first textbox

Re: Moving focus back to first textbox

Re: Moving focus back to first textbox

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions