Blox.Svbasi Svbasi personal blogs

List all tables and fields in access

Tools -> References ->
Add: ActiveX Data Objects Recordset 2.8 Library, Microsoft DAO 3.6 Object Library, OLE DB Service Component 1.0
Create Table: tblTables_Fieldnames
Fields: TableName, FieldName
Add Module Below and Run

Sub getFieldNames()
Dim db As DAO.Database, rs As DAO.Recordset, rs1 As DAO.Recordset
Dim tdf As DAO.TableDef, fld As DAO.Field
Set db = CurrentDb()
Set rs1 = db.OpenRecordset("tblTables_Fieldnames")
Set rs = db.OpenRecordset("select [name] from MsysObjects where Type=1")
rs.MoveFirst
Do Until rs.EOF

For Each fld In db.TableDefs(rs(0)).Fields
rs1.AddNew
rs1("Tablename") = rs(0)
rs1("FieldName") = fld.Name
rs1.Update
Next
rs.MoveNext
Loop
rs.Close
rs1.Close

End Sub

or,

Open the database, go to Tools | Analyze and select Documenter

Stationery – File Folder Labels Excel Template / Dosya Sırtlığı excel şablonu

Dar Klasorler icin Excel hucre genişlikleri,

Yükseklik / Height: 84,75 (113pixel)

Genişlik / Width: 93,57 (660 Pixel)

Yükseklik = x 40

Genişlik = x 45