Ændre farve på hver anden detaljelinie i formular

Måske kan du bruge flg. felt1 er et numerisk felt.

Private Sub Detaljesektion_Print(Cancel As Integer, PrintCount As Integer)
Dim lngRed As Long, lngYellow As Long, lngBlack As Long, lngWhite As Long
lngRed = RGB(255, 0, 0)
lngYellow = RGB(255, 255, 0)
lngBlack = RGB(0, 0, 0)
lngWhite = RGB(255, 255, 255)
If felt1 Mod 2 = 0 Then
felt1.ForeColor = lngRed
felt1.BackColor = lngWhite
Else
felt1.ForeColor = lngBlack
felt1.BackColor = lngWhite

End If
End Sub

Det er stort set sådan jeg gør det i rapporten, men kan OnPrint hændelsen også bruges i en formular, som det jo handler om ?

Nok er din overskrift i sdpørgsmålet en formular. Men i selve spørgsmålet omtaler du en rapport. Denne skifter baggrundsfarve i en rapport:

Private Sub Detaljesektion_Print(Cancel As Integer, PrintCount As Integer)
Dim lngRed As Long, lngYellow As Long, lngBlack As Long, lngWhite As Long
lngRed = RGB(255, 0, 0)
lngYellow = RGB(255, 255, 0)
lngBlack = RGB(0, 0, 0)
lngWhite = RGB(255, 255, 255)
If felt1 Mod 2 = 0 Then
Me.Detaljesektion.BackColor = lngRed
Else
Me.Detaljesektion.BackColor = lngWhite
End If

Jeg omtaler at jeg kan få det til at fungere i en rapport, men slutter af med " Er der nogen der har en ide til hvordan det laves i en formular ?"

Hvis det er en fortløbende formular, vil baggrundsfarven altid være afhængig af den aktuelle post.

Det vil sige det kan ikke lade sig gøre ? Kan det så lade sig gøre at ændre baggrundsfarven på den aktuelle ?

Du kan benytte den samme kode, men farven vil skifte ved alle poster hvis du arbejder i en fortløbende formular.

Har du evt. set på funktionen Betinget Formattering. Den giver nogle afgrænsede muligheder

Det var også det resultat jeg nåede frem til, da jeg prøvede - sikke noget lo..

http://www.eksperten.dk/spm/450054

Perfect - thanks Terry

selv tak :o)