Validate textboxes before more VBA

[cjriebe]

I am constantly running into this issue for this code:

Dim strJulianDate As Long

'Verify Julian Date is entered
If Len(strJulianDate) <> 3 Then
MsgBox "Enter Valid Julian Date", vbOkOnly, "Invalid Entry"
Forms!Form1!JulianDate.SetFocus
Exit Sub
Else
strJulianDate = Forms!Form1!JulianDate
End If

And it keeps giving me the MsgBox even if i have 3 digits entered. Reason I have Exit Sub is that there are more text boxes to validate after this one. If I didn't have it, it'd go through the other text boxes as well. I don't want to run this via the Validation Rule, as sometimes users need to clear the textboxes and the Validation rule prevents this. Any ideas?

[burrina]

What is your definition of Julian Date and where are you using this code? Do you have a format in your table or just the form and if so, what is it?

[cjriebe]

Julian Date meaning 001 through 365. There is a validation button, if you will, that runs this code and others. There isn't a table, because the Julian Date and other data being entered is used but once. The format is posted under the textbox, but it won't prevent fat-fingering. I just wanted a quick validation of the boxes before it moves on to the meat and potatoes of my code.

[cjriebe]

Rather than try and screw with more code, taking countless hours from other programming, I'm just going to use the built-in validation tool. If the users don't like it, they can code it themselves. I still appreciated the help. Thanks you.