Public Sub CheckDuplicates(ByVal FormName As String, ByRef lblCommunicate As Label)
Dim TheForm As Form: Set TheForm = Forms(FormName)
Sub CheckDuplicates(ByVal Const_FormTable As String, ByRef lblCommunicate As Label)
Dim TheForm As Form: TheForm = Forms(Const_FormTable)