[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 310
  • Last Modified:

MsgBox Timeout - revisited...

I found on ee an interesting way of setting a msgbox to time out but need just a little more help.
http://www.experts-exchange.com/Microsoft/Development/MS_Access/Q_21506364.html?sfQueryTermInfo=1+function+msgbox

So....I would need to create a msgbox named myExitMessage? Where would the Function Call be fired?

*****************
Create a form with this code on the OnTimer event:

myTime = myTime + 1
myExitMessage

On the OnOpen event, have this:

myTime = 1

In teh declarations (after option explicit at the top of teh form module) have this:

Private myTime as Long

Then add this function

Function myExitMessage()
If myTime >= 60000  then     '1 minute
'close form code
End if
End Function
0
zubin6220
Asked:
zubin6220
1 Solution
 
Glenn_MooreCommented:
Set myTime as double.
0
 
sirbountyCommented:
How about this...

Dim objShell=CreateObject("Wscript.Shell")
objShell.Popup "This message will disappear in 5 seconds", 5
0
 
zubin6220Author Commented:
thanks, but I just wanted to use the msgbox with the timer but don,t know how or where to call it?
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now