问使用拆分函数在Access中修剪数据条目以进行搜索
EN

Stack Overflow用户

提问于 2019-01-14 10:27:16

回答 2查看 40关注 0票数 0

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

例如:79|99999-ID|Lot:9999|Exp:31-6-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```

ms-access

vba

Stack Overflow用户

回答已采纳

发布于 2019-01-14 15:29:09

如果用户仍然可以手动输入部件号，则可能需要类似以下内容：

Private Sub BTN_Search_Click() 

    Dim SQL As String 
    Dim PartNumber As String

    If UBound(Split(Me.txtPartNumber, "|") > 0 Then
        ' Barcode.
        PartNumber = Split(Me.txtPartNumber, "|")(1)
    Else
        ' Manual entry.
        PartNumber = Me.txtPartNumber
    End If

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

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

End Sub

票数 0

查看全部 2 条回答

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/54175115

复制

相似问题

问使用拆分函数在Access中修剪数据条目以进行搜索
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问使用拆分函数在Access中修剪数据条目以进行搜索EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问使用拆分函数在Access中修剪数据条目以进行搜索
EN