title image


Smiley TIPP: Datenbank-Eigenchaften lesen und schreiben
Lesen:



Public Function ShowAllDBProperties()

Dim Tmp, Prp As Property, DB As Database, Doc As DAO.Document, Cont As DAO.Container

Set DB = CurrentDb()

Set Cont = DB.Containers("Databases")

For Each Doc In Cont.Documents

For Each Prp In Doc.Properties

On Error Resume Next

Tmp = ""

Tmp = Prp.Value

Debug.Print Doc.Name, Prp.Name, Tmp

On Error GoTo 0

Next Prp

Next Doc

End Function





Was das Schreiben angeht - wie man Properties halt setzt (siehe Hilfe: Properties-Auflistung, Add-Methode...)


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: