Hallo,
im HF habe ich ein Listenfeld. Als Ereignisprozedur ist hier unter anderen folgender Code in "Nach Aktualisierung" hinterlegt
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
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
Hallo DF6GL,
das mit
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
Guten Morgen lobdent11
Eventuell hift dir der Link und auch diese Seiten
http://www.donkarl.com?FAQ4.2
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.
Hallo,
sorry, natürlich fehlt(e) die Controls-Auflistung... Habe das im meinem Beitrag korrigiert.
Hallo,
vielen Dank für die Hilfe, mit den Tips von DF6GL und daolix klappt es.
Danke
Gruß lobdent11