Access window - once minimized, won't maximize

[Colleyville Alan]

I have an app that uses Access to grab various PowerPoint slides using the
followhyperlink command. I have set the PPT window to run in a minimized
state:

FollowHyperlink link
Set oPres = oPPT.ActivePresentation
oPPT.WindowState = ppWindowMinimized

Then I do the copy and paste part:
With oPres
oPres.Slides(ResultsArray(iCtr).intSlideIndex).Cop y
oPresTemplate.Slides.Paste
oSldShWinS(1).View.Exit ' this closes the "Hyperlinked
View" of the slide
End With
Now I want to return to the Access application window while PPT is still
updating some stuff in the background.

I've tried establishing an object of the Access application and then used
the AppActivate command:
AppActivate "Microsoft Access"

I have also tried:
oAccessApp.DoCmd.Maximize

and I've tried SetFocus. All seem to be ignored by the system. Everything,
PPT and Access both are in minimized state and when PPT finishes, both apps
are minimized. I want the user to see a progress label that tells them
stuff that happens after the hyperlink and they cannot see the label if the
entire app is minimized!

What do I need to do? What is the mental model that I should be following,
since what I am doing now is obviously wrong?
Thanks

CA

[Terry Kreft]

You haven't posted the full code so I'm guessing that oPPT is a variable
pointing to a PowerPoint application, if this is the case then the
PowerPoint process is running in the same as Access, therefore Access has to
wait for PowerPoint to finish before you can continue.
--
Terry Kreft
MVP Microsoft Access
"Colleyville Alan" <ae***********@nospam.comcast.net> wrote in message
news:V_MEc.8113$a24.431@attbi_s03...

I have an app that uses Access to grab various PowerPoint slides using the
followhyperlink command. I have set the PPT window to run in a minimized
state:

FollowHyperlink link
Set oPres = oPPT.ActivePresentation
oPPT.WindowState = ppWindowMinimized

Then I do the copy and paste part:
With oPres
oPres.Slides(ResultsArray(iCtr).intSlideIndex).Cop y
oPresTemplate.Slides.Paste
oSldShWinS(1).View.Exit ' this closes the "Hyperlinked
View" of the slide
End With
Now I want to return to the Access application window while PPT is still
updating some stuff in the background.

I've tried establishing an object of the Access application and then used
the AppActivate command:
AppActivate "Microsoft Access"

I have also tried:
oAccessApp.DoCmd.Maximize

and I've tried SetFocus. All seem to be ignored by the system. Everything, PPT and Access both are in minimized state and when PPT finishes, both apps are minimized. I want the user to see a progress label that tells them
stuff that happens after the hyperlink and they cannot see the label if the entire app is minimized!

What do I need to do? What is the mental model that I should be following, since what I am doing now is obviously wrong?
Thanks

CA

[Colleyville Alan]

You are correct, oPPT is an object variable pointing to PowerPoint. But
even when PPT finishes, I do not return to Access. Plus, I am ok with PPT
running, I just want it not to take over the whole screen and let the user
see the Access window in the background. When run normally, the hyperlinked
windows take over the whole screen, when the PPT window is minimized, then
Access is minimized.

Isn't there a way to have ppt run in less than full screen mode and still
have Access visible (so that my progress label can be seen)?

"Terry Kreft" <te*********@mps.co.uk> wrote in message
news:pN********************@karoo.co.uk...

You haven't posted the full code so I'm guessing that oPPT is a variable
pointing to a PowerPoint application, if this is the case then the
PowerPoint process is running in the same as Access, therefore Access has to wait for PowerPoint to finish before you can continue.
--
Terry Kreft
MVP Microsoft Access
"Colleyville Alan" <ae***********@nospam.comcast.net> wrote in message
news:V_MEc.8113$a24.431@attbi_s03...

I have an app that uses Access to grab various PowerPoint slides using the followhyperlink command. I have set the PPT window to run in a minimized state:

FollowHyperlink link
Set oPres = oPPT.ActivePresentation
oPPT.WindowState = ppWindowMinimized

Then I do the copy and paste part:
With oPres
oPres.Slides(ResultsArray(iCtr).intSlideIndex).Cop y
oPresTemplate.Slides.Paste
oSldShWinS(1).View.Exit ' this closes the "Hyperlinked
View" of the slide
End With
Now I want to return to the Access application window while PPT is still
updating some stuff in the background.

