MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Msg Box com fechamento automático

    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Msg Box com fechamento automático Empty [Resolvido]Msg Box com fechamento automático

    Mensagem  HARYSOHN em 10/4/2011, 19:00

    Saudações a todos..

    tenho o seguinte código:


    Private Sub Form_Close()
    Msg = MsgBox("Parcelamento efetuado com Sucesso!", vbInformation, "SysVen")
    End Sub

    Pergunta:

    Como fazer para aparecer essa mensagem... ela ficar ativa por alguns instantes e fechar automaticamente sem precisar pressionar o botão Ok?

    Se alguem puder me ajudar
    Ficarei grato

    Harysohn
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Msg Box com fechamento automático Empty Re: [Resolvido]Msg Box com fechamento automático

    Mensagem  vieirasoft em 10/4/2011, 19:40

    No repositório de exemplos tem lá um exemplo de msg com timer.

    Outra alternativa é fazer uma Msg a partir de um formulário e com o timer definir o tempo que pretendemos
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Msg Box com fechamento automático Empty Amigo Vieira

    Mensagem  HARYSOHN em 10/4/2011, 20:23

    encontrei o codigo...

    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



    COmo faço o uso correto dele pra chamar a msg?

    Harysohn
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Msg Box com fechamento automático Empty Re: [Resolvido]Msg Box com fechamento automático

    Mensagem  vieirasoft em 10/4/2011, 20:28

    Você baixou o exemplo? só encontrou o código? Public Function determina que seja aberto um módulo VBA e depois seja chamada essa função no local necessário. Não conheço o exemplo, mas creio que o colega não postou só o código.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Msg Box com fechamento automático Empty Apenas o Código

    Mensagem  HARYSOHN em 10/4/2011, 20:33

    Encontrei apenas o codigo amigão...
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Msg Box com fechamento automático Empty Re: [Resolvido]Msg Box com fechamento automático

    Mensagem  vieirasoft em 10/4/2011, 20:44

    Então em princípio é assim


    Abra na aba Módulos um novo módulo e cole a função. Feche e guarde com o nome que entender. Depois chame a função aonde precisar dela assim:

    MsgBoxTimer («Seconds»; «Prompt»; «Buttons»; «Title»)

    alterando os seguintes valores:

    MsgBoxTimer («3000»; «Aqui vai a mensagem»; «OkOnly ou vbInformation»; «Título»)

    Agora se vai funcionar ou não, não sei. Acho estranho o colega não ter colocado um exemplo prático
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Msg Box com fechamento automático Empty Amigo Vieira

    Mensagem  HARYSOHN em 10/4/2011, 21:48

    Perdoe-me a falta de pratica mas não funcionou

    Fiz o Modulo...
    e acrestentei a linha no form no evento ao fechar...

    mas a linha ficou vermelha e deu erro de sintaxe

    se puder verificar fico grato

    Harysohn
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Msg Box com fechamento automático Empty Re: [Resolvido]Msg Box com fechamento automático

    Mensagem  vieirasoft em 10/4/2011, 21:52

    Apenas compus, não experimentei. Teste por favor:

    MsgBox Timer("3000", "mensagem", "vbinformation", "aviso")
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Msg Box com fechamento automático Empty Ainda nao...

    Mensagem  HARYSOHN em 10/4/2011, 22:04

    coloquei... e nao funcionou.. se anda pela linha de codigo o programa da a sugestao de colocar no final o seguinte:
    MsgBox Timer("3000", "mensagem", "vbinformation", "aviso")=VbOk

    Mas se coloca isso da uma mensagem de funcao no lado esquerdo tem que retornar uma variant
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Msg Box com fechamento automático Empty Re: [Resolvido]Msg Box com fechamento automático

    Mensagem  vieirasoft em 10/4/2011, 22:07

    o argumento já lá está "vbInformation". Contacte o colega que colocou este exemplo no fórum.
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Msg Box com fechamento automático Empty Re: [Resolvido]Msg Box com fechamento automático

    Mensagem  vieirasoft em 10/4/2011, 22:20

    Ok, já fiz aqui um teste e é assim:

    MsgBoxTimer (3000), (obrigado por), (vbInformation), (Aviso)

    está testado e funciona
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Msg Box com fechamento automático Empty TO te dando trabalho hoje ne amigão

    Mensagem  HARYSOHN em 10/4/2011, 22:25

    Infelizmente aqui não funcionou
    DIz erro de sintaxe
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Msg Box com fechamento automático Empty Resolvido

    Mensagem  HARYSOHN em 10/4/2011, 22:28

    MsgBoxTimer (1), "obrigado por", (vbInformation), (Aviso)

    O texte entre aspas...
    Funcionou..

    Agora mais uma coisa...

    Tem como deixar a msg sem botão de ok?

    Grato vieira e perdoe-me o trbalho
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Msg Box com fechamento automático Empty Re: [Resolvido]Msg Box com fechamento automático

    Mensagem  vieirasoft em 10/4/2011, 22:29

    Aqui não dá erro, mas está agora funcionando ao contrário, ao invés de fechar, abre de 3 em 3 segundos (rsrsrss)
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Msg Box com fechamento automático Empty Re: [Resolvido]Msg Box com fechamento automático

    Mensagem  vieirasoft em 10/4/2011, 22:32

    Ok, está funcionando bem de novo. Coloquei no evento ao abrir do form e funcionou direitinho
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Msg Box com fechamento automático Empty Amigao

    Mensagem  HARYSOHN em 10/4/2011, 22:36

    Tem como excluir ou desativar o botão de ok?
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Msg Box com fechamento automático Empty Re: [Resolvido]Msg Box com fechamento automático

    Mensagem  vieirasoft em 10/4/2011, 22:36

    Vou tentar tirar o botão.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Msg Box com fechamento automático Empty Amigo vieira

    Mensagem  HARYSOHN em 10/4/2011, 22:43

    EU tenho que colocar alguma definicao no Evento Timer do Form?

    e qual o tempo minimo que posso colcar pra fechar a msgBox?
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Msg Box com fechamento automático Empty Re: [Resolvido]Msg Box com fechamento automático

    Mensagem  vieirasoft em 10/4/2011, 22:44

    Mesmo retirando a linha Optional Buttons no módulo e no módulo do form o botão está aparecer sempre, mas já gora teste aí

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


    MsgBoxTimer (1), "obrigado por", (Aviso)

    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Msg Box com fechamento automático Empty Re: [Resolvido]Msg Box com fechamento automático

    Mensagem  vieirasoft em 10/4/2011, 22:45

    Altere para o valor que quizer (1) para 2, 3 ou 4, ou 5

    MsgBoxTimer (5), "obrigado por", (Aviso)
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Msg Box com fechamento automático Empty A URUCUBACA É COMIGO ENTAO RSRS

    Mensagem  HARYSOHN em 10/4/2011, 22:50

    No meu não fecha de jeito nenhum
    aparece a msg mas nao fecha
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Msg Box com fechamento automático Empty Re: [Resolvido]Msg Box com fechamento automático

    Mensagem  vieirasoft em 10/4/2011, 22:55

    Quanto ao tirar o botão, nem vale a pena porque a classe MessageBox tem como default o botão ok. Sendo assim não tem como chamar uma mensagem sem botão.


    Aconselho que de uma olhada no link abaixo.

    http://msdn2.microsoft.com/en-us/library/system.windows.forms.messagebox.show.aspx
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Msg Box com fechamento automático Empty Re: [Resolvido]Msg Box com fechamento automático

    Mensagem  vieirasoft em 10/4/2011, 22:55

    Vou-lhe enviar o teste que fiz aqui
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Msg Box com fechamento automático Empty Re: [Resolvido]Msg Box com fechamento automático

    Mensagem  vieirasoft em 10/4/2011, 22:58

    Pode fazer o Download

    http://dl.dropbox.com/u/8157744/ABC.rar
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Msg Box com fechamento automático Empty OK

    Mensagem  HARYSOHN em 10/4/2011, 23:03

    O problema era no Banco....

    eu reiniciei o BD
    ai funcionou

    Obrigado amigao..

    Desculpa o atrapalho..
    Fique com Deus...
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Msg Box com fechamento automático Empty Re: [Resolvido]Msg Box com fechamento automático

    Mensagem  vieirasoft em 10/4/2011, 23:04

    Você também e obrigado pelo retorno
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

    [Resolvido]Msg Box com fechamento automático Empty Re: [Resolvido]Msg Box com fechamento automático

    Mensagem  Ney Santos em 31/3/2020, 00:09

    Ola tentei baixar o exemplo para adaptalo ao meu sistema mas o link da como nao localizado
    Poderia posta-lo novamente?
    Grato pela atenção
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4234
    Registrado : 06/11/2009

    [Resolvido]Msg Box com fechamento automático Empty Re: [Resolvido]Msg Box com fechamento automático

    Mensagem  Assis em 31/3/2020, 00:43

    Boa noite

    Click para fechar o formulário.
    Anexos
    [Resolvido]Msg Box com fechamento automático AttachmentMsgboxTimer.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (60 Kb) Baixado 30 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

    [Resolvido]Msg Box com fechamento automático Empty Re: [Resolvido]Msg Box com fechamento automático

    Mensagem  Ney Santos em 31/3/2020, 00:53

    Assi boa noite obrigado pela ajuda

      Data/hora atual: 1/12/2020, 14:14