Abilita e disabilita la funzionalità di apertura tramite CTRL + Maiuscolo + Invio
Sub Abilita()
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, True
MsgBox ("tasto shift abilitato")
End Sub
Sub Disabilita()
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, False
MsgBox ("tasto shift disabilitato")
End Sub
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Object
Dim prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Uscita:
Exit Function
Err:
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
'Unknown error
ChangeProperty = False
Resume Uscita
End If
End Function