Фильтровать текст из штрих-кода при сканировании физических штрих-кодов - PullRequest
0 голосов
/ 13 июня 2019

У меня есть физический штрих-код на моем пакете.Мне нужно отфильтровать текст, который говорит "CustID: " весь штрих-код читает "CustID: 123456798".

Мой лист содержит "123456798", и мне нужно, чтобы они совпадали.У меня около 40000 штрих-кодов, поэтому удаление "CustID: " при одновременном сканировании каждого штрих-кода будет работать хорошо и будет быстрее для меня.

Я использую MS Access при сканировании штрих-кодов в поле источника управления. Я пытался набрать =Replace("","CustID: ",""), чтобы удалить текст, но ничего не возвращает, когда пытаюсь сканировать штрих-коды.

Я бы хотелкак штрих-код, чтобы сказать "123456789", а не "CustID: 123456798" при фильтрации каждого текста, прежде чем штрих-код будет считываться в моих числах.

Я решил поставить

Dim lngCurBarCode1 As Long

If Me.txtRec.Text <> "" Then

    Me!txtRec.SetFocus
    If Me!txtRec.Text Like "RecID: *" Then
       Me!txtRec = Replace(Me!txtRec.Text, "RecID: ", "")
    End If
    lngCurBarCode1 = Me.txtRec.Text

End If

, где textRec - этотекстовое поле

1 Ответ

2 голосов
/ 14 июня 2019

Я бы предложил добавить следующую процедуру обработки событий к событиям After Update или On Change вашего текстового поля MS Access:

Private Sub YourTextbox_AfterUpdate()
    If YourTextbox Like "CustID: *" Then
        YourTextbox = Replace(YourTextbox, "CustID: ", "")
    End If
End Sub

Замените YourTextbox на имя вашего текстового поля.

...