È possibile usare la proprietà AllowBypassKey per specificare se il tasto MAIUSC è abilitato per ignorare le proprietà di avvio e della macro AutoExec. Ad esempio, è possibile impostare la proprietà AllowBypassKey su False per impedire agli utenti di ignorare le proprietà di avvio e la macro AutoExec.
Impostazione
La proprietà AllowBypassKey usa le impostazioni seguenti.
|
Impostazione |
Descrizione |
|
True |
Attiva MAIUSC in modo da consentire all'utente di ignorare le proprietà di avvio e la macro AutoExec. |
|
False |
Disattiva MAIUSC in modo da impedire all'utente di ignorare le proprietà di avvio e la macro AutoExec. |
È possibile impostare questa proprietà usando una macro o il codice di Visual Basic, Applications Edition (VBA).
Per impostare la proprietà AllowBypassKey usando una macro o il codice di Visual Basic, Applications Edition (VBA), è necessario creare la proprietà nei modi seguenti:
-
In un database di Microsoft Access (con estensione mdb o accdb) è possibile aggiungere questa proprietà usando il metodo CreateProperty e quindi accodandola alla raccolta Properties dell'oggetto Database.
-
In un progetto di Microsoft Access (con estensione adp) è possibile aggiungerla alla raccolta AccessObjectProperties dell'oggetto CurrentProject tramite il metodo Add.
Osservazioni
Durante il debug di un'applicazione, occorre accertarsi che la proprietà AllowBypassKey sia impostata su True.
L'impostazione della proprietà AllowBypassKey viene applicata solo alla successiva apertura del database dell'applicazione.
Esempio
L'esempio seguente illustra una routine denominata SetBypassProperty che passa il nome della proprietà da impostare, il tipo di dati e l'impostazione. La routine di tipo generico ChangeProperty cerca di impostare la proprietà AllowBypassKey e quindi, se la proprietà non viene trovata, usa il metodo CreateProperty per accodarla alla raccolta Properties. Questo è necessario perché la proprietà AllowBypassKey non compare nella raccolta Properties finché non viene effettivamente aggiunta.
Sub SetBypassProperty()
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub
Function ChangeProperty(strPropName As String, _
varPropType As Variant, _
varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
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 Change_Bye
End If
End Function
