Gesperrtes Eigentum
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 Daten in einem Steuerelement in der Formularansicht bearbeiten können. Boolean lesen/schreiben.
Ausdruck . Gesperrt
Ausdruck Erforderlich. Ein Ausdruck, der eines der Objekte in der Liste Gilt für zurückgibt.
Bemerkungen
Die Locked- Eigenschaft verwendet die folgenden Einstellungen.
Einstellung | Visual Basic | Beschreibung |
Ja | WAHR | (Standard für ungebundene Objektrahmen) Das Steuerelement funktioniert normal, erlaubt jedoch keine Bearbeitung, Hinzufügung oder Löschung von Daten. |
Nein | FALSCH | (Standard für alle Steuerelemente außer ungebundenen Objektrahmen) Das Steuerelement funktioniert normal und ermöglicht das Bearbeiten, Hinzufügen und Löschen von Daten. |
Sie können diese Eigenschaften festlegen, indem Sie das Eigenschaftenblatt eines Formulars, ein Makro oder VBA-Code (Visual Basic for Applications) verwenden.
Verwenden Sie die Locked -Eigenschaft, um Daten in einem Feld zu schützen, indem Sie es schreibgeschützt machen. Beispielsweise möchten Sie möglicherweise, dass ein Steuerelement nur Informationen anzeigt, ohne eine Bearbeitung zuzulassen, oder Sie möchten ein Steuerelement sperren, bis eine bestimmte Bedingung erfüllt ist.
Beispiel
Das folgende Beispiel schaltet die Enabled -Eigenschaft einer Befehlsschaltfläche und die Enabled- und Locked -Eigenschaften eines Steuerelements um, je nach dem im aktuellen Datensatz angezeigten Mitarbeitertyp. Wenn der Mitarbeiter ein Manager ist, ist die Schaltfläche SalaryDetails aktiviert und das PersonalInfo-Steuerelement ist 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
No comments:
Post a Comment