Private Sub Report_Open(Cancel As Integer)

'intitialize page_break_name variable
ReDim pgbrname(0) As Variant 'would be better to use Dim pgbrname() but can't with this design
'initialize page_break_top variable - tracks the top property
ReDim pgbrtop(0) As Variant
'also could use multidimension array
Dim p As Integer
p = 0
Dim r As Report
Set r = Me
For i = 0 To r.Count - 1
    If r(i).ControlType = acPageBreak Or r(i).ControlType = acTextBox Then
        If p > 0 Then
        ReDim Preserve pgbrname(p)
        ReDim Preserve pgbrtop(p)
        End If
        pgbrname(p) = r(i).Name
        pgbrtop(p) = r(i).Top
        p = p + 1
    End If
Next

'this bubble sorts 'em. taken and modified from:
'http://www.vbaexpress.com/kb/getarticle.php?kb_id=103
Dim First           As Integer
Dim Last            As Integer
Dim j               As Integer
Dim Temp            As Integer 'string
Dim List            As String
Dim strTemp         As String
First = LBound(pgbrtop)
Last = UBound(pgbrtop)
For i = First To Last
    For j = i + 1 To Last
        If pgbrtop(i) > pgbrtop(j) Then
            Temp = pgbrtop(j)
            pgbrtop(j) = pgbrtop(i)
            pgbrtop(i) = Temp
            strTemp = pgbrname(j)
            pgbrname(j) = pgbrname(i)
            pgbrname(i) = strTemp
        End If
    Next j
Next i

'this picks out the controls you want to track - in this case 3 textboxes.
'a counter increments each time it sees a pagebreak control.
'if a tracked textobject is found, the controlsource of the table of contents (TOC)
'textbox tracking it is updated.
Dim c As Integer
c = 1
For i = 0 To UBound(pgbrtop)
    If r(pgbrname(i)).ControlType = acPageBreak Then
        'List = List & vbCrLf & pgbrtop(i) & ":" & pgbrname(i) 'used only for double checking data
        c = c + 1
    Else
        If pgbrname(i) = "txtTrack1" Then
            r("txtTOC1").ControlSource = "=" & c
        'List = List & vbCrLf & pgbrtop(i) & ":" & pgbrname(i) 'used only for double checking data
        End If
        If pgbrname(i) = "txtTrack2" Then
            r("txtTOC2").ControlSource = "=" & c
        'List = List & vbCrLf & pgbrtop(i) & ":" & pgbrname(i) 'used only for double checking data
        End If
        If pgbrname(i) = "txtTrack3" Then
            r("txtTOC3").ControlSource = "=" & c
            'List = List & vbCrLf & pgbrtop(i) & ":" & pgbrname(i) 'used only for double checking data
        End If
    End If
Next
'MsgBox List 'used only for double checking data
End Sub