Tag property question

I have fucntions that use the "Tag Property" to check for mandatory fields.
This is how it works.
(1). User fills in data in his form and then clicks the "AddNew" button.
     The code in the button addnew first check if all the mandatory fields
       have been completely filled out by the user.
(2). If the user is not missing any field, the code simply commits saving of the
      new record to the table.
(3). If there are some missing fields, a flag message shows up on the screen
      informing the user the missing fields and then exit allowing user to fill
      in data in the required fields.
 
Form Design:
(a). Each designated control that is considered mandatory field has its tag property set to
       either [ne], [1ne], [2ne], [3ne] based on the criteria each control "ne's" represent
(b). Each control that is tagged with the [ne's] also utilize it's label name for displaying
      the correspondent label "CAPTION" of the of the controls (i.e the missing fields).
 
This control works fine until recently  I discovered a snag or let say a bug in the code.
Testing:
(1). Whe user opens a blank form in the "new record" mode and clicks the "btnAddNew" -
      it immediately display all missing fields - and the controls also show colors that makes it easy for user  
     to identify which control is designated as  "mandatory fields"
....... this appears to be working right..,,,
 
(2). Unfortunately this is not so as further tests shows inconsistency in the display of the missing fields.
For example:
Aassuming that the user fills in the first two form fields out of the six or eight mandatory fields and decides to click the btnAddNew....to my dismay, without completely filling the missing fields the records are saved in the table and no message flag is displayed showing the missing fields before saving the record.

The following are the two major code associated with the mandatory field function.
' *********************************
Public Function ChkCtl(ByRef mCtl As Control) As Boolean
  ChkCtl = True
    If mCtl.Properties("TabIndex") <= Screen.ActiveControl.Properties("TabIndex") Then  ' additional
        Select Case ExtractTag(mCtl.Tag, 2)
            Case "ne"
                If Len(Nz(mCtl.Value)) = 0 Then ChkCtl = False
            Case "1ne"
                If Len(Screen.ActiveForm.txtPermitNo) > 0 And Len(Nz(mCtl.Value)) = 0 Then ChkCtl = False
            Case "2ne"
                If Len(Screen.ActiveForm.cboSConnType) > 0 And Len(Nz(mCtl.Value)) = 0 Then ChkCtl = False
            Case ">0"
                If Not Nz(mCtl.Value) > 0 Then ChkCtl = False
            Case "tf"
                If Nz(mCtl.Value, 99) <> 0 And Nz(mCtl.Value, 99) <> -1 Then ChkCtl = False
        End Select
  End If
  Exit Function
End Function

Function MandatoryFields() As Boolean      
  Dim myCtl As Control
  Dim myCtlList, myCtlName As String
    MandatoryFields = True
  ' First the basic controls
  For Each myCtl In Me.Controls
    If Len(myCtl.Tag) > 1 Then
       If ChkCtl(myCtl) = False Then
          myCtlList = myCtlList & Me.Controls("l_" & myCtl.Name).Caption & ", "
            On Error Resume Next
          myCtl.BackColor = 16776960
            On Error GoTo 0
       Else
            On Error Resume Next
            myCtl.BackColor = 13434879
            On Error Resume Next
       End If
    End If
  Next

  ' The dependant controls are covered by specific tagvalues:
  ' first the Me.txtPermitNo) >> 1ne
  ' second the Me.cboSConnType) >> 2ne
    If Len(myCtlList) > 0 Then
      MsgBox "Please fill the following field(s) before continuing:" & vbCrLf & myCtlList
        MandatoryFields = False
    End If
    Exit Function
End Function