Cannot update controls on the first page of the report

[acidtechno]

Hi.

I've created a report based on a query. I have some text boxes in the report bound to the fields that are connected to the report.

I have also some unbound text boxes on the report and I want to update them manually using VBA. The problem is that everything works fine but not on the first page of the report. Text boxes are updated nicely on pages > 1.

I use OnPage event of the report to update textboxes and I do something like this:

Private Sub Report_Page()
    
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sSQL As String
    
    sSQL = "SELECT Points.Points, Points.CriterionID As CriterionID, Marks.Name AS MarkName " & _
           "FROM Results, Points, Marks " & _
           "WHERE Results.SessionID = " & txtID.Value & " AND Results.PointID = Points.ID AND Points.MarkID = Marks.ID"
    
    Set cn = CurrentProject.Connection
    
    Set rs = New ADODB.Recordset
    
    rs.Open sSQL, cn
    
    While Not rs.EOF
            
        If rs.Fields("CriterionID") = 1 Then
        
            Opening1.Value = rs.Fields("MarkName")
            
        ElseIf rs.Fields("CriterionID") = 2 Then
        
            Opening2.Value = rs.Fields("MarkName")
            
            (...)
                        
        End If
        
        rs.MoveNext
        
    Wend
    
    rs.Close
    cn.Close

End Sub

When I lanuch the report I dont see data on the first page, but when I switch to another pages it works fine. I dont know where the problem is. Please help.

 

[boblarson]

Use the format event of the particular section you want updated.

 

[acidtechno]

Awesome! Thank you very much!!

That was the fastest reply ever! Works fine now

 

[boblarson]

We aim to please