[RESOLVED] Error validation issue.

Hello All,

I have an "Inputerror" validation for when the user clicks on the "Save or Update" buttons.

This is the code:

vb Code:

Private Function InputError()
 
InputError = True
 
 
    
'checks to make sure the user inputs only numbers in the zip code
If txtZip.Text <> "" Then
    If Not IsNumeric(txtZip.Text) Then
        Call MsgBox("Zip Code must be numerals only!", vbInformation + vbOKOnly, "Zip Code")
        txtZip.Text = ""
        txtZip.SetFocus
        Exit Function
    End If
End If
 
'Checks to make sure the user entered a FDID and in the correct format
If txtFDID.Text = "" Or txtFDID.Text <> "" Then
    Dim r As RegExp
    Dim m As String
    Set r = New RegExp
    
    
    r.Pattern = "^[A-Z][0-9][0-9][0-9]$"
    r.IgnoreCase = True
    
    m = r.Test(txtFDID.Text)
    
    If m = False Then
        MsgBox "The information that you have entered for the FDID field is not valid or you forgot to make an entry:" & vbCrLf & "1. The FDID is REQUIRED!" & vbCrLf & "2. The FDID must be in the A123 format!" & vbCrLf & "For example: First entry must be a letter (A-Z) followed by" _
        & " three numbers (0-9)!", vbOKOnly, "Note"
        txtFDID.Text = ""
        txtFDID.SetFocus
    End If
    Exit Function
End If
 
InputError = False
End Function

Well the problem is this:

When the user clicks on the Save or Update button and they input the incorrect data, then it goes to the "Inputerror" function.

This works fine, but when I go back and correct the info then click on the Save or Update button - nothing happens!

This is the code for the Save button:

vb Code:

Case "Save"
            If InputError() Then Exit Sub
            With rs
                If booIsAdding Then .AddNew
                .Fields("fldFname").Value = txtFname.Text
                .Fields("fldMI").Value = txtMI.Text
                .Fields("fldLname").Value = txtLname.Text
                .Fields("fldFDID").Value = txtFDID.Text
                .Fields("fldDOB").Value = DTPicker
                .Fields("fldAddress").Value = txtAddress.Text
                .Fields("fldCity").Value = txtCity.Text
                .Fields("fldState").Value = txtState.Text
                .Fields("fldZip").Value = txtZip.Text
                .Fields("fldSname").Value = txtSname.Text
                .Fields("fldChildren1").Value = txtChildren1.Text
                .Fields("fldDob1").Value = DTPicker1
                .Fields("fldChild2").Value = txtChild2.Text
                .Fields("fldDob2").Value = DTPicker2
                .Fields("fldChild3").Value = txtChild3.Text
                .Fields("fldDob3").Value = DTPicker3
                .Fields("fldChild4").Value = txtChild4.Text
                .Fields("fldDob4").Value = DTPicker4
                .Fields("fldChild5").Value = txtChild5.Text
                .Fields("fldDob5").Value = DTPicker5
                .Fields("fldChild6").Value = txtChild6.Text
                .Fields("fldDob6").Value = DTPicker6
                .Fields("fldChild7").Value = txtChild7.Text
                .Fields("fldDob7").Value = DTPicker7
                .Fields("fldContact1").Value = txtContact1.Text
                .Fields("fldRelationship1").Value = txtRelationship1.Text
                .Fields("fldAddress1").Value = txtAddress1.Text
                .Fields("fldPhone1").Value = txtPhone1.Text
                .Fields("fldCell1").Value = txtCell1.Text
                .Fields("fldOther1").Value = txtOther1.Text
                .Fields("fldContact2").Value = txtContact2.Text
                .Fields("fldRelationship2").Value = txtRelationship2.Text
                .Fields("fldAddress2").Value = txtAddress2.Text
                .Fields("fldPhone2").Value = txtPhone2.Text
                .Fields("fldCell2").Value = txtCell2.Text
                .Fields("fldOther2").Value = txtOther2.Text
                .Fields("fldContact3").Value = txtContact3.Text
                .Fields("fldRelationship3").Value = txtRelationship3.Text
                .Fields("fldAddress3").Value = txtAddress3.Text
                .Fields("fldPhone3").Value = txtPhone3.Text
                .Fields("fldCell3").Value = txtCell3.Text
                .Fields("fldOther3").Value = txtOther3.Text
                .Fields("fldPrimary").Value = txtPrimary.Text
                .Fields("fldFdid1").Value = txtFdid1.Text
                .Fields("fldSecondary").Value = txtSecondary.Text
                .Fields("fldFdid2").Value = txtFdid2.Text
                .Fields("fldReligious").Value = txtReligious.Text
                .Fields("fldSrequest").Value = txtSrequest.Text
                .Fields("fldComments").Value = txtComments.Text
                .Update
            End With

What am I doing wrong?

Try putting a breakpoint on this line and see what the value is.

Code:

---

If InputError() Then Exit Sub

---

LOL, I found the mistake!

I had the "exit function" in the wrong place.

vb Code:

'Checks to make sure the user entered a FDID and in the correct format
If txtFDID.Text = "" Or txtFDID.Text <> "" Then
    Dim r As RegExp
    Dim m As String
    Set r = New RegExp
    
    
    r.Pattern = "^[A-Z][0-9][0-9][0-9]$"
    r.IgnoreCase = True
    
    m = r.Test(txtFDID.Text)
    
    If m = False Then
        MsgBox "The information that you have entered for the FDID field is not valid or you forgot to make an entry:" & vbCrLf & "1. The FDID is REQUIRED!" & vbCrLf & "2. The FDID must be in the A123 format!" & vbCrLf & "For example: First entry must be a letter (A-Z) followed by" _
        & " three numbers (0-9)!", vbOKOnly, "Note"
        txtFDID.Text = ""
        txtFDID.SetFocus
        Exit Function <---to here
    End If
    Exit function <--moved this from here
End If

Thanks anyway!

Quote:

---

Originally Posted by cfd33

LOL, I found the mistake!

I had the "exit function" in the wrong place.

---

Glad you got it sorted. :D