Conditional report format in vba

[skyatis]

I'm trying to create a report where each line has conditional formatting dependant on the contents of a field.



The standard Access conditional formatting system works OK but I want more control; borders, row height etc.

I can't seem to get this working in vba. Here's the code I used for a table with fields named 'Species' and 'AnimalType':

Private Sub Report_Load()
If Me.AnimalType = "Fish" Then
    Me.Species.BorderWidth = 5
    Me.Species.BorderColor = RGB(0, 255, 255)
ElseIf Me.AnimalType = "Mammal" Then
    Me.Species.BorderWidth = 2
    Me.Species.BackStyle = 0
    Me.Species.FontSize = 12
    Me.Species.ForeColor = RGB(255, 0, 0)
End If
End Sub

Every line is formatted as a Mammal. How can I get each line formatted differently according to the AnimalType field?

[aytee111]

The event is incorrect, try doing that code on the Detail OnFormat.

[skyatis]

I tried that but the code doesn't execute at all in Detail_Format.

So I tried putting the same code in all the Detail events. It executes in Detail_Paint, but produces the same result; all lines in the report are formatted the same way.

[Bulzie]

It should work in the OnFormat Event on the Detail section of the report. Make sure you have it in the right place. I did a test and it worked. Make sure your fields are in that Detail section. Also when you run the report, select the Print Preview, not the Report View selection.

[skyatis]

Ah. Thank you. It works fine; I just hadn't understood the difference between Report View and Print Preview.