title image


Smiley Re: Erstellen Tabellendokumentation
Hallo!Nachfolgender Code gibt alle Eigenschaften eines Tabeellenfeldes aus. ACHTUNG: Beziehungen werden nicht ausgegeben!!!GrüßeEricPublic Function TableStructure()On Error Resume Next Dim dbs As DAO.Database, tdf As DAO.TableDef Dim fld As DAO.Field, pro As DAO.Property Set dbs = CurrentDb DoCmd.Hourglass True Open "D:\KD\Terminplaner\DB.txt" For Output As #1 For Each tdf In dbs.TableDefs If Left(tdf.Name, 1) = "t" Then' Print #1, vbCrLf Print #1, tdf.Name & vbCrLf & String(Len(tdf.Name), "=") For Each fld In tdf.Fields Print #1, vbCrLf Print #1, " " & fld.Name For Each pro In fld.Properties Print #1, " " & pro.Name & ":" & String(20 - Len(pro.Name), " ") & pro.Value Next pro Next fld End If Next tdf Close #1 dbs.Close Set dbs = Nothing DoCmd.Hourglass FalseEnd Function

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: