TableDefs ' Sub 0r Function not defined

[Middlemarch]

I picked this idea up on line

If TableDefs("Tracks").fieldDefs(This(0).Name).Name > "" Then

The idea being to see if field this(0).name exists in table Tracks.
I've seen examples where you look through every field name for a match but if the above can work it seems more efficient?
The example didn't show how TableDefs was defined.
Is it possible? Thanks.

[CJ_London]

You should pay attention to the IntelliSense - it’s fields, not fielddefs.

and perhaps you need currentdb.tabledefs

[Middlemarch]

Not quite getting anywhere with that. Should this work

Dim MyField As DAO.Field
For Each MyField In CurrentDb.TableDefs("Tracks").Fields
Debug.Print MyField.Name
Next
because I'm getting error 'Object invalid or no longer set.

[moke123]

You could use error handling to do it.

Function FieldExists(vTable As String, vField As String) As Boolean
    Dim x As String

    On Error GoTo FieldExists_Error
    
    x = CurrentDb.TableDefs(vTable).Fields(vField).Name

    FieldExists = True

    On Error GoTo 0
    Exit Function

FieldExists_Error:

    If Err.Number = 3265 Then
        FieldExists = False
        Exit Function

    End If

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure FieldExists, line " & Erl & "."

End Function

[Middlemarch]

Thanks I have that all working nicely. But the next step has caught me
? this!Dat
But Dat is a variable folding the field name. I was sure
? this.Controls(Dat).Value would work... but no. Controls isn't jn IntelliSense, and ! doesn't work either,

[CJ_London]

what is 'this'? name of your form? i

and what is Dat? name of your control?

[Vita]

Thanks I have that all working nicely. But the next step has caught me
? this!Dat
But Dat is a variable folding the field name. I was sure
? this.Controls(Dat).Value would work... but no. Controls isn't jn IntelliSense, and ! doesn't work either,

try this

this.Fields(Dat) 'This(Dat) might also work

[Micron]

I'll call out what I see as the problem here
For Each MyField In CurrentDb.TableDefs("Tracks").Fields

because otherwise you're doomed to repeat since you don't seem to grasp what you're saying. That's like saying for each Field IN myTable.Fields
The fields in myTable don't have fields in them.