Alle velden vergrendelen(locked) in 1 keer

[Dirkenheidi]

In een form van acces Kan ik het veld vergrendelen : Me.Klant.Locked = Treu

Maar als je 40 velden wil locken in 1 keer hoe doe je dit?

 

[TomP]

Met behulp van een next-loop kun je door alle controls heen lopen. Zie onderstaande code.
Staan er ook andere controls in dan alleen velden? niet elk formobject kent de locked-eigenschap en kan in dat geval tot een error leiden.
In dat geval moet je zorgen dat in je loop wordt vastgesteld of het een object betreft waarvan jij wilt dat die wordt gelocked....

For Each x In Me.Controls
x.Locked = True
Next x

Gr. Tom

 

[Dirkenheidi]

Bedankt Tom

 

[Dirkenheidi]

Tom , dit heeft een fout

Fout 438 tijdens uitvoering
De ze eigenschap of methode wordt niet ondersteund door dit object
en staat in het geel het bij het volgend :

x.Locked = False