Создать счетчик числа, который подсчитывает каждый пятый номер

Question

У меня есть текстовое поле с надписью «Номер лота» в форме «Получение формы проверки». Мои пользователи должны ввести много номеров из материалов, полученных нашей компанией. Я хочу, чтобы каждый пятый номер партии был проверен инспектором. Вот мой код:

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 

Answer 1

Попробуйте - и обратиться к пользователю вежливо:

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