MSAccess 条码前导零

Question

我只是在测试一些东西。我正在尝试构建一个跟踪信息跟踪器。我对 MS Access 也很陌生。

Private Sub btn_Submit_Click()
CurrentDb.Execute _
    "INSERT INTO TrackNum_Table(TrackingNum_TrackNum) " & _
    "VALUES ('" & Me.txt_Track.Value & "')"

到目前为止，它只是一个文本框，用于查看是否有效。扫描有效。 UPS 标签有字母数字跟踪，而 Fedex 标签只有数字，但在扫描时它们有前导零。

我希望暂时通过提交按钮存储扫描的号码，但会尝试在扫描时集成自动记录。

当我扫描到文本框时，我想在按下提交按钮之前删除前导零。

任何帮助都会有帮助！

Answer 1

您需要 InStr() 和 Mid()。

在你做之前CurrentDb.Execute

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
    If InStr(strIn, "0") = 1 Then 'by default checks the first char.
        strIn = Mid(strIn, 2)     'strIn now starts at the 2nd char.
    End If
Next i

...insert into...values...strIn

Answer 2

wazz 分享的一种更简单的替代方法如下：

Private Sub btn_Submit_Click()
Dim str As String
If IsNumeric(Me.txt_Track.Value) Then
    str = Int(Me.txt_Track.Value)
Else
    str = Me.txt_Track.Value
End If
CurrentDb.Execute _
    "INSERT INTO TrackNum_Table(TrackingNum_TrackNum) " & _
    "VALUES ('" & str & "')"

如果字段是数字，这会从字段中删除任何前导零和小数，并且由于只有 FedEx 标签是数字，因此它不会影响 UPS 标签。

MSAccess 条码前导零

MSAccess Barcode leading zeros

ms-access

ms-access-2010

ms-access-2013