How to get text field to stay focused and highlight text after hitting enter?

[Vita]

Sorry I missed your latest post.

That might do the trick. Add a debug.print to see if it's working

Private Sub TxtEnterbox_Enter()
If (iCount >= 6) Then
        Me.DhrScanTxt.SetFocus
        iCount = 0
End If
Debug.Print iCount
iCount = iCount + 1
End Sub

Edit - you'll need to use the change event possibly?

I added Debug.Print (and after googling it) It doesn't work still. On change it doesn't seem to work but if I do on enter it seems to only count 1 instead of looping.
I suppose I could just have it count to 1 and set focus to the main text box?

[Vita]

I got it working with the following code:

Private Sub TxtEnterbox_Enter() 'Function to handle the extra 6 carriage returns on the barcodesIf (iCount = 0) Then iCount = 1 'Used to correct the count at start up
If (iCount >= 1) Then
        Me.DhrScanTxt.SetFocus
        iCount = 0
End If
iCount = iCount + 1
End Sub

Now I just need to add a few more features before its done. Hopefully I should be fine.
I very very much appreciate the help!

[Minty]

Glad you got is worked out. Certainly a tricky problem to get around.