How to specify one table definition in DAO?

[twgonder]

I modified this bit of code found below from another procedure (from another thread):

  Dim tdf As DAO.TableDef
  Dim fld As DAO.Field
  For Each tdf In CurrentDb.TableDefs
       For Each fld In tdf.Fields...
          blah, blah
       Next
  Next

However, in what I'm working on now, I don't want to read all the table definitions.
How can I specify the name of just one table definition to use?

Thanks

[Micron]

If tdf.Name = "theNameOfTheTable Then ...

You may not want to 'read' all the defs but you're going to loop over them all. Didn't the code you copied deal with not looping over system tables?

[twgonder]

If tdf.Name = "theNameOfTheTable Then ...

You may not want to 'read' all the defs but you're going to loop over them all. Didn't the code you copied deal with not looping over system tables?

Yes it did, and I presently have what you did in the code, I was just wondering if there is a more direct way, since it's in a routine that gets called over and over again from a higher level.

[Micron]

I'm afraid to ask why it is done over and over. If that's because you're not retaining the returned value, then pass the name to a variable that has the proper scope?
If it's because you'll need a different name each time then I don't see how you can avoid it.

[Welshgasman]

I modified this bit of code found below from another procedure (from another thread):

  Dim tdf As DAO.TableDef
  Dim fld As DAO.Field
  For Each tdf In CurrentDb.TableDefs
       For Each fld In tdf.Fields...
          blah, blah
       Next
  Next

However, in what I'm working on now, I don't want to read all the table definitions.
How can I specify the name of just one table definition to use?

Thanks

Use the table name perhaps?

[moke123]

If you just want one table then something like this

    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Dim db As DAO.Database


    Set db = CurrentDb
    Set tdf = db.TableDefs("tblProducts")


    For Each fld In tdf.Fields
        Debug.Print fld.Name
    Next