Tweet
Hallo Forum
Habe einen Bericht, der einige Seiten lang sein kann. Jetzt will der User den Bericht über Steuerelemente in einer Symbolleiste durchblättern können. Leider kriege ich das nicht auf die reihe und bekomme immer fehlermaldungen beim Befehl docmd.gotopage 1 oder docmd.gotopage rep.pages-1, wobei rep eine Objektvariable ist und mit rep.pages auch die anzahl Seiten anzeigt.
Nur der befehl docmd.gotopage ist falsch. Wie kann ich einen Seitenwechsel mit VBA programmieren?
Mein vorhandener Code:
Public Function fktPage(intSel As Integer)
Dim rep As Object
Set rep = Screen.ActiveReport
Select Case intSel
Case 0 'Erste Seite
DoCmd.GoToPage 1
Case 1 'Vorherige Seite
If rep.Page > 1 Then DoCmd.GoToPage rep.Page - 1
Case 2 'Nächste Seite
If rep.Pages > 1 And rep.Page < rep.Pages Then
DoCmd.GoToPage rep.Page + 1
End If
Case 10 'Letzte Seite
DoCmd.GoToPage rep.Pages
End Select
End Function
Habe einen Bericht, der einige Seiten lang sein kann. Jetzt will der User den Bericht über Steuerelemente in einer Symbolleiste durchblättern können. Leider kriege ich das nicht auf die reihe und bekomme immer fehlermaldungen beim Befehl docmd.gotopage 1 oder docmd.gotopage rep.pages-1, wobei rep eine Objektvariable ist und mit rep.pages auch die anzahl Seiten anzeigt.
Nur der befehl docmd.gotopage ist falsch. Wie kann ich einen Seitenwechsel mit VBA programmieren?
Mein vorhandener Code:
Public Function fktPage(intSel As Integer)
Dim rep As Object
Set rep = Screen.ActiveReport
Select Case intSel
Case 0 'Erste Seite
DoCmd.GoToPage 1
Case 1 'Vorherige Seite
If rep.Page > 1 Then DoCmd.GoToPage rep.Page - 1
Case 2 'Nächste Seite
If rep.Pages > 1 And rep.Page < rep.Pages Then
DoCmd.GoToPage rep.Page + 1
End If
Case 10 'Letzte Seite
DoCmd.GoToPage rep.Pages
End Select
End Function