Opstarten met toets ingedrukt

Hallo,

Kun je in Access bij het opsatren van een database uitlezen of een gebruiker een bepaalde toets ingedrukt houdt? Dus als je bijvoorbeeld tijdens het opstarten van de database de ALT-toets ingedrukt houdt dan wil ik dat graag kunnen bepalen om vervolgens daarmee bepaalde acties uit te voeren of juist niet.

Dit heeft direct verband met mijn eerdere vraag over de bypasskey.

Ik ben benieuwd!!? Bedankt vast voor je reactie!

Misschien heb je hier iets aan.
Deze funkties schakelen de shift-toets uit of in.
Misschien kun je hem ombuigen naar de alt-toets.

Public Function DisableShift()
Call ChangeProperty("AllowBypassKey", dbBoolean, False)
MsgBox "De Shift-knop is nu uitgezet. De volgende keer kan niet meer met de Shift-knop " & _
"gestart worden.", vbInformation, TITEL
End Function

Public Function EnableShift()
Call ChangeProperty("AllowBypassKey", dbBoolean, True)
MsgBox "De Shift-knop is nu weer aangezet. De volgende keer kan weer met de Shift-knop " & _
"gestart worden.", vbInformation, TITEL
End Function

Function ChangeProperty(strPropName As String, _
varPropType As Variant, _
varPropValue As Variant) As Integer

Const conPropNotFoundError = 3270

Dim prp As Property
Dim dbs As Database

On Error GoTo Err_ChangeProperty

Set dbs = CurrentDb
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Exit_ChangeProperty:
Exit Function

Err_ChangeProperty:
If Err = conPropNotFoundError Then
' Property not found.
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Exit_ChangeProperty
End If

End Function