I've tried establishing an object of the Access application and then used the AppActivate command:
AppActivate "Microsoft Access"

I have also tried:
oAccessApp.DoCmd.Maximize

and I've tried SetFocus. All seem to be ignored by the system.

Everything,

PPT and Access both are in minimized state and when PPT finishes, both

apps

are minimized. I want the user to see a progress label that tells them
stuff that happens after the hyperlink and they cannot see the label if

the

entire app is minimized!

What do I need to do? What is the mental model that I should be

following,

since what I am doing now is obviously wrong?
Thanks

CA

[Terry Kreft]

The Followhyperlink causes Access to minimize.

If all you are doing is using this to load the slides into PowerPoint then I
would have thought that there was an automation method to do this, which
should allow you to retain control of Access.

--
Terry Kreft
MVP Microsoft Access
"Colleyville Alan" <ae***********@nospam.comcast.net> wrote in message
news:RVTEc.7153$wY5.5883@attbi_s54...

You are correct, oPPT is an object variable pointing to PowerPoint. But
even when PPT finishes, I do not return to Access. Plus, I am ok with PPT
running, I just want it not to take over the whole screen and let the user
see the Access window in the background. When run normally, the hyperlinked windows take over the whole screen, when the PPT window is minimized, then
Access is minimized.

Isn't there a way to have ppt run in less than full screen mode and still
have Access visible (so that my progress label can be seen)?

"Terry Kreft" <te*********@mps.co.uk> wrote in message
news:pN********************@karoo.co.uk...

You haven't posted the full code so I'm guessing that oPPT is a variable
pointing to a PowerPoint application, if this is the case then the
PowerPoint process is running in the same as Access, therefore Access has

to

wait for PowerPoint to finish before you can continue.
--
Terry Kreft
MVP Microsoft Access
"Colleyville Alan" <ae***********@nospam.comcast.net> wrote in message
news:V_MEc.8113$a24.431@attbi_s03...

I have an app that uses Access to grab various PowerPoint slides using the followhyperlink command. I have set the PPT window to run in a minimized state:

FollowHyperlink link
Set oPres = oPPT.ActivePresentation
oPPT.WindowState = ppWindowMinimized

Then I do the copy and paste part:
With oPres
oPres.Slides(ResultsArray(iCtr).intSlideIndex).Cop y
oPresTemplate.Slides.Paste
oSldShWinS(1).View.Exit ' this closes the "Hyperlinked View" of the slide
End With
Now I want to return to the Access application window while PPT is still updating some stuff in the background.

I've tried establishing an object of the Access application and then used the AppActivate command:
AppActivate "Microsoft Access"

I have also tried:
oAccessApp.DoCmd.Maximize

and I've tried SetFocus. All seem to be ignored by the system.

Everything,

PPT and Access both are in minimized state and when PPT finishes, both

apps

are minimized. I want the user to see a progress label that tells them stuff that happens after the hyperlink and they cannot see the label

if the

entire app is minimized!

What do I need to do? What is the mental model that I should be

following,

since what I am doing now is obviously wrong?
Thanks

CA

[Colleyville Alan]

The followhyperlink is in a for-next loop and I would have thought that when
the link was through and the hyperlinked window closed, it would be possible
to get Access back to its normal size even if the very next command would be
another followhyperlink that would minimize it again. Isn't that correct?

code is something like this:

for x ftom 1 to somenumber
varLink = oPres.Slides(slideArray(x).intSlideIndex)
FollowHyperlink link
With oPres
oPres.Slides(ResultsArray(iCtr).intSlideIndex).Cop y
oPresTemplate.Slides.Paste
oSldShWinS(1).View.Exit ' this closes the "Hyperlinked
View" of the slide
End With
AppActivate "Microsoft Access" or oAccessApp.DoCmd.Maximize should go
here and should work, no?
next x


"Terry Kreft" <te*********@mps.co.uk> wrote in message
news:vv********************@karoo.co.uk...

The Followhyperlink causes Access to minimize.

If all you are doing is using this to load the slides into PowerPoint then I would have thought that there was an automation method to do this, which
should allow you to retain control of Access.

