Thanks That worked Perfectly! New Problem If The Employee has no Records In EmpEquipmentAccessT Then it Lets them Check out anything Instead of Denying Everything



Private Sub Combo10_BeforeUpdate(Cancel As Integer)


Dim E
Dim X


X = DLookup("EquipmentID", "EmpEquipmentAccessT", "EmpID=" & EmpID)

If Combo10 <> X Then
E = MsgBox("Employee is NOT Authorized to check out this Equipment. " & _
"Employee must contact his or her Supervisor to request access.", vbOKOnly + vbExclamation, "Not Autherized To Check Out")
Cancel = True
Me.Undo
End If


If InService = False Then
E = MsgBox("This equipment is currently out of service " & _
"and can not be checked out at this time.", vbOKOnly + vbExclamation, "Equipment Is Out Of Service")
Cancel = True
Me.Undo
End If

If IsAvailable = False Then
E = MsgBox("This equipment has already been checked out. It must first be checked back in " & _
"before it can be checked out again.", vbOKOnly + vbExclamation, "Equipment Is Already Out")
Cancel = True
Me.Undo
End If

---

Reply from Richard Rost:

Wrap your DLOOKUP inside of an NZ() function which will convert NULL values to ZERO.

X = NZ(DLOOKUP(...),0)
IF X=0 then you have a null value