.
Here are two example projects that I saved from this Forum (I believe).
I don't have any first hand knowledge of either ... they were simply saved in my tool box for future reference. Hopefully they will give you a good
start on your project.
Sub ScanIN()
Dim CS As String
CS = CurStat(Range("Sel_Item"))
If CS = "Error" Then
MsgBox "Error: Item Not Found", vbOKOnly + vbCritical, "Item Not Found"
Exit Sub
ElseIf CS = "In" Then
MsgBox "Item is already checked in.", vbOKOnly + vbInformation, "Item Already in Stock"
End If
ScanIt "In"
End Sub
Sub ScanOut()
Dim CS As String
CS = CurStat(Range("Sel_Item"))
If CS = "Error" Then
MsgBox "Error: Item Not Found", vbOKOnly + vbCritical, "Item Not Found"
Exit Sub
ElseIf CS = "Out" Then
MsgBox "Item is already checked out.", vbOKOnly + vbInformation, "Item Already Checked Out"
End If
ScanIt "Out"
End Sub
Bookmarks