Moin, ich möchte die Hintergrund eines Formulars ändern (des Detailbereichs), das gelingt mir auch...
Doch habe ich auf diesem Formular einen Button eingefügt (Einstellungen) und dan öffnet sich eine neue Form mit dem Button Hintergrundfarbe ändern, doch nun wird die Hintergrundfarbe der aktive "Einstellungs"Form geändert und nicht die, vom Detailbereich (ursprünglich)
Wie kann ich das dort zuweisen lassen?
hier mein bisheriger Code, mit dem es nicht funzt :(--:
ZitatPrivate Sub HintergrundFarbe_holen_Click()
On Error GoTo Err_HintergrundFarbe_holen_Click
Dim rgb As Long
Dim je As Form_JournalEintrag
rgb = Me![Text10].BackColor
wlib_AccChooseColor Me.Hwnd, rgb
Me![Farbe] = rgb
'Me![Farbe_tmp].ForeColor = rgb
Me![Text10].BackColor = rgb
je![Detailbereich].BackColor = rgb
Exit_HintergrundFarbe_holen_Click:
Exit Sub
Err_HintergrundFarbe_holen_Click:
MsgBox Err.Description
Resume Exit_HintergrundFarbe_holen_Click
End Sub
Servus,
mach aus
Me.Detailbereich.BackColor = rgb
einfach
Form_(Name deines Hauptformulars).Detailbereich.BackColor = rgb
Dann sollte es gehen...
Gruß aus Berlin
Pat
ich geb dan statt:
je![Detailbereich].BackColor = rgb
das ein:
Einstellungen_(JournalEintrag).Detailbereich.BackColor = rgb
doch dann sagt er mir, das die Variable von Journaleintrag nicht definiert wurde ?!
(Einstellungen heisst die kleine Form in der die Einstellung zur Farbe gemacht wird und Journaleintrag ist das Hauptformular, wo auch der Detailbereich drauf ist und wo die Farbe schlussendlich geändert werden muss)
;) ;) ;)
dann muss es heißen:
Form_Journaleintrag.Detailbereich.BackColor = rgb (den Teil mit "Form_" am Anfang nicht verändern...
P.
Oha, hat geklappt :)
Danke für die Hilfe :D
Hmm wenn ich schon da bin, könntest du mir sagen, wie die Farbe beibehalten bleibt? Also Datenbank closen und dan aufmachen und da ist die Farbe leider weg und man muss sie neu einstellen, gibts ne Möglichhkeit sie irgendwie zu "merken", "speichern", damit sie beim Neustart immer noch da ist?
Das ist dann ein klein wenig aufwendiger...
Vereinfacht: Dazu brauchst Du eine Tabelle, in welcher Du den Farbwert abspeichern kannst. Wenn Du den Farbwert dann änderst, ersetzt der neue Wert (z.B. mittels Aktualisierungsabfrage) den alten Wert.
Zusätzlich musst Du Deinem Startformular dann noch (z.B. im "Beim Öffnen"-Ereignis) per Code mitteilen, dass es sich den Farbwert für den Detailbereich aus dieser Tabelle zu holen hat.
Versuch Dich einfach mal dran...
Hmm, ich habe jetzt eine Tabelle, mit den Codes und die werden (bei Änderung auch aktualisiert) - nun hab ich versucht ein Makro zu erstellen mit dem Autoexec namen, doch welche Einstellungen muss ich vornehmen? Öffnenabfrage?
ich möchte einfach den Zahlencode der in der Tabelle unter Hintergrund ist aufrufen...