Hallo zusammen
Normalerweise arbeite ich mit der deutschen Version von Access 97. Da benutze ich nach dem Start des Programms die folgende Anweisung:
Application.SetOption "Eingebaute Symbolleisten verfügbar", False
um die Eingebauten Symbolleisten auszuschalten.
Nun sollte das Programm aber auch unter einer englischen Access Version laufen. Leider produziert diese Anweisung jedoch einen Fehler.
Kann mir jemand sagen, was zu tun ist?
Danke und Gruss
Martin
Hi Martin,
aus der Hilfe:
Das folgende Beispiel zeigt eine Prozedur mit dem Namen EinstellenStarteigenschaften, die den Namen der einzustellenden Eigenschaft, ihren Datentyp und die gewünschte Einstellung übergibt. Die allgemein verwendbare Prozedur ÄndernEigenschaft versucht, die Starteigenschaft einzustellen. Wird die Eigenschaft nicht gefunden, verwendet die Prozedur die Methode CreateProperty, um sie der Auflistung Properties des Objekts Database anzufügen. Dies ist notwendig, da diese Eigenschaften erst dann in der Auflistung Properties angezeigt werden, wenn sie mindestens einmal eingestellt oder geändert wurden.
Sub EinstellenStarteigenschaften()
ÄndernEigenschaft "StartupForm", dbText, "Kunden"
ÄndernEigenschaft "StartupShowDBWindow", dbBoolean, False
ÄndernEigenschaft "StartupShowStatusBar", dbBoolean, False
ÄndernEigenschaft "AllowBuiltinToolbars", dbBoolean, False
ÄndernEigenschaft "AllowFullMenus", dbBoolean, True
ÄndernEigenschaft "AllowBreakIntoCode", dbBoolean, False
ÄndernEigenschaft "AllowSpecialKeys", dbBoolean, True
ÄndernEigenschaft "AllowBypassKey", dbBoolean, True
End Sub
Function ÄndernEigenschaft(strEigenschaftenname As String, varEigenschaftentyp As Variant, varEigenschaftenwert As Variant) As Integer
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Ändern\_Fehler
dbs.Properties(strEigenschaftenname) = varEigenschaftenwert
ÄndernEigenschaft = True
Ändern\_Ende:
Exit Function
Ändern\_Fehler:
If Err = conPropNotFoundError Then ' Eigenschaft nicht gefunden.
Set prp = dbs.CreateProperty(strEigenschaftenname, \_
varEigenschaftentyp, varEigenschaftenwert)
dbs.Properties.Append prp
Resume Next
Else
' Unbekannter Fehler.
ÄndernEigenschaft = False
Resume Ändern\_Ende
End If
End Function
Gruß
J.