String validation 2

[Palmyra]

Can someone point me to how to validate if a user has keyed into a text box in a specific format, for example A1111-11111?

Thanks.

 

[rmikesmith]

Try something like:

Function StringValid(ByVal sTest As String) As Boolean
   StringValid = sTest Like "?####-#####"
End Function

Regards,
Mike

 

[Palmyra]

Perfect

 

[Palmyra]

Can I make the validation check for an upper case in the first position?

Thanks

 

[rmikesmith]

Try this:

Function StringValid(ByVal sTest As String) As Boolean
   StringValid = sTest Like "[A-Z]####-#####"
End Function

Note -- This depends on the Option Compare Binary compiler directive. This is the default. If you have Option Compare Text in your code module, then the Like comparison will not discriminate between upper & lower case.


Regards,
Mike

 

[Palmyra]

Thanks.

 

[Palmyra]

Have been using below and users have been happy. However, now they'd like to force either an upper case letter or a number in the first position (but not a lower case letter). Is that possible?

Thanks.



Function StringValid(ByVal sTest As String) As Boolean
StringValid = sTest Like "[A-Z]####-#####"
End Function

 

[PHV]

StringValid = sTest Like "[0-9A-Z]####-#####"

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Palmyra]

Great, thanks.