title image


Smiley Re: Dokumentation von Access-Anwendungen
Es gibt Programme, die das leisten (z.B. Total Access Analyzer von FMS - kostet aber 300 $ ...), ansonsten muss man sich das wohl zusammenstoppeln.



Für einiges kann man den eingebauten Datenbankdokumentierer nehmen, für anderes eignet sich ein Screenshot-Programm besser (ich nehme dafür SnagIt, das lässt sich auch automatisieren), eine Liste der Tabellen und Feldnamen kann man z.B. hiermit nach Word herübergeigen:



Public Function AllTableDefsToWord(Optional DocName As String = "C:\temp\db.doc", _

Optional WithSystemTables As Boolean = False)

Dim DB As DAO.Database, Tbl As DAO.TableDef, Fld As DAO.Field, I As Long, Tmp As String

Dim oWord As New Word.Application, oDoc As Word.Document, oTbl As Word.Table

With oWord

.Visible = True

.Activate

Set oDoc = .Documents.Add

Set DB = CurrentDb

For Each Tbl In DB.TableDefs



If UCase(Mid(Tbl.Name, 2, 3)) "SYS" Or WithSystemTables Then

With .Selection

.Font.Name = "Arial": .Font.Size = 14

.Font.Bold = True

.TypeParagraph

.TypeText "Tabelle " & Tbl.Name

.TypeParagraph

.MoveDown Unit:=wdLine, Count:=1

.Font.Bold = False

End With

Set oTbl = oDoc.Tables.Add(Range:=.Selection.Range, NumRows:=1, NumColumns:=4, _

DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed)

With .Selection

.TypeText Text:="Feldname": .MoveRight Unit:=wdCell

.TypeText Text:="Datentyp": .MoveRight Unit:=wdCell

.TypeText Text:="Größe": .MoveRight Unit:=wdCell

.TypeText Text:="Beschreibung": .MoveRight Unit:=wdCell

For Each Fld In Tbl.Fields

.TypeText Text:=Fld.Name: .MoveRight Unit:=wdCell

.TypeText Text:=FieldTypeToString(Fld.Type): .MoveRight Unit:=wdCell

.TypeText Text:=Fld.Size: .MoveRight Unit:=wdCell

On Error Resume Next

Tmp = ""

Tmp = Fld.Properties("Description")

On Error GoTo 0

.TypeText Text:=Tmp: .MoveRight Unit:=wdCell

Next Fld

oTbl.Rows(oTbl.Rows.Count).Delete

For I = 1 To oTbl.Rows.Count

With oTbl.Rows(I).Range.Font

.Bold = I = 1

.Size = IIf(I = 1, 11, 10)

.Name = "Arial"

End With

Next I

.MoveDown Unit:=wdLine, Count:=1

End With

End If

Next Tbl

.ActiveDocument.SaveAs FileName:=DocName

End With

End Function





"FieldtypeToString" siehe im DBWiki.


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: