Open a pps file and stop execution until the show is closed

Question

0.00/5 (No votes)

See more:

Hi all,

I have an access(2007) application which generates and saves a ppt as slideshow(pps).
The tool opens the pps show for user review and has to wait until user completes viewing the show.
My problem here is how to make access(vba code) to wait until the show is closed?
Like I need to capture the closing event of the ppt show.

Thanks in advance

Regards,
Naresh S.

Posted 23-Nov-11 23:09pm

S.M.Naresh

Add a Solution

Comments

Maciej Los 24-Nov-11 10:56am

How you run this pps: by Shell(...) function or by OLE automation?

2 solutions

Solution 1

You need to use Timer object (in the MS Access form) ;) and GetObject() function and the API's function: FindWindow[^]

MS Access will be execute Form_Timer() procedure every time when the period of time has been passed.
Sorry, my english isn't pefect!

The idea is: open form in dialog mode and check every second if pps file is opened.

Read more at: http://office.microsoft.com/en-us/access-help/timer-function-HA001228923.aspx[^] and in the MS Access help.

How to do it?
1) create new form
2) insert Label (Label1) on the form
2) copy and paste the code below

VB

Option Compare Database
Option Explicit

Private Sub Form_Load()
    Me.TimerInterval = 1000
End Sub

'here is the procedure where you can check if pps is opened
Private Sub Form_Timer()
'in the example we are showing only actual time ;)
    Me.Label1.Caption = Now
    Me.Repaint
End Sub

Posted 24-Nov-11 8:28am

Maciej Los

Updated 24-Nov-11 8:34am

v2

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

S.M.Naresh · Accepted Answer · 2011-11-24T21:47:00

Set objppShowWindow = objPre.SlideShowSettings.Run.View
            On Error Resume Next
            Do Until objppShowWindow.State = ppSlideShowDone
                If Err.Number <> 0 Then
                    Exit Do
                Else
                    Sleep (1000) ''Wait for 1 second
                End If
            Loop

This solved my issue