原始条目后自动剪裁中访问数据输入到一个文本框(Trimming a data entry into

我有了关于部件编号识别图像的途径简单的Access数据库。 现在，人们可以手动输入编号，但我希望他们能够扫描进入零件号的条形码。 不幸的是，条形码包含比部分其他一些附加内容。

例如：79 | 99999-ID |批号：9999 |经验：31日至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是第二项仅通过阵列的索引1取它（作为第一是Split(Barcode, "|")(0)最后（日期）是索引3（第四项））

任何理由不给其他的相关信息存储在数据库中，因为它们是媒体链接扫描？

文章来源: Trimming a data entry into a text box in Access automatically after original entry