con vba aprire report e andare all'ultima pagina

[mario rossi]

buongiorno a tutti, mi spiego meglio, ho un report che ogni volta devo aprire manualmente e andare all'ultima pagina perchè su formattazione del corpo eseguo un codice che mi crea l'indice del report mi chiedevo se fosse possibile automatizzare

1. apertura report a icona o nascosto
2. andare all'ultima pagina in modo da generare l'indice

il codice che eseguo attualmente è:
su formattazione

*** CODE ***

Private Sub IntestazioneGruppo0_Format(Cancel As Integer, FormatCount As Integer)
salvaindice Nz(Me.nomecat, ""), Me.Page, Nz(Me.cating, ""), Me.OrdineWL, ""
end sub


Public Sub salvaindice(Categoria As String, pagina As Long, DESCRIZIONE As String, Ordine As String, Lingua As String)
Dim DB As Database
Dim rs As Recordset
Dim i As Integer

Set DB = CurrentDb
Set rs = DB.OpenRecordset("select * from indice" & Lingua)
rs.AddNew
rs!Categoria = Categoria
rs!DESCRIZIONE = DESCRIZIONE
rs!Ordine = Ordine
rs!Page = pagina
rs.Update
rs.Close
Set DB = Nothing
End Sub


** CODE ***

qualche idea?

[mario rossi]

ho risolto mettendo una casella di testo nascosta con il valore
=[pagine]
in questo modo il report viene subito creato completo di tutte le pagine per poter valorizzare quel campo