[Resolvido]MsgBox com fechamento automático

Amigos tenho o seguinte código para uma MsgBox com Fechamento automático, mas não está a funcionar..




Private Sub Form_Close()
DoCmd.OpenForm "FrmCadDetento"
MsgBoxTimer (1), "Voltando ao Cadastro »»»", (AVISO)
End Sub



Public Function MsgBoxTimer(Seconds As Integer, Prompt As String, Optional Buttons As VbMsgBoxStyle = vbOKOnly, Optional Title As String) As VbMsgBoxResult
Set WShell = CreateObject("WScript.Shell")
MsgBoxTimer = WShell.PopUp(Prompt, Seconds, Title, Buttons)
End Function


Sepuderem ajudar, fico grato...

Por que não usa um formulário como msgbox?

Ja fiz isso... é porque é sempre bom o conhecimento e o porque das coisas...

Asim reza a filosofia e o seus porquês.....

Porque....disso
Porque daquilo...

O saber pelo saber....

Apenas isso amigão...
devo estar meio louco essa manhã!!!

Pelos meus testes, poderá dar certo assim:

Public Function MsgBoxTimer()
Dim wShell As Object, Prompt As String, Seconds As Integer, Title As String, Buttons As Boolean
Set wShell = CreateObject("WScript.Shell")
Prompt = "Sua mensagem"
Seconds = 1
Title = "Título"
Buttons = vbOKOnly
MsgBoxTimer = wShell.PopUp(Prompt, Seconds, Title, Buttons)
End Function

Private Sub Form_Close()
MsgBoxTimer
End Sub

Se tivessem o cuidado de olhar o repositório de exemplos, salvo erro o TopBr, tem um exemplo de msgbox, com timer. Se não for ele, outro será, mas está por lá.




_____________________________________________________________________________________
Verifique se o Repositório, ou qualquer outra sala de exemplos, possui o que deseja.
_____________________________________________________________________________________
Ao Postar, seja conciso e preciso. Exponha com clareza de ideias e palavras a sua dúvida.
_____________________________________________________________________________________

Vierão.. como eu disse ao amigo criquio.. não é questão de ter disponível no repositório...

E sim entender e poder saber consertar as coisas...

Conhecimentos e desafios

Saudações

Então nada melhor que um exemplo para ver isso, não? Garanto que é um excelente exemplo. Os exemplos, são um modo de aprendizagem

Eu gostei de ter conseguido adaptar esse sem ver outro

Então posta para a gente aprender mais um pouco. Não o código que esse está a cima, mas um pequeno exemplo.

Estou a falar para o Grande Criquio, Hary. Vocês naõ lêem os postes todos.

Eu li... so não esperava causar qualquer desconforto a qualquer...

Tenha uma ótima tarde..

Fui............

Mas qual desconforto rapaz? Só estou a pedir ao Criquio que faça um pequeno exemplo e o coloque no repositório, rsrsrsrs. Tens que te habituar!

http://dl.dropbox.com/u/26441349/MsgBox.rar

Valew companheiro. Os códigos perdem-se aqui no meio dos postes, os exemplos estão sempre disponíveis no Repositório, embora às vezes é difícil acha-los. Mas tem mais valia como exemplo, de que como código só.

Aqui está o exemplo, conforme solicitado

Obrigado Criquio, mas coloca lá no repositório. Valew brother.

MsgBox com Fechamento é Mato agora... hehehehehe