Strg Taste beim Start von Access deaktivieren

[Robert Brümmel]

hallo,

Ich möchte beim Start meiner Access Datenbank die Strg-Taste deaktivieren.

Kann mir wer helfen wie ich das machen könnte???

Vielen Dank vorab

mfg Robert

[Robert Brümmel]

Ich miente natürlich die Shift Tast

[O. Helper]

Hallo Robert,

falls Du damit die Funktion meinst, das beim Start und gedrückter Shift-Taste die Start-Einstellungen umgangen werden und das "Datenbank-Fenster" angezeigt wird: Das findest Du im Menü => Extra => Start ... Es ist dann das Häkchen unten links "Access-Spezialtasten verwenden".
Aber Vorsicht: Wenn Du es mit der Option speicherst, kannst Du die Shift-Taste auch nicht mehr nutzen (obwohl, man kann es auch von "aussen" ein/ausschalten).

Gruß, Ola

[Robert Brümmel]

So müsste es funktionieren

Option Compare Database
Option Explicit

Global Const AppKennwort = "123456"

Sub Datenbank_Sprerren()

ÄndernEigenschaft "StartupShowDBWindow", dbBoolean, False
ÄndernEigenschaft "StartupShowStatusBar", dbBoolean, True
ÄndernEigenschaft "AllowBuiltinToolbars", dbBoolean, False
ÄndernEigenschaft "AllowFullMenus", dbBoolean, False
ÄndernEigenschaft "AllowBreakIntoCode", dbBoolean, False
ÄndernEigenschaft "AllowSpecialKeys", dbBoolean, False
ÄndernEigenschaft "AllowBypassKey", dbBoolean, False

End Sub
Sub Datenbank_Entsprerren()

ÄndernEigenschaft "StartupShowDBWindow", dbBoolean, False
ÄndernEigenschaft "StartupShowStatusBar", dbBoolean, True
ÄndernEigenschaft "AllowBuiltinToolbars", dbBoolean, True
ÄndernEigenschaft "AllowFullMenus", dbBoolean, True
ÄndernEigenschaft "AllowBreakIntoCode", dbBoolean, True
ÄndernEigenschaft "AllowSpecialKeys", dbBoolean, True
ÄndernEigenschaft "AllowBypassKey", dbBoolean, True

End Sub

Function ÄndernEigenschaft(strEigenschaftenname As String, varEigenschaftentyp As Variant, varEigenschaftenwert As Variant) As Integer
On Error GoTo Err_ÄndernEigenschaft

Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
dbs.Properties(strEigenschaftenname) = varEigenschaftenwert
ÄndernEigenschaft = True

Exit_ÄndernEigenschaft:
Exit Function

Err_ÄndernEigenschaft:
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 Exit_ÄndernEigenschaft
End If

End Functio