PDA

Vollständige Version anzeigen : Eigenschaft locked für alle Felder auf true


Re
25.10.2000, 08:52
Hallo,

ich habe ein ähnliches Problem wie Michael (siehe Beitrag Nullen schlarb).

Ich möchte für alle Felder die Eigenschaft locked auf true (oder false) setzen.

Nicht für Felder im Formularkopf.

Gibt es eine allgemeine Fkt dafür?

Danke

Renate

Manuela Kulpa
25.10.2000, 09:14
Versuch das:

' eine Controlvariable
Dim ctr As Control

' Schleife über alle Controls im Detailbereich
For Each ctr In Me.Detailbereich.Controls
' Typ bestimmen, da Labels, Linien usw. nicht gesperrt werden können
Select Case ctr.ControlType
Case Is = acTextBox, acComboBox, acListBox, acCheckBox, acOptionButton, acOptionGroup
ctr.Locked = True
End Select
' Gehe zum nächsten Control
Next ctr

LLAP