Validation
I have this in the BeforeUpdate Event in the People_ID text box under properties.
Private Sub PEOPLE_ID_BeforeUpdate(Cancel As Integer)
Dim intSearch As Integer, varX As Variant
intSearch = 1
varX = DLookup("[People_ID]", "dbo_RifleInventory1", _
"[People_ID] = '" & Me.PEOPLE_ID &...