What is the code to see if a field exists?

[emumaster]

What is the VBA Code to check and see if a field exists in a table??

 

[Oppenhiemer]

Try this..


Dim db As DATABASE
Dim x
Dim Fname, TableOfInterest
Dim tdfNew As TableDef
Dim tdfLoop As TableDef

Set db = CurrentDb()

Fname = "name"
TableOfInterest = "CustomersX"

For Each tdfLoop In db.TableDefs
If tdfLoop.NAME = TableOfInterest Then
For x = 0 To tdfLoop.Fields.Count - 1
If tdfLoop.Fields(x).NAME = Fname Then
MsgBox "Found Field of interest"
'Can do whatever you want here
End If
Next x
End If

Next tdfLoop


Btw - I would post these sorts of questions in this group : forum181 will get a better response.

Opp.

 

[emumaster]

The above code produced an error at the :

For Each td in d.TableDefs

Run-Time error 91
Object variable or With lock variable not set

 

[CVigil]

* NOTE: All of the following assumes you copied the earlier example code verbatim.

You just lost a "b" in "db". (The other day, I lost a whole assignment statement; for fifteen minutes, I couldn't figure out why my control's value stopped updating.)

For Each td in d.TableDefs

should be

For Each td in db.TableDefs

You did not have any object called "d" so VBA flagged the reference to *a variable that had not been set* when you tried to reference the Tabledefs property of d (

d.Tabledefs

doesn't exist, but

db.TableDefs

does).

Have a good one!
-- C Vigil =)
(Before becoming a member, I also signed on several posts as
"JustPassingThru" and "QuickieBoy" -- as in "Giving Quick Answers&quot

 

[emumaster]

Actually I just mistyped in the reply message.
I have it correctly type in my code and it doesn't work.

 

[Oppenhiemer]

I would check your implementation of my earlier code then - as I can cut and paste it onto a form - and it works!