Checking string to only contain numerical characters

[psycoperl]

I need help in writing a statement that can extend this if statement to ensure that in addition to haveing no spaces that the string has only "0", "1", "2", "3", "4", "5", "6", "7", "8", "9" Not sure where to turn to...

If (InStr(rsSNReport!StudentID, " ") <> 0) Or (Len(Trim(rsSNReport!StudentID)) <> 9) Then ...

Thanks in advance for your assistance.

 

[revans]

try

    Select Case CInt(xx)
      Case 0 To 9
        'do stuff here
    End Select

hth

Rich

 

[psycoperl]

I think that I was not clear. I need the string to contain only numbers (0 - 9), no spaces, no letters, no symbols. The string will need to be 9 digits long.

From what I see in your answer, it looks to check for a string being 1 digit.

 

[revans]

Ah. You fooled me with

If (InStr(rsSNReport!StudentID, " ") <> 0) Or (Len(Trim(rsSNReport!StudentID)) <> 9) Then ...

So, to do what you want you'd need to know what to do with a string that is "abc1234546". Should this function return 123456 or nothing?

Barring that I'd imagine a loop like

Function CheckNum(strInput As String) As Boolean
Dim temp As Boolean
Dim i As Long
If Len(strInput) = 9 Then
  For i = 1 To Len(strInput)
    Select Case Val(Mid(strInput, i, 1))
      Case 0 To 9
        temp = True
      Case Else
        temp = False
        Exit For
    End Select
  Next i
End If
CheckNum = temp
End Function

Give or take...

hth,

Rich

 

[psycoperl]

If it has any "illegal characters" it should return true to execute my error correcting steps/prompts.

 

[revans]

I would switch the two Temp=True/Temp=False statements to accomplish that requirement.

hth,

Rich