How to jump to the next text box ?

  • Thread starter javiernews via AccessMonster.com
  • Start date
J

javiernews via AccessMonster.com

Hi,

I have the following scenario:
I have several text boxes in each text box must be filled up to 5 characters
(letters and numbers)
How to jump to the next text box automatically after filling the 5 characters
??????

I try with the following code but is not working well:

Private Sub txt1_Change()
On Error Resume Next
Me.Refresh

Me.txt1.SelStart = Me.txt1 - 1

If Len(Me.txt1) >= 5 Then
Me.txt2.SetFocus
End If

End Sub

Me.txt1 <<<< First Text box
Me.txt2 <<<< Second text box
etc......


any help will be wellcome !
 
S

storrboy

Hi,

I have the following scenario:
I have several text boxes in each text box must be filled up to 5 characters
(letters and numbers)
How to jump to the next text box automatically after filling the 5 characters
??????

I try with the following code but is not working well:

Private Sub txt1_Change()
On Error Resume Next
Me.Refresh

Me.txt1.SelStart = Me.txt1 - 1

If Len(Me.txt1) >= 5 Then
Me.txt2.SetFocus
End If

End Sub

Me.txt1 <<<< First Text box
Me.txt2 <<<< Second text box
etc......

any help will be wellcome !
Click to expand...


The textbox's value is not yet updated, so refereing to " If
Len(Me.txt1) >= 5 Then " will not reflect the current un-updated
value. Try revising to

Private Sub txt1_Change()
On Error Resume Next

'Setting the SelStart would likely scewup while
'some one is typing. Either way, if txt1's value
'is not a number then subtracting one would likely fail.
'Me.txt1.SelStart = Me.txt1 - 1

If Len(Me.txt1.Txt) >= 5 Then
Me.txt2.SetFocus
End If

End Sub
 
J

javiernews via AccessMonster.com

Thank you for your sugestions,.........
but is Not working either !!!

I need to fill the text box with 5 characters (numbers or / and letters)

Any help ?
 
J

John W. Vinson

Hi,

I have the following scenario:
I have several text boxes in each text box must be filled up to 5 characters
(letters and numbers)
How to jump to the next text box automatically after filling the 5 characters
??????
Click to expand...

If the length of the field to which the textbox is bound is in fact 5, you can
set the textbox's AutoTab property to Yes. It will jump to the next control in
the tab order after the fifth character is typed.

John W. Vinson [MVP]
 
J

javiernews via AccessMonster.com

Ok thank you John ,....... But in this case I need to use and Input mask
isn't it ?

Input Mask = CCCCC

But How to make without Input Mask ?????
 
J

John W. Vinson

I need to fill the text box with 5 characters (numbers or / and letters)
Click to expand...

Exactly five?

Or "five or fewer"?

It makes a big difference!

John W. Vinson [MVP]
 
J

John W. Vinson

Ok thank you John ,....... But in this case I need to use and Input mask
isn't it ?
Click to expand...

No. The input mask and the AutoSkip are independent of one another.

John W. Vinson [MVP]
 
J

javiernews via AccessMonster.com

Ok I found the solution with code:

If I use Len(Me.txt1) it does Not work,.........
but if i use Len(Me.txt1.Text) then it works perfectly !
(No need Auto Tab to Yes or any Input Mask)

Private Sub txt1_Change()
On Error Resume Next

If Len(Me.txt1.Text) >= 5 Then
Me.txt2.SetFocus
End If

End Sub
 
Top