MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Fechar msgbox automaticamente

    Krauss
    Krauss
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 254
    Registrado : 23/12/2011

    [Resolvido]Fechar msgbox automaticamente Empty [Resolvido]Fechar msgbox automaticamente

    Mensagem  Krauss 7/12/2012, 14:38

    Boa tarde!

    Caros mestres, em vez de ter que clicar no 'OK' para fechar uma msgbox, existe alguma forma dela fechar sozinha?

    Ex: Vc vai lá e clica em Excluir Registro e o sistema exibe a msg "Registro excluido com sucesso!" dai vc clica em ok pra fechar a msg certo?

    Gostaria que o sistema exibisse a msg e logo em seguida a fechasse automaticamente. É possível isso?

    Abraços!


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Fechar msgbox automaticamente Empty Re: [Resolvido]Fechar msgbox automaticamente

    Mensagem  Dilson 7/12/2012, 14:49

    msgbox - Mais um exemplo de MsgBox com fechamento automático

    msgbox - Msgbox com tempo
    Krauss
    Krauss
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 254
    Registrado : 23/12/2011

    [Resolvido]Fechar msgbox automaticamente Empty Re: [Resolvido]Fechar msgbox automaticamente

    Mensagem  Krauss 7/12/2012, 15:36

    Achei esse modelo do criquio e PILOTO e funciona perfeitamente, porém em vez de colocar o código no próprio fortm, coloquei em um módulo e, quando chamo a função, o sistem aexecuta direitinho, porém não fecha a msg automaticamente, só fecha automaticamente.

    Pq colocando o codigo no módulo, não funciona 100%? E outra coisa.. Já que a msg fecha automaticamente, teria como retirar o botão ok e o 'X' vermelho da msg?

    Eis o código:

    Public Function msgboxExcluir()
    Dim wShell As Object, Prompt As String, Seconds As Integer, Title As String, Buttons As Boolean
    Set wShell = CreateObject("WScript.Shell")
    Prompt = " Cadastro excluído!"
    Seconds = 1
    Title = " Sispac"
    Buttons = vbOKOnly
    msgboxExcluir = wShell.PopUp(Prompt, Seconds, Title, Buttons)
    End Function


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"

    Conteúdo patrocinado


    [Resolvido]Fechar msgbox automaticamente Empty Re: [Resolvido]Fechar msgbox automaticamente

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 22:37