Checking the type of data in an array

[Guest]

I have an array returned by an external ActiveX component. Some of the data
is numeric, some isn't. I would like to take all the numeric values and put
them into a table.

I thought this would be easy, simply assign them and let ON ERROR skip over
those that don't work. For some reason this does not work, the ON ERROR is
ignored and the type mismatch causes a drop into the debugger. Sigh.

Ok, what do I do?

 

[Brendan Reynolds]

Public Sub TestArray()

Dim varArray As Variant
Dim varItem As Variant

varArray = Array(1, "two", 3, "four", 5, "six")
For Each varItem In varArray
If IsNumeric(varItem) Then

'put your oode to insert into table here
Debug.Print varItem

End If
Next varItem

End Sub

 

[Brendan Reynolds]

"Brendan Reynolds" <brenreyn at indigo dot ie> wrote in message

'put your oode to insert into table here

<snip>

.... or code, even!

 

[Arvin Meyer]

Try using the IsNumeric() function which returns true if the entire
expression is numeric:

If IsNumeric([YourData]) Then
"Do something
Else
'Do something else
End If

--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access