Scanning barcodes to limited fields

[Joker2]

I've limited a field to the correct number of characters for a barcode but I want to ensure that users don't try to scan longer barcodes into that field as it wont be obvious that only part of the barcode is displayed.

I have code when saving the record to check the length of the field to ensure fewer characters are not entered, but how to I make the system bring up a message box or something when a user scans a longer barcode into this field?

 

[tlowry]

The approach I would use is to not truncate the BarCode, but to validate it. Below is a function (CheckBCLength) which is passed the BarCode and returns one of three states (BCTooshort, BCTooLong, or BCJustRight) The sub “test” is an example of how to call CheckBCLength and display a message at the result.

Public Enum BClens

BCTooshort
BCTooLong
BCJustRight
​

End Enum
Option Explicit
Function CheckBCLength(sBC As String) As BClens

Const maxLen = 10
Const minLen = 5
CheckBCLength = BCTooLong
If Len(sBC) > maxLen Then Exit Function
CheckBCLength = BCTooshort
If Len(sBC) < minLen Then Exit Function
CheckBCLength = BCJustRight
​

End Function
Sub test()

Select Case CheckBCLength("1234567")

Case BCTooshort

MsgBox "Too short"
​

Case BCTooLong

MsgBox "Too Long"
​

Case Else

MsgBox "Just right"
​

End Select
​

End Sub