I have 4 different reports that I would like to diplay using
projector. Each report has 2-3 pages within the report. Could I have
once it is open, it will dynamically flip pages on a timer?
I wanted to diplay the report and automatically to change from page 1
to page 2 and etc.

How do I do that? Can I do it as macro? How?

Please help

Thank you

majic

I'm not aware of a "Timer" event for reports, but that may be available in
the latest version of Access.

A possible "brute force" method would be to export the reports' pages to
Word documents, then incorporate one page per "slide" in a PowerPoint file.

Good luck!

Regards

Jeff Boyce
Microsoft Office/Access MVP

"Majic" <(E-Mail Removed)> wrote in message
news:8af628cf-804f-4cc9-86b1-(E-Mail Removed)...
>I have 4 different reports that I would like to diplay using
> projector. Each report has 2-3 pages within the report. Could I have
> once it is open, it will dynamically flip pages on a timer?
> I wanted to diplay the report and automatically to change from page 1
> to page 2 and etc.
>
> How do I do that? Can I do it as macro? How?
>
> Please help
>
> Thank you
>
> majic

On Feb 8, 7:27 am, Majic <fazamoin...@aol.com> wrote:
> I have 4 different reports that I would like to diplay using
> projector. Each report has 2-3 pages within the report. Could I have
> once it is open, it will dynamically flip pages on a timer?
> I wanted to diplay the report and automatically to change from page 1
> to page 2 and etc.
>
> How do I do that? Can I do it as macro? How?
>
> Please help
>
> Thank you
>
> majic

Hi

I would go with the power point as well.

however there is timer capability in VBA the follwing is a
splash screen that displays for a few seconds then opens a main screen

I suspect that it would be pretty messy.

Private Sub Form_Load()
'TimerInterval = 0

If CheckLinks() = False Then
' Try to relink the tables; if it fails, shut down Developer
Solutions.
If RelinkTables() = False Then
DoCmd.Close acForm, "BlockList"
CloseCurrentDatabase
End If
End If
TimerInterval = 1000

End Sub



Private Sub Form_Timer()
Dim stDocName As String
Dim stLinkCriteria As String
DoCmd.Close
stDocName = "BlockList"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub