Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

I have a database that tracks check

Status
Not open for further replies.

Denae

Instructor
Apr 15, 2016
29
US
I have a database that tracks check-in and check-out of items. Each item has a barcode assigned to it with a three digit number. I recently purchased a gun scanner to scan the barcodes to check them in/out.

I want to scan the barcode and have the item number auto populate the form, then mark is as in or out then move to the next blank record so the next item can be scanned.

The form called frmBarcode_Check that has three fields on it with a control source of tblCheckedItems;
[ul]
[li]CI_Claim_Tag_ID (short text) - this is the 3 digit barcode number[/li]
[li]CI_TimeStamp (date/time) - date/time the item is checked in our out[/li]
[li]CI_Type (short text) - tracks in or out for the scan[/li]
[/ul]

Right now I have CI_Type defaulting to "IN", but I would like it to look for the last scan for the item and mark it the opposite, but I haven't started trying to figure out that code yet.

I have put the following code in the On Change property of CI_Claim_Tag_ID, if I scan a barcode that is in the system it marks it in and moves to a new record, the problem is if the barcode is not in the system, I can't get it to provide a custom error message and cancel the scan. It gives me a run time error (3201) and asks me to debug the code.

Code:
Private Sub CI_Claim_Tag_ID_Change()


Const conErrRequiredData = 3201

If Len(CI_Claim_Tag_ID.Text) = 3 Then

DoCmd.RunCommand acCmdSaveRecord


    If DataErr = conErrRequiredData Then
        Me.Undo
        MsgBox ("Barcode not in system.")
        Response = acDataErrContinue
    Else
        'Display a standard error message
        Response = acDataErrDisplay
    End If


DoCmd.GoToRecord , , acNewRec
    
End If


Any help is greatly appreciated.
 
HI,

Since this is Access, it might be better if you post this question in forum705 or the Access Forms forum.

Skip,
[sub]
[glasses]Just traded in my OLD subtlety...
for a NUance![tongue][/sub]
 
Sorry about that, this is where I made my last VBA post. I will re-post.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top