Текстовое поле получает только один символ от сканера штрих-кода - PullRequest
2 голосов
/ 04 октября 2019

при сканировании штрих-кода в текстовое поле вводится только первая цифра. Код активируется при любых изменениях в текстовом поле. 2-ая ​​проблема заключается в том, что после завершения поиска фокусируется на текстовом поле, чтобы можно было выполнить следующее сканирование.

Private Sub Barcode_TxtBox_Change()

If Barcode_TxtBox.Value = "" Then
' set focus back to textbox
    Barcode_TxtBox.Activate
Else
' If match found then populate the box next to the code found with X
    If WorksheetFunction.CountIf(Sheets("Sheet1").Columns(2), Barcode_TxtBox.Value) = 1 Then
        Set TargetCell = Sheets("Sheet1").Columns(2).Find(Barcode_TxtBox.Value, , xlValues, xlWhole).Offset(0, 1)
        TargetCell.Value = "X"
    Else
        MsgBox "Code not found"
    End If
' Clear textbox and set focus back to textbox for next scan    
    Barcode_TxtBox.Value = ""

    Barcode_TxtBox.Activate

End If

End Sub

Когда сканирование завершено, в текстовое поле вводится первый символ штрих-кода, и совпадений не найдено, поэтому активируется MSGBox "Код не найден"

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...