Locked (vergrendeld), eigenschap

Van toepassing op

BoundObjectFrame-object

OptionButton-object

CheckBox-object

OptionGroup-object

ComboBox-object

SubForm-object

CustomControl-object

TextBox-object

ListBox-object

ToggleButton-object

ObjectFrame-object

De eigenschap Locked geeft aan of u gegevens in een besturingselement in de Formulierweergave kunt bewerken. Boolean lezen/schrijven.



expressie.Locked

expressie Required. Een expressie die een van de objecten in de lijst Van toepassing op retourneert.

Opmerkingen

De eigenschap Locked gebruikt de volgende instellingen.

Instelling

Visual Basic

Beschrijving

Ja

True

(Standaard voor niet-afhankelijk object frames) Het besturingselement functioneert normaal, maar staat bewerken, toevoegen of verwijderen van gegevens niet toe.

Nee

False

(Standaard voor alle besturingselementen behalve niet-afhankelijk object frames) Het besturingselement functioneert normaal en staat bewerken, toevoegen en verwijderen van gegevens toe.

U kunt deze eigenschappen instellen met een eigenschappenvenster van een formulier, een macro of VBA-code (Visual Basic for Applications).

Gebruik de eigenschap Locked om gegevens te beveiligen in een veld door het alleen-lezen te maken. U wilt bijvoorbeeld dat een besturingselement alleen informatie weergeeft zonder bewerken toe te staan of u wilt van een besturingselement vergrendelen tot aan een bepaalde voorwaarde wordt voldaan.

Voorbeeld

In het volgende voorbeeld wordt de eigenschap Enabled van een opdrachtknop en de eigenschappen Enabled en Locked van een besturingselement, afhankelijk van het type werknemer die in het huidige record wordt weergegeven in- of uitgeschakeld. Als de werknemer een manager is, is de knop SalaryDetails ingeschakeld en het besturingselement PersonalInfo ontgrendeld en ingeschakeld.

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
Uw vaardigheden uitbreiden
Training verkennen
Als eerste nieuwe functies krijgen
Deelnemen aan Office Insiders

Was deze informatie nuttig?

Bedankt voor uw feedback.

Hartelijk dank voor uw feedback! Het lijkt ons een goed idee om u in contact te brengen met een van onze Office-ondersteuningsagents.

×