--
Terry Kreft
MVP Microsoft Access
"Colleyville Alan" <ae***********@nospam.comcast.net> wrote in message
news:RVTEc.7153$wY5.5883@attbi_s54...

You are correct, oPPT is an object variable pointing to PowerPoint. But
even when PPT finishes, I do not return to Access. Plus, I am ok with PPT

running, I just want it not to take over the whole screen and let the user see the Access window in the background. When run normally, the

hyperlinked

windows take over the whole screen, when the PPT window is minimized, then Access is minimized.

Isn't there a way to have ppt run in less than full screen mode and still have Access visible (so that my progress label can be seen)?

"Terry Kreft" <te*********@mps.co.uk> wrote in message
news:pN********************@karoo.co.uk...

You haven't posted the full code so I'm guessing that oPPT is a variable pointing to a PowerPoint application, if this is the case then the
PowerPoint process is running in the same as Access, therefore Access has

to

wait for PowerPoint to finish before you can continue.
--
Terry Kreft
MVP Microsoft Access
"Colleyville Alan" <ae***********@nospam.comcast.net> wrote in message
news:V_MEc.8113$a24.431@attbi_s03...
> I have an app that uses Access to grab various PowerPoint slides using the

> followhyperlink command. I have set the PPT window to run in a

minimized

> state:
>
> FollowHyperlink link
> Set oPres = oPPT.ActivePresentation
> oPPT.WindowState = ppWindowMinimized
>
> Then I do the copy and paste part:
> With oPres
> oPres.Slides(ResultsArray(iCtr).intSlideIndex).Cop y
> oPresTemplate.Slides.Paste
> oSldShWinS(1).View.Exit ' this closes the

"Hyperlinked > View" of the slide
> End With
> Now I want to return to the Access application window while PPT is still > updating some stuff in the background.
>
> I've tried establishing an object of the Access application and then

used

> the AppActivate command:
> AppActivate "Microsoft Access"
>
> I have also tried:
> oAccessApp.DoCmd.Maximize
>
> and I've tried SetFocus. All seem to be ignored by the system.
Everything,
> PPT and Access both are in minimized state and when PPT finishes,

both apps
> are minimized. I want the user to see a progress label that tells

them > stuff that happens after the hyperlink and they cannot see the label if the
> entire app is minimized!
>
> What do I need to do? What is the mental model that I should be
following,
> since what I am doing now is obviously wrong?
> Thanks
>
> CA
>
>

[Terry Kreft]

You've got a tight loop going there, so I wouldn't expect that to happen no.

Try throwing some doevents into the loop and see if it does what you want.

e.g.

oSldShWinS(1).View.Exit
End With
DoEvents
AppActivate "Microsoft Access" or oAccessApp.DoCmd.Maximize should
go here and should work, no?
DoEvents
next x
--
Terry Kreft
MVP Microsoft Access
"Colleyville Alan" <ae***********@nospam.comcast.net> wrote in message
news:6yYEc.8627$MB3.8606@attbi_s04...

The followhyperlink is in a for-next loop and I would have thought that when the link was through and the hyperlinked window closed, it would be possible to get Access back to its normal size even if the very next command would be another followhyperlink that would minimize it again. Isn't that correct?

code is something like this:

for x ftom 1 to somenumber
varLink = oPres.Slides(slideArray(x).intSlideIndex)
FollowHyperlink link
With oPres
oPres.Slides(ResultsArray(iCtr).intSlideIndex).Cop y
oPresTemplate.Slides.Paste
oSldShWinS(1).View.Exit ' this closes the "Hyperlinked
View" of the slide
End With
AppActivate "Microsoft Access" or oAccessApp.DoCmd.Maximize should go
here and should work, no?
next x


"Terry Kreft" <te*********@mps.co.uk> wrote in message
news:vv********************@karoo.co.uk...

The Followhyperlink causes Access to minimize.

If all you are doing is using this to load the slides into PowerPoint then

I

would have thought that there was an automation method to do this, which
should allow you to retain control of Access.

--
Terry Kreft
MVP Microsoft Access
"Colleyville Alan" <ae***********@nospam.comcast.net> wrote in message
news:RVTEc.7153$wY5.5883@attbi_s54...

