Oprette backcolor i min rapport

Du kan bruge betinget formattering!~)

Et eksempel

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 ditfelt = true Then
Question.ForeColor = lngRed
end if

spg > Kan man bruge betinget formattering i en rapport?

mugs > ja..

Hvilken version bruger du?

Microsoft Office Access 2003 (11.6566.8132) SP2
Part of Microsoft Office Professional Edition 2003
(Jeg kan tilføje at det er fra en Developer Edition, "Visual Studio 2003")

'mugs' Jeg får fejl på koden  Question.forecolor= Ingred, har sat koden ind i 'on current'

/Jan

Koden er afprøvet og fungerer. Koden skal ind i rapporten, vil du have et eksempel:

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 ditfelt = true Then
Question.ForeColor = lngRed
end if

Du skal have en reference til DAO

'mugs' DAO er aktiveret, du må gerne sende et eksempel jan(at)schoesler.com

/Jan

Sendt

Er der ingen af jer, som har muligheden betinget formattering, når i højreklikker på et tekstfelt i rapporten?~)

Ha ha - Den kendte jeg sgu ikke :o)

'mugs' din database kan ikke åbnes, har omdåbt den til .mdb, jeg kører access 2000.

Jeg har ikke mulighed for betinget formattering :-(

/Jan

Du skriver "IngRed". Det skal være "LngRed". Kunne det være derfor, du får fejl?

'fdata' det var derfor :-( samtidig skal man lige huske at sætte 'back style' til normal og ikke transparant :-(

Tak for hjælpen

min kode om til at se sådan ud:

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim lngRed As Long, lngYellow As Long, lngBlack As Long, lngWhite As Long, lngGreen As Long

lngRed = rgb(255, 0, 0)
lngYellow = rgb(255, 255, 0)
lngBlack = rgb(0, 0, 0)
lngWhite = rgb(255, 255, 255)
lngGreen = rgb(0, 255, 0)

If Me.Open = True Then
Me.Punkt.BackColor = lngRed
Else
Me.Punkt.BackColor = lngGreen

End If

End Sub

kom

Tak for point :o)