Private Sub Postal_Code_BeforeUpdate(Cancel As Integer)
If IsNull([Postal Code]) Then
strMsg = "You must enter a Zip Code"
strTitle = "Zip Code Required"
MsgBox strMsg, vbOKOnly, strTitle
Cancel = True
Else
If Not Left([Postal Code], 2) = "73" And Not Left([Postal Code], 2) = "74" And Not...