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

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

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

jrussin · 技术社区 · 7 年前

最近我把联邦快递的扫描枪换成了黄蜂扫描枪。现在,当我扫描联邦快递标签时,它会给我一个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 回复 | 直到 7 年前

Gustav 7 年前

正当将这样做:

Code = Right(strIn, 12)

jrussin 7 年前

我就是这样解决的。

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 & "')"

推荐文章

Stormer · 从Access格式化Excel单元格无效

2 年前

Ashik c · SQL Server和MS Access:锁定和解锁表

3 年前

Christian Balabat · 从今天的日期所在的ms access数据库获取数据很热

3 年前

schalld · 从ms access中执行URL

3 年前

Hawsidog · 将Excel Listobject导入Access表

6 年前

Arsee · 表单数据验证

6 年前

Lando · 希望更正我的更新后事件(MS Access)

6 年前

MStudz · 从VBA查询访问权限

6 年前

Roland · 简单Case语句中的语法错误

6 年前

JZeig1 · 如何以编程方式在组合框中选择值?

6 年前