ACCESS 07 Shift beim Start Verhindern?

[CoregaTab]

Hallo Freunde,

ich verstehe das nicht mit dem Shift beim Start verhindern.

Ich habe die Datenbank geöffnet und habe Visual Basic geöffnet und ich soll da irgend wo folgendes eingeben.


Sub EnableShift(blnFlag As Boolean)

On Error GoTo Error_EnableShift

Dim db As DAO.Database
Dim prp As DAO.Property

Set db = CurrentDb
'Property mit übergebenem Parameter belegen
db.Properties!AllowBypassKey = blnFlag

Exit_EnableShift:
Set prp = Nothing
Exit Sub

Error_EnableShift:

'Property erzeugen, falls noch nicht vorhanden
If Err = 3270 Then
Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, blnFlag)
db.Properties.Append prp
Resume Next
Else
MsgBox "Ausnahme Nr. " & Str(Err.Number) & " " & Err.Description
Resume Exit_EnableShift
End If

End Sub


Leider funktioniert die Shift Taste immer noch.

Wo genau muss ich das in der Visual Basic eingeben und muss ich dann noch was einstellen das die Funktion auch beim Laden aufgerufen wird?

Danke