You are correct, oPPT is an object variable pointing to PowerPoint. But even when PPT finishes, I do not return to Access. Plus, I am ok with PPT running, I just want it not to take over the whole screen and let the user see the Access window in the background. When run normally, the

hyperlinked

windows take over the whole screen, when the PPT window is minimized, then Access is minimized.

Isn't there a way to have ppt run in less than full screen mode and still have Access visible (so that my progress label can be seen)?

"Terry Kreft" <te*********@mps.co.uk> wrote in message
news:pN********************@karoo.co.uk...
> You haven't posted the full code so I'm guessing that oPPT is a variable > pointing to a PowerPoint application, if this is the case then the
> PowerPoint process is running in the same as Access, therefore Access has

to
> wait for PowerPoint to finish before you can continue.
>
>
> --
> Terry Kreft
> MVP Microsoft Access
>
>
> "Colleyville Alan" <ae***********@nospam.comcast.net> wrote in

message > news:V_MEc.8113$a24.431@attbi_s03...
> > I have an app that uses Access to grab various PowerPoint slides using the
> > followhyperlink command. I have set the PPT window to run in a
minimized
> > state:
> >
> > FollowHyperlink link
> > Set oPres = oPPT.ActivePresentation
> > oPPT.WindowState = ppWindowMinimized
> >
> > Then I do the copy and paste part:
> > With oPres
> > oPres.Slides(ResultsArray(iCtr).intSlideIndex).Cop y > > oPresTemplate.Slides.Paste
> > oSldShWinS(1).View.Exit ' this closes the

"Hyperlinked

> > View" of the slide
> > End With
> > Now I want to return to the Access application window while PPT is

still

> > updating some stuff in the background.
> >
> > I've tried establishing an object of the Access application and then used
> > the AppActivate command:
> > AppActivate "Microsoft Access"
> >
> > I have also tried:
> > oAccessApp.DoCmd.Maximize
> >
> > and I've tried SetFocus. All seem to be ignored by the system.
> Everything,
> > PPT and Access both are in minimized state and when PPT finishes, both > apps
> > are minimized. I want the user to see a progress label that tells

them

> > stuff that happens after the hyperlink and they cannot see the

label if

> the
> > entire app is minimized!
> >
> > What do I need to do? What is the mental model that I should be
> following,
> > since what I am doing now is obviously wrong?
> > Thanks
> >
> > CA
> >
> >
>
>

[Colleyville Alan]

Looks like "oAccessApp.RunCommand acCmdAppMaximize" took care of it. The
other maximize cmd I had for Access (DoCmd.Maximize) maximized the window
within the
application, not the application itself.

"Terry Kreft" <te*********@mps.co.uk> wrote in message
news:OB********************@karoo.co.uk...

You've got a tight loop going there, so I wouldn't expect that to happen no.
Try throwing some doevents into the loop and see if it does what you want.

e.g.

oSldShWinS(1).View.Exit
End With
DoEvents
AppActivate "Microsoft Access" or oAccessApp.DoCmd.Maximize should
go here and should work, no?
DoEvents
next x
--
Terry Kreft
MVP Microsoft Access
"Colleyville Alan" <ae***********@nospam.comcast.net> wrote in message
news:6yYEc.8627$MB3.8606@attbi_s04...

The followhyperlink is in a for-next loop and I would have thought that when

the link was through and the hyperlinked window closed, it would be

possible

to get Access back to its normal size even if the very next command would be

another followhyperlink that would minimize it again. Isn't that correct?
code is something like this:

for x ftom 1 to somenumber
varLink = oPres.Slides(slideArray(x).intSlideIndex)
FollowHyperlink link
With oPres
oPres.Slides(ResultsArray(iCtr).intSlideIndex).Cop y
oPresTemplate.Slides.Paste
oSldShWinS(1).View.Exit ' this closes the "Hyperlinked
View" of the slide
End With
AppActivate "Microsoft Access" or oAccessApp.DoCmd.Maximize should go here and should work, no?
next x


"Terry Kreft" <te*********@mps.co.uk> wrote in message
news:vv********************@karoo.co.uk...

The Followhyperlink causes Access to minimize.

