By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
434,761 Members | 1,878 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 434,761 IT Pros & Developers. It's quick & easy.

Access "frmRunningQuery" test box not working correctly

anoble1
100+
P: 225
I have a report that takes a long time to open. I have decided to add a form that comes up right before the code starts that says Running Query.

I never can get the form to view "All the Way". It will come up, but the focus is on the code running and you can only see the top of the running query form. Is their someway to (set the focus) to that Running Query form and have the other stuff run behind it. instead of vise versa?

Example, the form comes up, you will see the Caption of the form that says "Running Query" very samll in the upper left hand corner like normal. But the Form is blank, or shows blank when running the report. When in fact it says "Running Query" in big red letters.

Thanks,

I'm using the:
Expand|Select|Wrap|Line Numbers
  1. DoCmd.OpenForm "frmRunningQuery"
Then the report starts it's stuff
May 16 '12 #1

✓ answered by NeoPa

I use some code like this in my form's Timer event procedure :
Expand|Select|Wrap|Line Numbers
  1. Private Sub Form_Timer()
  2.     Call DoCmd.SelectObject(ObjectType:=acForm, ObjectName:=Me.Name)
  3. End Sub
Bear in mind that other running code can stop this from triggering unless the DoEvents() command is run periodically.

Share this Question
Share on Google+
5 Replies


NeoPa
Expert Mod 15k+
P: 31,489
I use some code like this in my form's Timer event procedure :
Expand|Select|Wrap|Line Numbers
  1. Private Sub Form_Timer()
  2.     Call DoCmd.SelectObject(ObjectType:=acForm, ObjectName:=Me.Name)
  3. End Sub
Bear in mind that other running code can stop this from triggering unless the DoEvents() command is run periodically.
May 16 '12 #2

anoble1
100+
P: 225
Sorry, I'm a little new to this. I copied what you had above:
Expand|Select|Wrap|Line Numbers
  1. Private Sub Form_Timer()
  2.       Call DoCmd.SelectObject(ObjectType:=acForm, ObjectName:=Me.frmRunningQuery)
  3.   End Sub
  4.  
How do I call it into the report before the code starts to run?
Or do I just take out the Private sub and just do the SelectObject?
May 16 '12 #3

NeoPa
Expert Mod 15k+
P: 31,489
ANoble:
How do I call it into the report before the code starts to run?
Not sure what this means O.o.

What you need to do to use this isto post my code (not your changed code if you want it to work) into the module of the form [frmRunningQuery] and then set the form's Timer Interval property to something like 500 (milliseconds) so that the form makes itself selected every half a second.

If that answers your question then good. Otherwise, please ask again, but making clear sense is always good.
May 17 '12 #4

anoble1
100+
P: 225
I don't know how I missed this when I was searching the first time...

http://bytes.com/topic/access/insigh...dicator-access

This answers everything, plus future ideas. Thanks @NeoPa!
May 18 '12 #5

NeoPa
Expert Mod 15k+
P: 31,489
Ah good. It's always cheering to know that people find what you do helpful. Have fune with it :-)
May 18 '12 #6

Post your reply

Sign in to post your reply or Sign up for a free account.