|
| *******************
Anm. Karl Donaubauer: Ich habe den Beitrag vom Benutzungs- in das Access-Forum verschoben, wo er thematisch passt und eher gefunden wird.
*******************
Hallo Zusammen
Ich bin neu hier und bin aus "Verzweiflungsgründen" auf diese Seite gestossen, da "DonKarl" schon im Vorfeld einen guten Tip abgegen hat.
Ich versuche schon DREI TAGE LANG eine Lösung auf Code-Basis zu finden, da die Farbgebung im Hintergrund sein soll und dadurch der
Feldwert zum teil bei kräftigen Farben kaum lesbar ist.
Ich habe versucht, bei der Lösung von "DonKarl" andere - hellere- Farben zu vergeben versteh aber das ganz wahrscheinlich zu wenig, was da abläuft.
Ich habe unten einen Code mit zwei Varianten angehängt, die a) gar nicht funktionieren, b) bei der 4. Bedingung ein Fehler auftritt.
a) -------------------------------------------------------------------------------------------------
Private Sub Form_Open(Cancel As Integer)
'-- Variable deklarieren --------------------------------------------------------------------------
Dim lng_sort1 As Long
Dim lng_sort2 As Long
Dim lng_sort3 As Long
Dim lng_sort4 As Long
Dim lng_sort5 As Long
Dim lng_sort6 As Long
Dim v_sort As Integer
'- start to work ----------------------------------------------------------------------------------
'-- Farben festlegen
lng_sort1 = RGB(84, 255, 159)
lng_sort2 = RGB(255, 255, 224)
lng_sort3 = RGB(0, 255, 255)
lng_sort4 = RGB(255, 165, 79)
lng_sort5 = RGB(255, 246, 143)
lng_sort6 = RGB(211, 211, 211)
v_sort = [Customer category Sort]
Select Case v_sort
Case 1
ArtikelKundeText.BackColor = lng_sort1
Case 2
ArtikelKundeText.BackColor = lng_sort2
Case 3
ArtikelKundeText.BackColor = lng_sort3
Case 4
ArtikelKundeText.BackColor = lng_sort4
Case 5
ArtikelKundeText.BackColor = lng_sort5
End Select
-----------------------------------
b)
With Me.Controls("ArtikelKundeText").FormatConditions _
.Add(acExpression, , "[Customer Category Sort] = 5")
.BackColor = lng_sort5
End With
With Me.Controls("ArtikelKundeText").FormatConditions _
.Add(acExpression, , "[Customer Category Sort] = 6")
.BackColor = lng_sort6
End With
End Sub
Vielleicht sind einpaar zusätliche GURU`s im Forum. Ich bin für jede Info sehr dankbar.
eventuell Info an "Clondike@gmx.com" - mein Mail, schicken
schöne Grüße aus dem Ländle
Roland | |
|
Endlosformular bedingte Formatierung