TKSoft-Online

Sub EnableShift(blnFlag As Boolean)
'verhindert das Umgehen der Start-Einstellung mit Shift-Taste
 
    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
'*************  CODE ENDE *************
 
'Aufruf zum Verhindern der Shift-Taste:  EnableShift(False)
'Aufruf zum Ermöglichen der Shift-Taste:  EnableShift(True)