Splitting Data Using A Scanned Bar-code Entry

[euphonium01]

I am able to scan a bar-code and get the data the scanner reads into the correct field. However, the numbers that appear from the bar-code are a 9 digit, numerical number (say 123456789). Although the numbers scanned are correct, I want to 'split' the numbers into 3 digits in one field, and the remaining 6 digits into another field (so field 'A' would contain 123, and field 'B' would contain 456789).

The answer maybe fairly simple but, after searching for the right answer for some time, it seems to be a pretty unique question, can anyone help please?

Thanks in advance


Paul (euphonium01)

[Missinglinq]

How are you planning on storing the data; in one Field or in two Fields? Exactly how you do this will depend on the answer.

Scanning the data in is considered, by Access, to be the same as entering it in manually, which is to say the usual events (OnChange, AfterUpdate, etc.) are triggered. You can use this to parse the barcode into the two Fields (if you're storing two Fields) or use the Control Source of the two to do the parsing if you're only storing the one, complete, Field.

Linq ;0)>

[euphonium01]

I am wanting to store the data in two fields, I have just scanned a typical bar-code in, it reads 114283535, the 114 determines what my product, the 283535 tells me the Serial Number of that product. So, I need field TYPE to have 114 in it, and I need field SERIAL to have 283535 in it.

[Missinglinq]

This should do it, replacing txtScannerControl, txtProductName and txtSerNumber with the actual names of your Controls:

Private Sub txtScannerControl_Change()
 Me.txtProductName = Left(Me.txtScannerControl, 3)
 Me.txtSerNumber = Right(Me.txtScannerControl, 6)
End Sub

Normally you'd use the AfterUpdate event for this kind of thing, but because you're using a scanner the OnChange event should work fine, assuming that you'll never be manually entering the barcode. If that is a possibility, use the txtScannerControl_AfterUpdate(), instead.

Linq ;0)>

[euphonium01]

Worked like a dream, thank you so much