怎样编写翻页代码

求‘子窗体报表’用滚轮或按钮实现翻页功能的代码，网上找了很久也没有，请高手帮忙。点击下载此附件

Private Sub 上一页_Click()
    DoCmd.SelectObject acReport, "销售明细"
    SendKeys "{PGUP}"
End Sub

Private Sub 下一页_Click()
    DoCmd.SelectObject acReport, "销售明细"
    SendKeys "{PGDN}"
End Sub

是我能找到的一部分代码，感觉应该有所借鉴。