Problemstellung:
Auslesen und Setzen von DB-Properties in externen MDB's.
Voraussetzungen:
Das Bsp ab A97 lauffähig.
Folgende Properties werden ausgelesen bzw. zurück geschrieben:
Datenbankfenster anzeigen
Statuszeile ausblenden
Eingebaute Symbolleisten zulassen
Standard-Kontextmenüs zulassen
Unbeschränkte Menüs anzeigen
Codeansicht bei Fehlern zulassen
Symbolleisten- und Menüänderungen zulassen
Access-Spezialtasten verwenden
SHIFT-Taste zulassen
Die Sub "GetProp" liest die Standard-Properties der angegebenen DB aus und schreibt diese in die
Ausgabefelder des Forms.
Public Sub GetProp(strDBPfad As String, strProp As String, OutField As Control)
strDBPfad = Pfad und Name des DB
strProp = Name der Property
OutField = Name des Controls in der die Ausgabe erfolgen soll
z.B. Auslesen der Property "Datenbankfenster anzeigen" aus der DB "C:\Test\Test.mdb" und in der Checkbox ausgeben:
GetProp "C:\Test\Test.mdb", "StartupShowDBWindow", Me!chk_DBWindow
Die Funktion "SetProp" schreibt die Property , dann wieder zurück in die gewählte DB.
Um ein Ergebnis zu erhalten gibt die Funktion noch einen Wert zurück,
True wenn Property erfolgreich geschrieben wurde sonst False.
Syntax und Argumente:
Public Function SetProp(strDBPfad As String, strProp As String, varEigenschaftentyp As Variant, _ varEigenschaftenwert As Variant) As Boolean
strDBPfad = Pfad und Name des DB
strProp = Name der Property
varEigenschaftentyp = ist hier in diesem Bsp ist der Typ immer "DB_BOOLEAN"
varEigenschaftenwert = der Wert der Eigenschaft
z.B. Schreiben der Property "Datenbankfenster anzeigen":
SetProp "C:\Test\Test.mdb", "StartupShowDBWindow", DB_BOOLEAN, True
Auslesen und Setzen von DB-Properties in externen DB's
Die Zip-Datei enthält ein Version für A97 und eine ab A00
Ähnliche Artikel