JPaulo
Developer
- Local time
- Today, 04:54
- Joined
- Dec 21, 2009
- Messages
- 185
Hi all;
I want to open a report on the last page, but this code does not work, why?
Access 2003
Private Sub Command10_Click()
Dim I As Integer
On Error Resume Next
DoCmd.OpenReport "Report1", acViewPreview
I = Reports!Report1.Pages
SendKeys "{F5}{Delete}"
SendKeys I & "{ENTER}"
End Sub
I want to open a report on the last page, but this code does not work, why?
Access 2003
Private Sub Command10_Click()
Dim I As Integer
On Error Resume Next
DoCmd.OpenReport "Report1", acViewPreview
I = Reports!Report1.Pages
SendKeys "{F5}{Delete}"
SendKeys I & "{ENTER}"
End Sub