If all you are doing is using this to load the slides into PowerPoint then

I

would have thought that there was an automation method to do this, which should allow you to retain control of Access.

--
Terry Kreft
MVP Microsoft Access
"Colleyville Alan" <ae***********@nospam.comcast.net> wrote in message
news:RVTEc.7153$wY5.5883@attbi_s54...
> You are correct, oPPT is an object variable pointing to PowerPoint.

But > even when PPT finishes, I do not return to Access. Plus, I am ok with PPT

> running, I just want it not to take over the whole screen and let

the

user

> see the Access window in the background. When run normally, the
hyperlinked
> windows take over the whole screen, when the PPT window is

minimized, then

> Access is minimized.
>
> Isn't there a way to have ppt run in less than full screen mode and

still

> have Access visible (so that my progress label can be seen)?
>
> "Terry Kreft" <te*********@mps.co.uk> wrote in message
> news:pN********************@karoo.co.uk...
> > You haven't posted the full code so I'm guessing that oPPT is a

variable

> > pointing to a PowerPoint application, if this is the case then the
> > PowerPoint process is running in the same as Access, therefore Access has
> to
> > wait for PowerPoint to finish before you can continue.
> >
> >
> > --
> > Terry Kreft
> > MVP Microsoft Access
> >
> >
> > "Colleyville Alan" <ae***********@nospam.comcast.net> wrote in message > > news:V_MEc.8113$a24.431@attbi_s03...
> > > I have an app that uses Access to grab various PowerPoint slides

using

> the
> > > followhyperlink command. I have set the PPT window to run in a
> minimized
> > > state:
> > >
> > > FollowHyperlink link
> > > Set oPres = oPPT.ActivePresentation
> > > oPPT.WindowState = ppWindowMinimized
> > >
> > > Then I do the copy and paste part:
> > > With oPres
> > > oPres.Slides(ResultsArray(iCtr).intSlideIndex).Cop y > > > oPresTemplate.Slides.Paste
> > > oSldShWinS(1).View.Exit ' this closes the
"Hyperlinked
> > > View" of the slide
> > > End With
> > > Now I want to return to the Access application window while PPT

is still
> > > updating some stuff in the background.
> > >
> > > I've tried establishing an object of the Access application and

then > used
> > > the AppActivate command:
> > > AppActivate "Microsoft Access"
> > >
> > > I have also tried:
> > > oAccessApp.DoCmd.Maximize
> > >
> > > and I've tried SetFocus. All seem to be ignored by the system.
> > Everything,
> > > PPT and Access both are in minimized state and when PPT finishes, both

> > apps
> > > are minimized. I want the user to see a progress label that

tells them
> > > stuff that happens after the hyperlink and they cannot see the

label if
> > the
> > > entire app is minimized!
> > >
> > > What do I need to do? What is the mental model that I should be
> > following,
> > > since what I am doing now is obviously wrong?
> > > Thanks
> > >
> > > CA
> > >
> > >
> >
> >
>
>

[Terry Kreft]

Good, I should have spotted that myself, glad you've sorted it.

.... But my comment about tight loops still stands, it takes UI changes a
relatively long time to happen, and you should relinquish control in order
to allow them to process if you are wanting the user to see what is going
on.

.... Of course there are also times when you don't want this to happen as it
slows procesing down.

--
Terry Kreft
MVP Microsoft Access
"Colleyville Alan" <ae***********@nospam.comcast.net> wrote in message
news:OfFFc.3258$JR4.2312@attbi_s54...

Looks like "oAccessApp.RunCommand acCmdAppMaximize" took care of it. The
other maximize cmd I had for Access (DoCmd.Maximize) maximized the window
within the
application, not the application itself.

"Terry Kreft" <te*********@mps.co.uk> wrote in message
news:OB********************@karoo.co.uk...

You've got a tight loop going there, so I wouldn't expect that to happen no.

Try throwing some doevents into the loop and see if it does what you want.

e.g.

oSldShWinS(1).View.Exit
End With
DoEvents
AppActivate "Microsoft Access" or oAccessApp.DoCmd.Maximize should go here and should work, no?
DoEvents
next x
--
Terry Kreft
MVP Microsoft Access
"Colleyville Alan" <ae***********@nospam.comcast.net> wrote in message
news:6yYEc.8627$MB3.8606@attbi_s04...

