Incorrect Field Length

Brendan Bartley · June 10th, 2009, 12:56 PM

Hi All
I am using the following code to get the user to input the correct field length.
[FONT='Calibri','sans-serif']If Len(Me.AnPostRef.Text) < 6 Or Len(Me.AnPostRef.Text) > 6 Then
MsgBox "A valid Reference Number Must Be SIX Characters ", vbCritical + vbOKOnly, "Helpdesk Ref Number"[/FONT]
[FONT='Calibri','sans-serif']I am not able to return the user back to the same field I have used setfocus option and it causes issues and error msg[/FONT]
[FONT='Calibri','sans-serif'][/FONT]
[FONT='Calibri','sans-serif']Regards[/FONT]

gbianchi · June 10th, 2009, 06:03 PM

What error message?? it should be working ok...

and why did you len < 6 and len > 6 and not just try len <> 6???

SerranoG · June 11th, 2009, 01:01 PM

Have you tried something like

Code:

If Len(Me.AnPostRef) <> 6 Then
  MsgBox "A valid reference number must be SIX characters!",  vbCritical, "Helpdesk Ref Number"
  Me.AnPostRef.Undo
End If

mmcdonal · June 15th, 2009, 01:36 PM

Is this a bound text box? If so, you can set up this validation at the table level and not have to worry about creating this sort of coding on all your bound forms.