Newbie to Access - Extract field name from ALL tables?

[im2bz2p345]

Hi all,

I am a total newbie to Access, so please go easy on me and explain things step by step.

See my screenshot below. What I'm trying to do is extract the field names (i.e. HospProvId, EPI_no, etc) from ALL the tables in my database at once. You can see my table field names on the left and I have about 50 tables total.

What I'm trying to do is find a specific field and I want to be able to search all the field names/columns where data actually populates.

Does anyone know if this is possible? If so, can someone walk me through the steps? I know very little in Access.

Thanks all,

~ Im2bz2p345

 

[ranman256]

in a MODULE, paste this code, then type Ctl-G
put cursor in the sub, click PLAY button (run sub button)
all tables and fields will write to "C:\folder\tables.txt".
change it if you wish.

Public Sub PrintAllFieldsInAllTbls()
Dim fld  As Field
Dim tdf As TableDef
Dim vFILE


vFILE = "C:\folder\tables.txt"


Open vFILE For Output As #1
For Each tdf In CurrentDb.TableDefs
    With tdf
        Print #1, "table: " & tdf.Name
        Print #1, "-------------"
       For Each fld In .Fields
            Debug.Print fld.Name, TypeName(fld.Type)
       Next
    End With
Next
Close 1


Set tdf = Nothing
Set fld = Nothing
End Sub

 

[im2bz2p345]

Thanks ranman256.

Your solution provided me with all the table names in a text file (which I didn't need), but when I hit Ctrl+G to open up the Immediate window and ran your code, it listed all the field names down below in the Immediate window (which is really what I was after).

I just copied them from the Immediate window on the bottom of the Access and put them into a text file. Then I opened up Excel and imported the data from the text file.

I now have all the field names! Thank you so much for all of your help.

~ Im2bz2p345