Hi again Bill,
Your code worked very well.
I simplified it as follows:
Public Function FAlphaNumericOnly2(strIn As String) As Boolean
Dim x As Integer
Dim varCharacter As Variant
Dim bolANOnly As Boolean
'Initialize flag to True.
bolANOnly = True
'Loop through entire string.
For x = 1 To Len(strIn)
'Get a character in the string.
varCharacter = Mid(strIn, x, 1)
Select Case varCharacter
Case "A" To "Z", 0 To 9 'Alpha numeric characters.
bolANOnly = True
Case Else
bolANOnly = False
Exit For
End Select
Next
FAlphaNumericOnly2 = bolANOnly
End Function
Specifically, the code checks the each character directly without first getting its character code.
It seems to be case-insensitive.
Abraham
--- In MS_Access_Professionals@yahoogroups.com, "Bill Mosca" <wrmosca@...> wrote:
>
> Abraham
>
> I broke this down into little steps so you could see what I'm doing. This loops through the string argument and looks for alpha numeric characters. If any special characters are found it immediately returns false. Otherwise, it returns true.
>
>
> Public Function AlphaNumericOnly(strIn As String) As Boolean
> Dim x As Integer
> Dim varCharacter As Variant
> Dim bolANOnly As Boolean
>
> 'Initialize flag to True.
> bolANOnly = True
>
> 'Loop through entire string.
> For x = 1 To Len(strIn)
> 'Get a character in the string.
> varCharacter = Mid(strIn, x, 1)
> Select Case Asc(varCharacter)
> 'Alpha numeric characters.
> Case 48 To 57, 65 To 90, 97 To 122
> bolANOnly = True
> Case Else
> bolANOnly = False
> Exit For
> End Select
> Next
>
> AlphaNumericOnly = bolANOnly
>
> End Function
>
>
> Regards,
> Bill Mosca, Founder - MS_Access_Professionals
> http://www.thatlldoit.com
> Microsoft Office Access MVP
> https://mvp.support.microsoft.com/profile=C4D9F5E7-BB03-4291-B816-64270730881E
> My nothing-to-do-with-Access blog
> http://wrmosca.wordpress.com
>
>
>
> --- In MS_Access_Professionals@yahoogroups.com, "Abo" <abraham@> wrote:
> >
> > Hello,
> >
> > I would like to check/ensure that a string contains only numbers and/or alphabet characters. No special characters.
> >
> > Is there a simple way to do this? Something similar to IsNumeric?
> >
> > Abraham
> >
>
Tidak ada komentar:
Posting Komentar