创建每 5 个数字计数一次的数字计数器

Create Number Counter that Counts Every 5th Number

我有一个标记为 "Lot Number" 的文本框，格式为 "Receiving Inspection Form"。我的用户必须输入我们公司收到的 material 的批号。我希望检验员检查每 5 个批号。这是我的代码：

Private Sub Lot_Number_AfterUpdate()

    Dim x As Integer

    x = 0

    If EndsWith(x) Then
    MsgBox "MUST PERFORM SPECTROMETER TEST!!!!!"
    Me.Lot_Number.SetFocus
    Exit Sub
    End If

End Sub

试试这个 - 礼貌地称呼用户：

Private Sub Lot_Number_AfterUpdate()

    Dim Lot As Integer
    Dim Sec As Integer

    Sec = Second(Time) \ 2    
    Lot = Val(Right(Nz(Me!Lot_Number.Value), 1))
    If Lot Mod 5 = Sec Then
        MsgBox "Please perform spectrometer test.", vbInformation + vbOkOnly, "Inspector Check"
        Me!Lot_Number.SetFocus
    End If

End Sub