[Resolved]Exit loop when first user input error is found

[si_the_geek]

Actually I've just noticed something else.. for the MsgBox's you have If statements when there is no need (as there is only one possible return value), you could have them like this:

If Len(txtName.Text) < 3 Then
           MsgBox "Please enter a valid Drivers Name", vbOK, "Invalid driver name"
           txtName.Text = ""
           txtName.SetFocus
           ErrorResult = "Yes"
        End If

..which makes an alternative option spring to mind - you could use ElseIf, eg:

If Len(txtName.Text) < 3 Then
           MsgBox "Please enter a valid Drivers Name", vbOK, "Invalid driver name"
...
           ErrorResult = "Yes"
 
        'check agency name is correct format etc
        ElseIf Len(cmbAgencyName.Value) = 0 Then
           MsgBox ...
...
...
...    
        'if no errors go to next form
        Else
            frmAgency.Hide
            frmTrainingClerical.Show
        End If

This would be tidier, avoid any issues like salvelinus was thinking of, and would probably eliminate the need for your ErrorResult variable.

[aikidokid]

Thanks to both salvelinus and si_the_geek.

I actually have changes this to the ElseIf already, but thanks for the help.

I did do a year or two of programming a couple of years ago, self taught at home, but I am only just getting back into it again, and thats VBA.

Its a shame how much I seem to have forgotten.