Timer in Message code not working... VBA

[Norm]

Hi guys
Spent too much time in trying to get the timer to work and not sure why it’s not working.
The message is displayed and I can also access other parts of the application with the mouse, but it doesn’t automatically disappear after the 2 seconds and stays open until I click it.
Also not sure what the wscript.shell is ?
Please see code below
The Above wrong I have Windows 10 64 bit


Appreciate your help
‘---------------------------------------------------
Private Sub Command0_Click()
Test1 = Hope this works”
Dim acktime As Integer, infobox As Object
Set infobox = CreateObject("wscript.shell")
Acktime = 2
Select Case infobox.PopUp(test1, acktime, "Test message", 0)
Case 1, -1
End Select
‘---------------------------------------------------
end Sub

[ranman256]

the form is the timer.
set property: TIMERINTERVAL = 10000 (10 seconds)

the the event:

sub form_Timer()
   msgbox "my message"
end sub

[moke123]

but it doesn’t automatically disappear after the 2 seconds and stays open until I click it.

Not clear if you mean a messagebox or a popup form.

If it's a self-closing messagebox, consider a TaskBox.

[Norm]

Thank you ranman256 for your help.
But I think you misunderstood my problem or I didn’t explain it clearly enough.
I would like the message to appear for only 10 seconds NOT come up in 10 seconds.
In other words…Display the message straight away and close automatically in 10 seconds.
Moke123
Thank you as well.
Yes its a message box. I will try your code and work it out how to remove the bar .
Extremely close to what I want.

Most appreciated guys.
Norm

[Micron]

You could do whatever in the code (open form that mimics a message box?) then call a custom timer to which you pass the pause amount (e.g. Pause 5). Next line of code closes the message form. There are lots of examples of this code. I've modified it to accept fractional seconds for when there are lots of loops involved.

Sub pause(sngSecs As Single)
Dim endTime As Long

endTime = Timer
Do Until Timer > endTime + sngSecs
Loop

End Sub

[moke123]

Here's the link to the threads on TaskBox and how to customize it. https://www.vbforums.com/showthread....a-Task-Dialogs

[Norm]

Thank guys.
The code I showed in the first thread works in a new database.
But not in the one I was using.
Strange but I giveup.

[moke123]

Thank guys.
The code I showed in the first thread works in a new database.
But not in the one I was using.
Strange but I giveup.

I've seen dozens of requests for self closing messageboxes but don't recall ever seeing infobox.PopUp as a solution.

Could you post a working example?

From what I've seen googling it, it's buggy and doesn't always work.

[Micron]

I cannot help but wonder what is wrong with a simple form that is used in place of a message box and using that form's timer event to close it, or use the Pause function that I posted. No scripting, no Shell, no concerns about 64 vs 32 bit, no bother about missing references for scripting...

[isladogs]

I have an example with that exact setup - see Customised Message Form + Timer in my example db: Attention Seeking Database (isladogs.co.uk).
That also includes a task dialog example with a timer

[Norm]

Thanks again guys.
Im just a retired person having fun or trying to have fun with msaccess.

Micron
I tried your code and it kind of worked.
When I say kind of. The db froze a couple of times with that code.
So I must be doing something wrong.
Moke23.
That code in my thread 1 is a working version so not sure what you mean.
I did not expect this to be such an ordeal so I have decided to give this problem a miss.
The task _dialog looks interesting but i would need days to understand it.
And this is just a fun hobby for me.
If I was years younger I would look into it.

So thanks again but I will stay with the code im familiar with and use a msgbox with a click to close.

[Micron]

Likely because it doesn't allow for user to do anything while it's running - it wasn't meant for that and I didn't realize that would be your case. Rather than trying Do Events in the calling (or called) code I'd try the timer event of the message form, as long as you don't open that form modal.