Documention help

redconvertible

New Member
Joined
Aug 11, 2005
Messages
10
I know enough about Access to be dangerous to the real gurus. I have built several database programs but documenting is always a challenge.

I am trying to document my database. Documenter is great with details, but I cannot get the data in a format that is useful. Are there any secrets to making documenter format like a database rather than a word document (Excel format was even worse). I would like to have a table format with the headings for the: table/query name, source, linked file name, field names, etc. etc. Something I can then sort and filter on rather than search through 300 plus pages in Word. the format from documenter chops the file path up on linked sheets making it difficult to parse.

Any suggestions on making documenting easier? I am using Access 2002.

Cheers
JP in Houston, TX
 

Excel Facts

Shade all formula cells
To shade all formula cells: Home, Find & Select, Formulas to select all formulas. Then apply a light fill color.

giacomo

Well-known Member
Joined
Feb 20, 2002
Messages
1,796
You can possibly use tableDef/queryDef to get the data you need. Example:
Code:
Sub xx()
Dim x As Integer
     For x = 0 To CurrentDb.TableDefs("someTable").Fields.Count - 1
          MsgBox CurrentDb.TableDefs("someTable").Fields(x).Name & ":" & CurrentDb.TableDefs("someTable").Fields(x).Type & ":" & CurrentDb.TableDefs("someTable").Fields(x).Size
     Next x
End Sub

hth,
Giacomo
 

SydneyGeek

MrExcel MVP
Joined
Aug 5, 2003
Messages
12,251
This is a routine that I use to document my queries.

It writes to a table, tblQueries, with 3 fields:
QueryID Autonumber
QueryName Text(255)
QuerySQL Memo

Code:
Sub DocumentQueries()
    Dim dbs As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim rst As DAO.Recordset
    Dim tdf As DAO.TableDef
    Dim sSQL As String
    
    sSQL = "DELETE * FROM tblQueries;"
    DoCmd.SetWarnings False
    DoCmd.RunSQL sSQL
    DoCmd.SetWarnings True
    
    Set dbs = CurrentDb()
    Set tdf = dbs.TableDefs("tblQueries")
    Set rst = tdf.OpenRecordset
    
    For Each qdf In dbs.QueryDefs
        rst.AddNew
        rst!QueryName = qdf.Name
        rst!QuerySQL = qdf.SQL
        rst.Update
    Next qdf
    
    'cleanup
    rst.Close
    Set rst = Nothing
    Set tdf = Nothing
    Set qdf = Nothing
    Set dbs = Nothing
End Sub
Denis
 

Forum statistics

Threads
1,141,842
Messages
5,708,916
Members
421,598
Latest member
NewHere

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top