Gilt für:
|
BoundObjectFrame-Objekt |
OptionButton-Objekt |
|
CheckBox-Objekt |
OptionGroup-Objekt |
|
ComboBox-Objekt |
SubForm-Objekt |
|
CustomControl-Objekt |
TextBox-Objekt |
|
ListBox-Objekt |
ToggleButton-Objekt |
|
ObjectFrame-Objekt |
Die Locked-Eigenschaft gibt an, ob Sie in der Formularansicht Daten in einem Steuerelement bearbeiten können. Boolescher Wert mit Lese-/Schreibzugriff.
Ausdruck.Locked
Ausdruck Erforderlich. Ein Ausdruck, der eines der Objekte in der Liste "Gilt für" zurückgibt.
Hinweise
Die Locked-Eigenschaft verwendet die folgenden Einstellungen.
|
Einstellung |
Visual Basic |
Beschreibung |
|
Ja |
True |
(Standardeinstellung für ungebundene Objektfelder) Das Steuerelement funktioniert normal, lässt jedoch das Bearbeiten, Hinzufügen oder Löschen von Daten nicht zu. |
|
No |
False |
(Standardeinstellung für alle Steuerelemente, mit Ausnahme ungebundener Objektfelder) Das Steuerelement funktioniert normal und erlaubt das Bearbeiten, Hinzufügen oder Löschen von Daten. |
Sie können diese Eigenschaft mit dem Eigenschaftenblatt eines Formulars, einem Makro oder mit VBA-Code (Visual Basic for Applications) festlegen.
Verwenden Sie die Locked-Eigenschaft zum Schutz von Daten in einem Feld, indem Sie dieses mit Schreibschutz versehen. Sie möchten beispielsweise, dass ein Steuerelement nur Informationen anzeigt, ohne dass ein Bearbeiten möglich ist, oder Sie möchten vielleicht ein Steuerelement sperren, bis eine bestimmte Bedingung erfüllt ist.
Beispiel
Im folgenden Beispiel werden in Abhängigkeit von dem im aktuellen Datensatz angezeigten Mitarbeiter die Enabled-Eigenschaft einer Befehlsschaltfläche und die Enabled- und Locked-Eigenschaft eines Steuerelements umgeschaltet. Wenn der Mitarbeiter ein Manager ist, wird die Schaltfläche "SalaryDetails" aktiviert, und das Steuerelement "PersonalInfo" wird entsperrt und aktiviert.
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
