Question

我有一个简单的Access数据库，该数据库具有通过零件编号标识的图像路径。现在，人们可以手动输入部件号，但我希望他们能够扫描输入部件号的条形码。不幸的是，条形码包含除零件号以外的其他内容。

例如：79 | 99999-ID | Lot：9999 | Exp：31-June-1999

应缩小为“ 99999-ID”。

Option Explicit  

Private Sub BTN_Search_Click()  
Dim SQL As String  

SQL = "SELECT Query65.ITEM_NUMBER, Query65.PLANNER_DESCRIPTION " _  
    & "From Query65 " _  
    & "WHERE [ITEM_NUMBER] = '" & Me.txtPartNumber & "' " _  
    & "ORDER BY Query65.ITEM_NUMBER "  

Me.SubPlannerSubForm.Form.RecordSource = SQL  
Me.SubPlannerSubForm.Form.Requery  

End Sub```

Answer 1

Public Function SplitBarcodeToPartNo(ByVal Barcode As String) As String
    SplitBarcodeToPartNo = Split(Barcode, "|")(1)
End Function
Private Sub TestSplitBarcodeToPartNo()
    Debug.Print SplitBarcodeToPartNo("79|99999-ID|Lot:9999|Exp:31-June-1999")
End Sub

Split()将该字符串在|处拆分为一个数组，由于PartNo是第二个，只需按Array-Index 1来获取它（第一个是Split(Barcode, "|")(0)，Last（日期）是索引3（第四项））

是否已经准备好扫描所有其他信息而不将其存储在数据库中？

原始输入后，将数据输入自动修剪到Access中的文本框中

1 个答案: