return only numeric values 1

[smuthcrmnl777]

Mid([line-sample],InStr([line-sample],'-')+1)

This code returns values to the right of the '-'.

How can I make sure that I only return numeric values and omit the letters?

 

[Remou]

Perhaps something like:

For i=1 to Len(strString)
   If IsNumeric(Mid(strString,i,1)) Then
      strNumString=strNumString & Mid(strString,i,1)
   End If
Next

 

[PHV]

To skip trailing letters:
Val(Mid([line-sample],InStr([line-sample],'-')+1))

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[smuthcrmnl777]

How would I have it in my query though?

The code is not in VBA, but in the query field.

 

[Remou]

Who is that question to? I guess it is easy enough to see how PHVs code works in a query, as for my snippet, you could use a function:

Function NumOnly(strString)
Dim strNumString
If IsNull(strString) Then
    Exit Function
End If
For i = 1 To Len(strString)
   If IsNumeric(Mid(strString, i, 1)) Then
      strNumString = strNumString & Mid(strString, i, 1)
   End If
Next
NumOnly = strNumString
End Function

Then in the query:
[tt]SELECT NumOnly([Field1]) FROM tblTable;[/tt]

 

[smuthcrmnl777]

I guess PHV and I wrote at the same time