TUser table:
Name, Badge, AtWork (Boolean)
tLog table,
ID , Clock, Status
TEquipment table
EqID, ItemName, Badge
user scans badge,where currently atWork = true,
since user is in, then He is clocking out,so,
Run append query to add to tLog table: Bdg123, 11/2/2016 6 am , OUT
then run update query to change
[AtWork]=not [AtWork]
Same with Equipment, if checked in ,then check it out, badge=null, so assign badge to the equip...
but if user already has one out ,alert.
Code:
vResult= Dlookup("badge","tEquipment","[Badge]='" & me.txtBadge & "'"
if isNull(vResult) then. 'User has no eq out
vResult= Dlookup("EqID","tEquipment","[EqID]='" & me.txtEqID & "'"
if isNull(vResult) then Docmd.openQuery "quCheckOutEq"
else
MsgBox "you already have equip checked"
end if