Number of Culomns

[coughnut]

I am importing an Excel spread sheet to a table in Acess. I am then searching every single row and column of that created table in VBA. What I would like to know is, is there a way to find out how many culomns, fields, a table has in VBA. I will be importing spreadsheets that would vary in the number of columns it has. For that same reason I would like to know how many columns the table has,becasue I get an error: "Item cannot be found in the collection corresponding to the request or ordinal"

This happens in my design when I reached the last column in the table and I try to read a column that doesn't exit.
Here is the line that I am using that gets that error:
strHolder = rsTemp.Fields(indx)

Does any one have any ideas... Thank you very much.

 

[snyperx3]

If you're using DAO recordsets and database references...

How about:

Dim fld as DAO.Field
Dim fldCount as Integer

fldCount = 0
For Each fld In rsTemp.Fields
     fldCount = fldCount+1
Next fld

There probably is a better way to do this, but this is what I KNOW how to do.

-Pete

 

[Remou]

As in:
[tt]For i = 0 To rs.Fields.Count - 1
Debug.Print rs.Fields(i)
Next[/tt]

 

[Remou]

Sorry snyperx3, forgot to refresh.

 

[snyperx3]

np. Yours is much cleaner/shorter.



-Pete

 

[coughnut]

Thank you very much...

 

[Ed2020]

Or alternatively:

CurrentDB.TableDefs("TableName").Fields.Count

Ed Metcalfe.

Please do not feed the trolls.....