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

[Vita]

I'm trying to use a barcode scanner to be able to scan a barcode and look up the respective ticket in a table. I am starting by getting the form to split up the barcode as the barcodes are made up as such: 243455-01-050


The first 6 are the order number.
The middle 2 are the ticket number as there can be multiple tickets per an order.
The last 3 are the step numbers as there are multiple steps per a ticket.

So I am using the following code on the AfterUpdate:

Option Compare Database

'Private Sub CboName_Change()
'Me.DhrScanTxt.SetFocus
'End Sub


Private Sub DhrScanTxt_AfterUpdate()


Dim Status As String
Status = Me.DhrScanTxt


Me.Text26 = Status


Dim SoNum As Long
SoNum = Left(Status, 6)
Me.SoNumTxt = SoNum


Dim DhrNum As Long
DhrNum = Right(Left(Status, 9), 2)
Me.DhrNumTxt = DhrNum


Dim StepNum As Long
StepNum = Right(Status, 3)
Me.StepNumTxt = StepNum












End Sub

Problem is it doesn't seem to update the other text boxes.
I tried "on change" but it then only takes the 2 and opens the vba and tries to type it in there and opens a windows explorer searching for a file?
I closed out the explorer and hover over the highlighted code bit which is [Status = Me.DhrScanTxt] and it says [Me.DhrScanTxt] is null? which doesnt make sense since I just scanned it in and it shows the 2 in the text box.

The way the barcode scanners are made it also does like 5-7 carriage returns after entering the text so I tried the "on enter" property and it works but I since it hits enter several times I end up on one of the other fields. (I don't want to remove those other fields from tab order because It needs to be useable with just a keyboard)

I tried adding a [Me.DhrScanTxt.SetFocus] to the end and it doesn't work. it still goes to the next field since it does several carriage returns.
When I get there I want it to highlight the text so that the user can scan several steps quickly. I haven't figured out how to do that yet so if you know that would be a nice extra bit.

Thanks for taking the time to help!

[Minty]

The scanner should only send one carriage return after a successful scan. Check it's configuration.
The controls after update event is the correct one to to set the other fields values.

I've used quite a few scanners over the years and not experienced multiple CR's (Enters). Are you definitely reading the barcode correctly?
What happens if you simply scan the barcode into notepad or something similar ?

[Vita]

It goes down 7 lines and has that weird blank character there. Problem is I think its the barcode not the scanner. I tried a different computer with a different(but same model) scanner and It does the same thing.
Unfortunately I have to work around this if that's the case because there's tens of thousands of these barcodes already.

[Minty]

You can test if it's the scanner by simply scanning some other barcode on a book or tin of beans. See what you get.
If the carriage returns are always present in the barcode, you can deal with them by changing the default behaviour of the text box enter key and/or using the change event to monitor the input.

[Vita]

You can test if it's the scanner by simply scanning some other barcode on a book or tin of beans. See what you get.
If the carriage returns are always present in the barcode, you can deal with them by changing the default behaviour of the text box enter key and/or using the change event to monitor the input.

Apologies for the late reply I don't have access to this account on the weekends.
I tried scanning a different barcode and it does not do the carriage returns. So it is the barcodes.
How would I go about dealing with them?

[Minty]

If you change the default behaviour of the enter key in the text box, you will be able to strip them out of the extraneous text.
The difficulty will be to "know" when the barcode scanner has completed it's task. and fire the VBA to do the rest.

[Vita]

If you change the default behaviour of the enter key in the text box, you will be able to strip them out of the extraneous text.
The difficulty will be to "know" when the barcode scanner has completed it's task. and fire the VBA to do the rest.

Yea I changed it to do a new line on enter and uh it doesn't seem to update anymore. Its kinda of glitchy, like it only seems to update when I click another field or 2.
Edit: It also says it creates a new line in the field which could be a problem.

[Minty]

Yes that the only way to circumvent it using the CR's to move to the next field.

I guess you could just get it to move to another control and accept the CR's in that box, count the number of characters, then fire the update?
e.g.

• The first <Enter> in theory moves from your barcode control to a small virtually hidden control,
• Accepts the remaining 6 <Enter> key strokes as new lines in the hidden control, counting them in the on change event.
• fire the update to the other controls,
• move to the next textbox you really want to be on.

[Vita]

Yes that the only way to circumvent it using the CR's to move to the next field.

I guess you could just get it to move to another control and accept the CR's in that box, count the number of characters, then fire the update?
e.g.

• The first <Enter> in theory moves from your barcode control to a small virtually hidden control,
• Accepts the remaining 6 <Enter> key strokes as new lines in the hidden control, counting them in the on change event.
• fire the update to the other controls,
• move to the next textbox you really want to be on.

How would I go about counting how many times a function ran?
Something like this?

Private Sub TxtEnterbox_Change()
Dim Count As Integer
If (Count >= 6) Then
        Me.DhrScanTxt.SetFocus
        Count = 0
End If
Count = Count + 1
End Sub

[Vita]

I also tried it on enter and I cant get it to seem to count.

[Minty]

You'll have to declare the count variable outside the change event, otherwise it will always revert to 0 every time something changes.

Put the

DIM  iCount as integer

before the other form procedures (After Option Explicit at the top of the module) and remember to reset it after it's successful.
(Use iCount as Count is a reserved word and a function and will bite you later)

[Vita]

You'll have to declare the count variable outside the change event, otherwise it will always revert to 0 every time something changes.

Put the

DIM  iCount as integer

before the other form procedures (After Option Explicit at the top of the module) and remember to reset it after it's successful.
(Use iCount as Count is a reserved word and a function and will bite you later)

Like this?

End Sub

Dim iCount As Integer
Private Sub TxtEnterbox_Enter()
If (iCount >= 4) Then
        Me.DhrScanTxt.SetFocus
        iCount = 0
End If
iCount = iCount + 1
End Sub

In between the subs?
I am not familiar with "Option Explicit". Upon googling I see that its a function but I did not include it?

[Vita]

I didn't have Option explicit in this. I added it and put it below that at the top of the code.

Option Compare Database
Option Explicit
Dim iCount As Integer


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

[Minty]

At the top of all modules underneath

Option Compare Database
Option Explicit

Dim iCount as Integer

You should add Option Explicit to all your code modules.
It forces you to declare variables, and can massively save you time spotting typo's

[Minty]

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?