Problemstellung:
Für 32Bit und 64Bit Office Versionen
Wie kann ich DB-Properties schreiben?
Verweis auf die Microsoft DAO 3.X Object Library erforderlich
Public Function SetProp(strEigenschaftenname As String, varEigenschaftentyp As Variant, _ varEigenschaftenwert As Variant) As Integer '******************************************* 'Name: SetProp (Function) 'Purpose: Setzen von Datenbank Einstellungen 'Author: Thomas Keßler 'Date: Dezember 15, 2002, 11:04:37 'Inputs: strEigenschaftenname= Die Eigenschaft die gesetzt werden soll ' varEigenschaftentyp = Typ der Eigenschaft, ' varEigenschaftenwert = Wert der Eigenschaft 'Output: gibt True zurück wenn Eigenschaft eingestellt wurde, sonst False '******************************************* Dim db As DAO.Database Dim prp As Property Const conPropNotFoundError = 3270 Set db = CurrentDb On Error GoTo Aendern_Fehler db.Properties(strEigenschaftenname) = varEigenschaftenwert SetProp = True Aendern_Ende: Exit Function Aendern_Fehler: If Err = conPropNotFoundError Then ' Eigenschaft nicht gefunden. Set prp = db.CreateProperty(strEigenschaftenname, _ varEigenschaftentyp, varEigenschaftenwert) db.Properties.Append prp Resume Next Else ' Unbekannter Fehler. SetProp = False Resume Aendern_Ende End If End Function
Aufruf:
Call SetProp("AllowBypassKey", DB_BOOLEAN, False
Würde den Zustand der der Property "Shift-Taste zulassen" auf False setzen,
also die Shift-Taste wäre gesperrt.
Ähnliche Artikel
Weiterlesen...