Aktivierung Felder Haupt-/Unterformular

Computer: Software & Programmierung Microsoft Access
#1

Hallo,
in einem Formular mit Unterformularen habe ich einige Felder sowie Unterformulare gesperrt und mit Marke/Tag versehen.
Die Felder werden über eine Schaltfläche mit folgendem Code aktiviert/entsperrt:
Dim ctl As Control
For Each ctl in Me.Controls
if ctl.Tag =„X“ Then
ctl.Locked=False
End If
Next ctl

Folgendes Problem: Nach Click sind die Felder im Hauptformular entsperrt, die Felder in den Unterformularen weiterhin gesperrt. Nach erneutem Click ist auch das Unterformular entsperrt. d.h. der Sprung zwischen Haupt- und Unterformular und umgekehrt funktioniert nicht.
Wie schaffe ich es, auch die Felder aus den Unterformularen mit einzubeziehen?
Danke für eure Unterstützung.
Gruß Harald

#2

Hallo,
in einem Formular mit Unterformularen habe ich einige Felder
sowie Unterformulare gesperrt und mit Marke/Tag versehen.
Die Felder werden über eine Schaltfläche mit folgendem Code
aktiviert/entsperrt:
Dim ctl As Control
For Each ctl in Me.Controls
if ctl.Tag =„X“ Then
ctl.Locked=False
End If
Next ctl

Folgendes Problem: Nach Click sind die Felder im Hauptformular
entsperrt, die Felder in den Unterformularen weiterhin
gesperrt. Nach erneutem Click ist auch das Unterformular
entsperrt. d.h. der Sprung zwischen Haupt- und Unterformular
und umgekehrt funktioniert nicht.
Wie schaffe ich es, auch die Felder aus den Unterformularen
mit einzubeziehen?

Hallo Harald,

  1. Lösung: simuliere den 2. Tastendruck, in dem Du die Prozedur halt 2x ausführst.

Dim ctl As Control
For Each ctl in Me.Controls
if ctl.Tag =„X“ Then
ctl.Locked=False
End If
Next ctl
For Each ctl in Me.Controls
if ctl.Tag =„X“ Then
ctl.Locked=False
End If
Next ctl

  1. Lösung: richtiger wäre allerdings, das Du die Funktion nicht nur auf ME = aktuelles Formular, sondern auch auf die Controls des Unterformulares anwendest.

Dim ctl As Control
For Each ctl in Me.Controls
if ctl.Tag =„X“ Then
ctl.Locked=False
End If
Next ctl

For Each ctl in Me.Unterformular.Controls
if ctl.Tag =„X“ Then
ctl.Locked=False
End If
Next ctl

Gruß Wolfgang