Add a temp column to your query grid. This column will be populated
with only a string of 10 numeric chars. The way you will populate this
column is by writing a function as follows which will take values from
your actual column in question. The function will parse the values for
each row, and if there is a string containing 10 consecutive digits that
value will be added to the temp column otherwise the function returns
"".
In the field name add this:
temp:getNum(yourActualfieldnamehere)
Under the criteria for temp add:
<> ""
This will yield a resultset where only rows that contain values from
your actual column that are 10 consecutive numeric chars.
Here is a function that does this:
'******************************************
Function getNum(x As Variant) As Variant
Dim i As Integer, j As Integer, k As Integer, y As Variant
For i = 1 To Len(x)
y = Mid(x, i, 1)
If j = 0 And IsNumeric(y) Then j = i 'beginning of number
If j > 0 And Not IsNumeric(y) Then
k = i - 1
Exit For
End If
If j > 0 And i - j + 1 = 10 Then
k = i
Exit For
End If
Next
If k - j - 9 = 0 Then getNum = Mid(x, j, 10)
End Function
'************************************************* ***
It isn't pretty, but it is functional, and Free! This function will
return values like these
1231231234, 1234567890
from xx1231231234 or 1231231234xxx or aaa1234567890kkk
and will not return values like these
123123123 (only 9 digits)
or 1 231231234 (a space breaks the continuity)
or xxx12312312x3 (not 10 consecutive digits)
based on your specifications. You can place this function in a standard
code module (not a form code module) so that the query can access it.
Rich
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!
