The form is opened via a button containing:
Private Sub cmdAdd_Click()
Dim strLinkCriteria As String
strLinkCriteria = Me.txtDept
DoCmd.OpenForm "frmAddNew", , , , , acDialog, OpenArgs:=strLinkCriteria
End Sub
This opens my pop up form which has Rich's validate data function in the...