Conditional formating on a Report

[FNA access]

I have a request to highlight any entries in a report that have the same date. The report is sorted by date so the records would be one after the other. I cannot find any events for the report that I would be able to add any code to.

Any input or advice would be appreciated

I would like to figure the code myself as I find I learn better that way, I just can't find an event to put the code into.

My report is based on a saved query, ordered by date

Thanks in advance

[JConsulting]

I have a request to highlight any entries in a report that have the same date. The report is sorted by date so the records would be one after the other. I cannot find any events for the report that I would be able to add any code to.

Any input or advice would be appreciated

I would like to figure the code myself as I find I learn better that way, I just can't find an event to put the code into.

My report is based on a saved query, ordered by date

Thanks in advance

That would be the On_Format event for that report section.
J

[FNA access]

Thanks for pointing me in the right direction. I have played with some code and I got it to work. I am wondering if there is a more efficient way than how I coded it. This gives me the results I want, but it does have to run through the record set several times. As always thank you for the help.

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim db As DAO.Database, rst As DAO.Recordset, sSQL As String, DateVar As String
Dim count As Integer, DateStart As Date, DateEnd As Date, Tanker As String
 
Set db = CurrentDb()
count = 0
DateStart = [Forms]![ReportPage]![DateStartTextbox]
DateEnd = [Forms]![ReportPage]![DateEndTextbox]
Tanker = [Forms]![ReportPage]![DataEntryCombobox]
 
DateVar = Me!AlertDate
 
sSQL = "SELECT Alert.AlertDate, AlertBase.TankerBase, AlertBase.FCPC, AlertBase.Status, " & _
    "AlertBase.BirddogID, CombinedValuesAirTanker.AirtankerID, AlertBase.Type, " & _
    "AlertBase.Green, AlertBase.Blue, AlertBase.Yellow, AlertBase.Red, AlertBase.AlertEnd " & _
    "FROM ((Alert INNER JOIN AlertBase ON Alert.AlertID = AlertBase.AlertID) LEFT JOIN " & _
    "AlertBaseTanker ON AlertBase.AlertBaseID = AlertBaseTanker.AlertBaseID) INNER JOIN " & _
    "CombinedValuesAirTanker ON AlertBase.AlertBaseID = CombinedValuesAirTanker.AlertBaseID " & _
    "WHERE (((Alert.AlertDate) Between #" & DateStart & "# And #" & _
    DateEnd & "# ) AND ((AlertBaseTanker.AirTankerID)= '" & _
    Tanker & "' )) ORDER BY Alert.AlertDate;"
 
Set rst = db.OpenRecordset(sSQL, dbOpenSnapshot)
 
rst.MoveFirst
 
Do Until rst.EOF = True or count = 2
If DateVar = rst!AlertDate Then
    count = count + 1
End If
    rst.MoveNext
Loop
 
If count > 1 Then
    Me.Section(acDetail).BackColor = 65535
Else
    Me.Section(acDetail).BackColor = 16777215
End If 
 
End Sub