Field Exists (2K)

[tomar]

I want to determine if a field exists in a table. Thus far I have figured out I need the following code:

Dim DB As DAO.Database
Dim TD As DAO.TableDef
Set DB = CurrentDb
Set TD = DB.TableDefs("tbl_parameter")

What I want to do is find out if the field 'Comments' exists in the tbl_parameter table. If it does I will then copy the contents to a new field in a new table.
Where do I go from here?

[HansV]

There are basically two ways to do this:

1) Loop through the fields:

Dim fld As DAO.Field
For Each fld In TD.Fields
If fld.Name = "Comments" Then
' Yes! Execute code here
...
Exit For
End If
Next fld

2) Try to refer to the field and check for errors

Dim fld As DAO.Field
On Error Resume Next
Set fld = TD.Fields("Comments")
On Error Goto 0
If Not fld Is Nothing Them
' Yes! Execute code here
...
End If

[tomar]

Thanks Hans,

I tried 2 first. It gives an error on the Set fld = td.fields("Comments"). It was a runtime error Object not found.

Option 1 works like a charm!

Thanks,
Tom

[HansV]

Strange - the line On Error Resume Next should suppress error messages. But if 1 works, never mind.

[dmartin]

Do you happen to have "Break on all errors" turned on (Tools Options General in VB)?

[tomar]

No Break on Unhandled Errors.

[tomar]

Hans,

I just read your response regarding On Error Resume. I realized that I missed entering that line in my code. SO, now I wish to say either method works fine. I am going to go with the second method. Sorry for the confusion, and thanks again.

Tom