Automatisch afsluiten msgbox

[Rebellin]

Is het mogelijk om een bericht te tonen die verdwijnt na een aantal seconden ?
Ik heb een functie die verschillende query's uitvoert en zou willen dat er een bericht verschijnt als deze gedaan is zonder dat deze msgbox door de gebruiker moet afgesloten worden.
De code hieronder vond ik op het internet maar het werkt niet bij mij

Sub PopupDemo()
Dim WshShell As IWshShell
Dim Msg As String
Set WshShell = CreateObject("Wscript.Shell")
Msg = "This message will self-destruct in 5 seconds."
Title = "A friendly reminder"
WshShell.Popup Msg, 5, Title, 7 + vbInformation
Set WshShell = Nothing
End Sub

Of is er nog een andere manier om dit te tonen ?

Alvast bedankt.

 

[JohanRVT]

Je gaat dan wel regelmatig de vraag krijgen (of Uzelf afvragen) of de query nu wel goed werd uitgevoerd? Welke zin heeft zo'n waarschuwing nml als je toch niet weet of ze gelezen is of niet?

 

[OctaFish]

Ik ben het met Johan eens dat een Msgbox gelezen moet worden, waarom zou je 'm anders laten zien? En dan kan de gebruiker best op een knop klikken als hij/zij uitgelezen is. Als je al een geautomatiseerde boodschap wil laten zien, maak dan een formulier dat zelf na een aantal ingestelde seconden verdwijnt. Dat is veel handiger dan zo'n Msgbox die nou eenmaal niet altijd werkt.

 

[perpon]

Ik laat soms een berichtje in de statusbalk verschijnen met de volgende code

Public Sub PauzeTxtBeep(Text As String, PauseTime As Variant)
    Dim H As Variant, Start As Variant, Finish As Variant, TotalTime As Variant
    Beep
    If Len(Text) = 0 Then
        H = SysCmd(acSysCmdSetStatus, " ")
    Else
        H = SysCmd(acSysCmdSetStatus, Text)
    End If


    Start = Timer                                     ' Aanvangstijd instellen.
    Do While Timer < Start + PauseTime
        Sleep (100)


        DoEvents                                      ' Overdragen aan andere processen.
    Loop
    Finish = Timer                                    ' Eindtijd instellen.
    TotalTime = Finish - Start
    H = SysCmd(acSysCmdClearStatus)
    ' Totaaltijd berekenen.
End Sub

gr Jan