Felder im UFO sperren

[Jonny]

Hallo
ich habe folgenden Code um in ein Unterformular Felder zu sperren:
        For Each ctl In Me.AuftragPalettenUFO.Controls
            If ctl.Tag = "d" Then
                ctl.Locked = True
            End If
        Next ctl
Haupformularname = AuftragFRM
Unterformularname = AuftragPalettenUFO
Felder mit Marke = d (kleingeschrieben) sollen gesperrt werden.
Laut Debugger wird der Befehl clt.locked = true durchlaufen.
Aber nichts wird gesperrt.
Ist hier ein Fehler drinn?
Wenn ja dann bitte helfen.
Wenn nein dann habe ich noch irgendwo eine Routine die entsperrt (habe aber keine gefunden)

Danke

Gruß

Johann

[Jonny]

Hallo,
hat sich erledigt.
Die Routine ist in Ordnung nur habe ich einmal vergessen die Marke zu setzten.
Und gerade mit dem Feld habe ich getestet.

Gruß

Johann