The followhyperlink is in a for-next loop and I would have thought that

when

the link was through and the hyperlinked window closed, it would be

possible

to get Access back to its normal size even if the very next command would

be

another followhyperlink that would minimize it again. Isn't that

correct?
code is something like this:

for x ftom 1 to somenumber
varLink = oPres.Slides(slideArray(x).intSlideIndex)
FollowHyperlink link
With oPres
oPres.Slides(ResultsArray(iCtr).intSlideIndex).Cop y
oPresTemplate.Slides.Paste
oSldShWinS(1).View.Exit ' this closes the

"Hyperlinked View" of the slide
End With
AppActivate "Microsoft Access" or oAccessApp.DoCmd.Maximize should go here and should work, no?
next x


"Terry Kreft" <te*********@mps.co.uk> wrote in message
news:vv********************@karoo.co.uk...
>
> The Followhyperlink causes Access to minimize.
>
> If all you are doing is using this to load the slides into

PowerPoint then

I
> would have thought that there was an automation method to do this, which > should allow you to retain control of Access.
>
> --
> Terry Kreft
> MVP Microsoft Access
>
>
> "Colleyville Alan" <ae***********@nospam.comcast.net> wrote in

message > news:RVTEc.7153$wY5.5883@attbi_s54...
> > You are correct, oPPT is an object variable pointing to PowerPoint. But

> > even when PPT finishes, I do not return to Access. Plus, I am ok with PPT
> > running, I just want it not to take over the whole screen and let the user
> > see the Access window in the background. When run normally, the
> hyperlinked
> > windows take over the whole screen, when the PPT window is minimized, then
> > Access is minimized.
> >
> > Isn't there a way to have ppt run in less than full screen mode

and still
> > have Access visible (so that my progress label can be seen)?
> >
> > "Terry Kreft" <te*********@mps.co.uk> wrote in message
> > news:pN********************@karoo.co.uk...
> > > You haven't posted the full code so I'm guessing that oPPT is a
variable
> > > pointing to a PowerPoint application, if this is the case then the > > > PowerPoint process is running in the same as Access, therefore Access

> has
> > to
> > > wait for PowerPoint to finish before you can continue.
> > >
> > >
> > > --
> > > Terry Kreft
> > > MVP Microsoft Access
> > >
> > >
> > > "Colleyville Alan" <ae***********@nospam.comcast.net> wrote in

message

> > > news:V_MEc.8113$a24.431@attbi_s03...
> > > > I have an app that uses Access to grab various PowerPoint slides using
> > the
> > > > followhyperlink command. I have set the PPT window to run in a > > minimized
> > > > state:
> > > >
> > > > FollowHyperlink link
> > > > Set oPres = oPPT.ActivePresentation
> > > > oPPT.WindowState = ppWindowMinimized
> > > >
> > > > Then I do the copy and paste part:
> > > > With oPres
> > > >

oPres.Slides(ResultsArray(iCtr).intSlideIndex).Cop y

> > > > oPresTemplate.Slides.Paste
> > > > oSldShWinS(1).View.Exit ' this closes the
> "Hyperlinked
> > > > View" of the slide
> > > > End With
> > > > Now I want to return to the Access application window while PPT is > still
> > > > updating some stuff in the background.
> > > >
> > > > I've tried establishing an object of the Access application

and then

> > used
> > > > the AppActivate command:
> > > > AppActivate "Microsoft Access"
> > > >
> > > > I have also tried:
> > > > oAccessApp.DoCmd.Maximize
> > > >
> > > > and I've tried SetFocus. All seem to be ignored by the

system. > > > Everything,
> > > > PPT and Access both are in minimized state and when PPT

finishes, both
> > > apps
> > > > are minimized. I want the user to see a progress label that tells > them
> > > > stuff that happens after the hyperlink and they cannot see the

label

> if
> > > the
> > > > entire app is minimized!
> > > >
> > > > What do I need to do? What is the mental model that I should be > > > following,
> > > > since what I am doing now is obviously wrong?
> > > > Thanks
> > > >
> > > > CA
> > > >
> > > >
> > >
> > >
> >
> >
>
>