代码之家 › 专栏 › 技术社区 › jrussin

MS Access提取条形码的最后12位数字

ms-access-2016 ms-access-2013 ms-access

jrussin · 技术社区 · 8 年前

最近我把联邦快递的扫描枪换成了黄蜂扫描枪。现在,当我扫描联邦快递标签时,它会给我一个24个字符的跟踪,我只需要最后12个数字。我还将扫描UPS标签,它们是字母数字。是否有任何方法可以截断扫描到文本框中的全数字条形码的最后12位以外的所有数字?

我当前的代码让我省去了前导零,但如果我能只得到最后12位数字,我就不需要那段代码了。

当前代码:

Dim strIn As String
Dim i As Integer
Dim iLen As Integer
strIn = Me.txt_Track.Value
iLen = Len(strIn)
For i = 1 To iLen
For i = 1 To iLen
    If InStr(strIn, "0") = 1 Then
        strIn = Mid(strIn, 2)
    End If
Next i
CurrentDb.Execute
            "INSERT INTO TrackNum_Table(TrackingNum_TrackNum) " & _
            "VALUES ('" & strIn & "')"

2 回复 | 直到 8 年前

Gustav 8 年前

正当将这样做:

Code = Right(strIn, 12)

jrussin 8 年前

我就是这样解决的。

Dim strIn As String
Dim strOut As String
strIn = Me.txt_Track.Value
Numeric = IsNumeric(strIn)
If Numeric = True Then
    strOut = Right(strIn, 12)
Else
    strOut = strIn
End If
CurrentDb.Execute _
            "INSERT INTO TrackNum_Table(TrackingNum_TrackNum) " & _
            "VALUES ('" & strOut & "')"

推荐文章

john c. j. · 如何编辑和复制非VBA宏?

8 年前

farmpapa · 是否将日期范围的SQL联接计数连接到日历日期表?

8 年前

jrussin · MS Access提取条形码的最后12位数字

8 年前

Tarun. P · 通过vba更新Mainform上的子窗体时,Ms access数据库将更新

8 年前

Graeme · 在MS Access 2013中向表单标题添加文本字段

8 年前

Chris1313 · Microsoft Access表单-列表框、文本框(两个表)

8 年前

Smith Stanley · 强制短文本字段始终为X个字符

8 年前

IcyPopTarts · 在没有提示的情况下访问VBA以重写文件

8 年前

aassddffa · 无法更改Access 2013中的列引用

8 年前

Heather · DLOOKUP返回#NAME?IIF语句出错

8 年前