Office: (Office 2010) Unterformular (DataSheet) Hintergrundfarbe(aus Design) ändern

Hallo Zusammen,

es gibt ein Formular mit einem Intergriertem Unterformular als Datasheet.
Die Daten können erst bearbeitet werden wenn ein Button betätigt wird.
Dass das Bearbeiten aktiviert ist soll mittels ändern der Hintergrundfarbe dem Anwender angezeigt werden.

Da die gesamte Anwendung jedoch mit einem durch den Anwender apassbares Disign Formatiert ist können keine definierten Standardfarben verwendet werden.

Der Hintergrund des Hauptformular wird wie folgt geändert:
Code:

Das Unterformular wird dann zur Bearbeitung freigegeben:
Code:

Der Hintergrund des Unterformular kann so geändert werden:
Code:

Ich möchte jedoch nicht eine Standardfarbe verwenden!

Es gibt auch noch diese Möglichkeit, funktioniert jedoch nicht:
Code:

Gibt es eine Möglichkeit dem Unterformular(Datasheet) eine Farbe mit BackThemeColorIndex zuzuweisen oder kann die definierte Farbe ausgelesen werden und dann mittels DatasheetBackColor zugewiesen werden?

:)

 

Hallo Peter,

ich habe jetzt einige Zeit mit Deiner Fragestellung verbracht. Leider habe ich noch keine befriedigende Lösung gefunden. *frown.gif*

Füg mal bitte in Dein Formular einen Button ein und weise diesem den folgenden Code zu:
Code:

Als Ergebnis erhältst Du eine Liste aller Eigenschaften und deren Werte im Direktfenster ausgegeben. Dort findest Du auch eine Eigenschaft mit dem Namen "DatasheetBackThemeColorIndex". Diese scheint auf den ersten Blick zu beinhalten, was Du suchst.

Leider kann man auf diese Eigenschaft zur Laufzeit nicht wie gewohnt zugreifen:
Code:

Eine Fehlermeldung ist für beide Zeilen die Folge:
2465 Anwendungs- oder objektdefiniertere Fehler

Wenn man den "Umweg" über die Properties-Auflistung geht, dann geht es ohne Fehlermeldung:
Code:

Leider ändert sich mit dieser Zeile der Hintergrund noch nicht. Ich hoffe, Du hast jetzt ein paar neue Möglichkeiten und kannst uns am Ende sagen, welche Property Dich zum Ziel geführt hat.

CU

 

Hallo Thomas,

danke für die Hilfe, mit dem auslesen der Propertys bin ich weiter gekommen.

Folgende Eigenschaften sind für das Unterfomular(Datasheet) vorhanden:

Sind die "..ThemeColorIndex Farben" -1 dann ist es keine Farbe aus dem Design
Werte von 0-9 sind die Farben des Design's.

Folgende Aktionen können ohne Fehler ausgeführt werden:

Jedoch ändern sich die Farben nicht! Auch ein Refresh hilft nicht.

Nur folgende Aktion ändert die Farbe:

Somit habe ich folgende Lösung gefunden:
Code:

Falls noch jemand eine bessere Lösung findet, bitte gerne.