Gruppenfuss im Bericht formatieren

[VBA_Rookie]

Hallo liebe Forum Mitglieder,
ich habe folgenden Code geschrieben.

Dabei soll abhängig vom Wert des Testfeldes txtpointresult, das sich ebenfalls im Gruppenfuss befindet der Gruppenfuss
im Bericht rot hinterlegt werden. Es passiert aber nichts wenn ich den Bericht in der Berichtsansicht öffne.
Auch wenn ich einen Haltepunkt setze passiert nichts.
Was mache ich falsch. Wann wird dieser Code angesprochen und damit der Gruppenfuss formatiert.

Private Sub Gruppenfuss1_Format(Cancel As Integer, FormatCount As Integer)
If Me![txtpointresult] > 50 Then
Gruppenfuss1.BackColor = RGB(255, 0, 0)
End Sub

[DF6GL]

Hallo,

Private Sub Gruppenfuß1_Format(Cancel As Integer, FormatCount As Integer)
If Me![txtpointresult] > 50 Then   
Me.Gruppenfuß1.BackColor = RGB(255, 0, 0)
Else
Me.Gruppenfuß1.BackColor = vbWhite
End If
End Sub

[VBA_Rookie]

Danke für die Antwort. Aber es hat leider nicht geholfen.
Ich hatte auch Gruppenfuß0 in Gruppenfuss1 umbenannt unter Eigenschaften Register Andere und Feld Name.
Fällt dir noch etwas anderes ein woran das liegen könnte.

[DF6GL]

Hallo,

nun, Du darfst diese Namen nicht einfach so mal umbenennen...  Prüfe den Eintrag bei der Ereigniseigenschaft des Gruppenfußes, ob der "[Ereignisprozedur]" lautet. Ansonsten schreib den hinein (bzw. wähl es aus). Klick auf die 3 rechts stehenden Pünktchen, wähle ggfls. "Code" aus und schau, ob der Cursor am Code-Anfang der richtigen Prozedur steht...

[VBA_Rookie]

Hallo,

ich habe dir die Datenbank mal angehangen und alles getan was zu tun war. Irgendwie ohne Erfolg.
Magst du mal drüber schauen?



[Anhang gelöscht durch Administrator]

[DF6GL]

Hallo,

schreib in JEDES Modul  am Anfang
Option Explicit
hinein und kompiliere den Code.  Eliminiere den/die Fehler...


Im Berichtsentwurf stelle zudem "Alternative Hintergrundfarbe" auf "Keine Farbe" beim Gruppenfuß1 ein.

[VBA_Rookie]

Hallo,

ich habe alles nötige unternommen.
Den Code angepasst auf

Option Compare Database
Option Explicit

Private Sub Gruppenfuß1_Format(Cancel As Integer, FormatCount As Integer)

Select Case Me![txtpointresult]
Case Is <= 49
        Debug.Print "kleiner als 49"
        Me.Gruppenfuß1.BackColor = RGB(205, 0, 0)
Case 50 To 89
     Debug.Print "50 - 89"
     Me.Gruppenfuß1.BackColor = RGB(105, 105, 105)
Case Is >= 90
    Debug.Print "größer 89"
    Me.Gruppenfuß1.BackColor = RGB(0, 255, 0)
End Select

End Sub


Das komische ist wenn ich den Report in der Seitenansicht öffne werden der erste und der dritte Gruppenfuß farblich hinterlegt. Aber der Gruppenfuß 2 und 4 werden ausgelassen.
Irgendeine Idee. Datenbank findest du wieder anbei.



[Anhang gelöscht durch Administrator]

[DF6GL]

Hallo,

lies nochmal, was ich zur "Hintergrundfarbe" gesagt habe....

[VBA_Rookie]

Hallo Franz,

vielen lieben Dank. Es funktioniert.
Aber warum muss die Alternative Hintergrundfarbe auf keine Farbe gestellt werden?
Nur um es auch zu verstehen.

Viele Grüße

VBA_Rookie

[DF6GL]

Hallo,

naja, warum...  weil dann keine Alternativ-Farbe zum Tragen kommt.....