Counter that ignores duplicates?

[athyeh]

Have the code below behind a form that I am using to count how many barcodes an operator scans in. Is there a way to for this counter to count duplicate values as 1?

So if I scan in barcode: 10001, 10001, 10001, I only get credit for 1?

Thanks!

If Hour(Now()) > Nz(Me.tbxHour, -1) Then


Me.tbxCount = 0
Me.Goal = 35
Me.tbxHour = Hour(Now())
End If
Me.tbxCount = Me.tbxCount + 1

[ItsMe]

You need to query the table that stores the barcode scan result (i.e. 10001) via a Totals query. You can then place you result into your Me.tbxCount without the Me.tbxCount +1.

You only want to count barcode scan results that match your current session, whatever that criteria may be. Maybe, WHERE UserID AND ScannerSN AND ProjectNum or something along those lines.

[June7]

Try:

Dim strBarCode As String 'delared in module header, not within the procedure

______________________

Sub ...
If Hour(Now()) > Nz(Me.tbxHour, -1) Then
Me.tbxCount = 0
Me.Goal = 35
Me.tbxHour = Hour(Now())
End If
If strBarCode <> Me.tbxBarCode Then
Me.tbxCount = Me.tbxCount + 1
strBarCode = Me.tbxBarCode
End If
...
End Sub


This only works if the duplicate barcodes are scanned sequentially. If a barcode is scanned again after other barcodes, it will be counted.