Werte aus ungebunden HF in Ufo verwenden

[jagger]

Guten Tag,

in einem HF (frm_Kalender) gibt es 21 Textfelder (txtBCK1 bis txtBCK7), die ich beim Anzeigen mit "DLookup" befülle. Es werden die entsprechenden Werte angezeigt.

Wenn ich mich im Ufo mit "Forms!frm_Kalender!txtBCK1" oder "Forms!frm_Kalender!txtBCK1.BackColor" auf einen dieser Werte beziehe, passiert Nix.

Wenn ich mit

Code [Auswählen] Erweitern

Dim BC As String
BC = Forms!frm_Kalender!txtBCK1
MsgBox BC
teste, ob was angezeigt wird, bekomme ich eine Fehlermeldung "unzulässige Verwendung von Null" und im Debugger kann ich feststellen, dass die entsprechenden Werte entweder "" oder Null sind.

Auch wenn ich im HF "Me!txtBCK1 = 7596727" direkt befülle, klappt es nicht.

Auch habe ich schon sämtliche Ereignisse durch, es will mir nicht gelingen.

Wo liegt der Fehler?

Natürlich könnte ich auch die TextFelder im Ufo mit "DLookup" befüllen, aber es sind 7 Ufos x 21 Feldern.
Ich habe mal gelesen, dass man es mit "DLookup" nicht übertreiben sollte. Deshalb will ich die entsprechenden Werte ein Mal in die Textfelder im HF laden und mich dann darauf beziehen.

Bei den Werten geht es um unter anderem um die Werte für .BackColor und .FontColor von den Textfeldern (spaltenweise) im UFO. In den Ufos sind EndlosFormulare eingebettet.

Vielleicht hat ja jemand eine Idee oder einen anderen Ansatz.
Vielen Dank!

LG
jagger

[jagger]

Guten Morgen,

ich habe jetzt die Standardwerte
der Textfelder im HF mit =DomWert("FeldName";"Tabelle";"Bedingung") gefüllt.
Jetzt kann ich im Ufo die Werte verwenden.
Beim Anzeigen:

Code [Auswählen] Erweitern

Me!txtK1.BackColor = Forms!frm_Kalender!txtBCK1

LG
jagger