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 Vereist. 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
