PDA

Vollständige Version anzeigen : AllowByPasskey: funktioniert einfach nicht!


Gast
05.04.2004, 08:11
Liebes Forum,

ich habe nun mit drei verschiedenen Codes, die ich über das Internet gefunden habe, versucht, die "AllowBypassKey"-Eigenschaft einzustellen (ich möchte Sie auf "false" setzen). Alle drei Codes laufen ohne Fehlermeldung, produzieren jedoch auch nicht den gewünschten Effekt. Wenn ich die Shift-Taste beim Starten der Datenbank gedrückt halte, kann ich nach wir vor die Autoexec-Routinen umgehen. Ich habe es auch mal mit der Eigenschaft "StartupShowDBWindow" versucht, das klappt genauso wenig!!!

Ich verwende Access 2000, ADO. Ich habe auch mal DAO dazugeschaltet, hat aber auch nicht geholfen... Den Code habe ich in eine Startprozedur meiner Datenbank eingebunden.

Kann mir jemand helfen?

Hier unten mal der Beispielcode von Microsoft, der ebenfalls keinen Effekt hat!
__________________________________

Public Sub SetMDBAppTitle() 'von Microsoft!!!!!!!!!
Dim dbs As Object
Dim prp As Object
Dim strTitle As String

'Const PROPERTY_NOT_FOUND As Integer = 3270
Const PROPERTY_NOT_FOUND As Integer = 2455
Const TEXT_TYPE As Integer = 10
' Equivalent to DAO dbText data type.
Const BOOL_TYPE As Integer = 1
' Equivalent to DAO dbBoolean data type.
Const LONG_TYPE As Integer = 4
' Equivalent to DAO dbLong data type.

On Error GoTo ErrorHandler

Set dbs = Application.CurrentDb

' Try to set the property. If it fails, the property does not exist.
dbs.Properties("AllowBypassKey") = False
dbs.Properties("StartupShowDBWindow") = False

ExitLine:
dbs.Close
Set dbs = Nothing
Set prp = Nothing
Exit Sub

ErrorHandler:
If Err.Number = PROPERTY_NOT_FOUND Then
' Create the new property.
Set prp = dbs.CreateProperty("AllowBypassKey", False)
Set prp = dbs.CreateProperty("StartupShowDBWindow", False)
dbs.Properties.Append prp
Resume Next
Else
Resume ExitLine
End If

End Sub

TommyK
05.04.2004, 08:31
Hallo,

lade Dir mal das Bsp von mir runter und probiere es mal damit, ob es geht.
Auslesen und Setzen von DB-Properties in externen DB's (http://access-beispiele.tommyk-webbox.de/bsp_sys.htm#sys_prp)