Documention help

[redconvertible]

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

 

[giacomo]

You can possibly use tableDef/queryDef to get the data you need. Example:

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]

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

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