Form Hintergrundfarbe ändern

[eMaNu3L]

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 --:

Private 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

[Kiui]

Servus,

mach aus

Me.Detailbereich.BackColor = rgb

einfach

Form_(Name deines Hauptformulars).Detailbereich.BackColor = rgb

Dann sollte es gehen...

Gruß aus Berlin
Pat

[Emanuel]

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)

[Kiui]

 

dann muss es heißen:

Form_Journaleintrag.Detailbereich.BackColor = rgb (den Teil mit "Form_" am Anfang nicht verändern...

P.

[eMaNu3L]

Oha, hat geklappt

Danke für die Hilfe

[Emanuel]

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?

[Kiui]

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...

[emanuel]

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...