Si applica a
|
Oggetto BoundObjectFrame |
Oggetto OptionButton |
|
Oggetto CheckBox |
Oggetto OptionGroup |
|
Oggetto ComboBox |
Oggetto SubForm |
|
Oggetto CustomControl |
Oggetto TextBox |
|
Oggetto ListBox |
Oggetto ToggleButton |
|
Oggetto ObjectFrame |
La proprietà Locked specifica se è possibile modificare i dati in un controllo in visualizzazione Maschera. Oggetto Boolean di lettura/scrittura.
espressione.Locked
espressione Obbligatorio. Espressione che restituisce uno degli oggetti inclusi nell'elenco Si applica a.
Osservazioni
La proprietà Locked usa le impostazioni seguenti.
|
Impostazione |
Visual Basic |
Descrizione |
|
Sì |
True |
(Impostazione predefinita per cornici oggetto non associate) Il controllo funziona normalmente, ma non consente la modifica, l'aggiunta o l'eliminazione dei dati. |
|
No |
False |
(Impostazione predefinita per tutti i controlli tranne le cornici oggetto non associate) Il controllo funziona normalmente e consente la modifica, l'aggiunta e l'eliminazione dei dati. |
È possibile impostare queste proprietà usando la finestra delle proprietà della maschera, una macro o il codice di Visual Basic, Applications Edition (VBA).
Usare la proprietà Locked per proteggere i dati in un campo rendendoli di sola lettura. Ad esempio, si vuole impostare un controllo in modo che visualizzi solo le informazioni senza consentirne la modifica oppure si vuole bloccare un controllo finché non viene soddisfatta una condizione specifica.
Esempio
L'esempio seguente attiva e disattiva la proprietà Enabled di un pulsante di comando e le proprietà Enabled e Locked di un controllo, a seconda del tipo di dipendente visualizzato nel record corrente. Se il dipendente è un manager, il pulsante SalaryDetails è abilitato e il controllo PersonalInfo è sbloccato e abilitato.
Sub Form_Current()
If Me!EmployeeType = "Manager" Then
Me!SalaryDetails.Enabled = True
Me!PersonalInfo.Enabled = True
Me!PersonalInfo.Locked = False
Else
Me!SalaryDetails.Enabled = False
Me!PersonalInfo.Enabled = False
Me!PersonalInfo.Locked = True
End If
End Sub
