VBA Code im HF soll Aktion im UF auslösen

[lobdent11]

Hallo,

im HF habe ich ein Listenfeld. Als Ereignisprozedur ist hier unter anderen folgender Code in "Nach Aktualisierung" hinterlegt

Code [Auswählen] Erweitern


Dim C As Control

For Each C In Me.Controls
If Left(C.Name, 3) = "txt" Then C.Enabled = IsNull(Forms!frm_Mitglieder![Beiträge Unterformular]!Austritt)

Next


Im HF funktioniert der Code.

Doch leider in den Textfeldern des UF klappt es nicht. Hier gibt es keine Veränderung.

Was muss ich ändern, daß auch die Felder im UF ausgegraut werden?

lobdent11

[DF6GL]

Hallo,


ohne weiter auf die Situation einzugehen:


Dim C As Control

For Each C In Me.Controls
If Left(C.Name, 3) = "txt" Then C.Enabled = IsNull(Me![Beiträge Unterformular]!Austritt)
Next


For Each C In Me![Beiträge Unterformular].Controls
If Left(C.Name, 3) = "txt" Then C.Enabled = IsNull(Me![Beiträge Unterformular]!Austritt)
Next

[lobdent11]

Hallo DF6GL,

das mit

Code [Auswählen] Erweitern


For Each C In Me![Beiträge Unterformular]
If Left(C.Name, 3) = "txt" Then C.Enabled = IsNull(Me![Beiträge Unterformular]!Austritt)
Next


hatte ich auch schon probiert.

Es kommt dann Laufzeitfehler 438
Objekt unterstützt diese Eigenschaft oder Methode nicht
Die Zeile For Each C In Me![Beiträge Unterformular] wird beim debuggen markiert.

Vielleicht hast Du noch eine andere Lösung?

Danke

gruß lobdent11

[Stapi]

Guten Morgen lobdent11

Eventuell hift dir der Link und auch diese Seiten

http://www.donkarl.com?FAQ4.2

[daolix]

evtl. mal so:

For Each C In Me![Beiträge Unterformular].controls

Du must evtl den focus im UF verschieben wenn eines deiner C's diesen besitzt.

[DF6GL]

Hallo,

sorry, natürlich fehlt(e) die Controls-Auflistung... Habe das im meinem Beitrag korrigiert.

[lobdent11]

Hallo,

vielen Dank für die Hilfe, mit den Tips von DF6GL und daolix klappt es.

Danke

Gruß lobdent11