扫描物理条形码时过滤条形码外的文本

Question

我的包裹上有一个物理条形码。我需要过滤掉一个文本，上面写着"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是文本框

Answer 1

我建议将以下事件过程添加到MS Access文本框的After Update或On Change事件中：

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

将YourTextbox更改为您的文本框的名称。