Érvényesség
|
BoundObjectFrame objektum |
OptionButton objektum |
|
CheckBox objektum |
OptionGroup objektum |
|
ComboBox objektum |
SubForm objektum |
|
CustomControl objektum |
TextBox objektum |
|
ListBox objektum |
ToggleButton objektum |
|
ObjectFrame objektum |
A Locked (Zárolt) tulajdonság megadja, hogy lehet-e adatokat szerkeszteni egy vezérlőben az Űrlap nézetben. Írható-olvasható logikai változó.
kifejezés.Locked
kifejezés Kötelező megadni. Olyan kifejezés, amely az Érvényesség listában található objektumok valamelyikét adja vissza.
Megjegyzések
A Locked tulajdonság az alábbi beállításokat használja.
|
Beállítás |
Visual Basic |
Leírás |
|
Igen |
True |
(A kötetlen objektumkeretek alapértéke) A vezérlő normál módon működik, de nem teszi lehetővé az adatok szerkesztését, felvételét vagy törlését. |
|
Nem |
False |
(A kötetlen objektumkeretek kivételével az összes vezérlőelem alapértéke) A vezérlő normál módon működik, és lehetővé teszi az adatok szerkesztését, felvételét vagy törlését. |
Ezeket a tulajdonságokat az űrlapok tulajdonságlapján, egy makróval vagy egy Visual Basic for Applications formátumú (VBA-) kóddal lehet beállítani.
A Locked tulajdonság használatával biztosíthatja egy mező adatait úgy, hogy írásvédetté teszi őket. Előfordulhat például, hogy azt szeretné, hogy egy vezérlőelem csak megjelenítsen adatokat a szerkesztés engedélyezése nélkül, illetve lehetséges, hogy egy adott feltétel teljesüléséig szeretne zárolni egy vezérlőelemet.
Példa
Az alábbi példa átváltja egy parancsgomb Enabled tulajdonságát és egy vezérlőelem Enabled és Locked tulajdonságát, az aktuális rekordban megjelenített alkalmazott típusától függően. Ha az alkalmazott egy vezető, a SalaryDetails gomb engedélyezve van, és a PersonalInfo vezérlőelem fel van oldva és engedélyezett.
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
