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

3 participantes

    [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo Empty [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo

    Mensagem  Assis 19/3/2017, 15:52

    Boa tarde Amigos

    Tenho este comando num click de um botão.
    Ao fazer click, abre a MsgBox informa:    Já vou fechar ...
    E sem fazer mais nada fecha a BD

    Pergunto: Porque não funciona em todas as BD. Se alguém conhece me informe

    Private Sub Comando23_Click()
    Dim MsgBoxTempo As Object
    Set MsgBoxTempo = CreateObject("WScript.Shell")
    MsgBoxTempo.PopUp "Já vou fechar ...", "1", "Aviso", vbOKOnly + vbInformation
    DoCmd.Quit
    End Sub


    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8209
    Registrado : 05/11/2009

    [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo Empty Re: [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo

    Mensagem  Alexandre Neves 19/3/2017, 20:32

    Boa noite, Assis
    Não será apenas
    Dim MsgBoxTempo As Object
    Set WShell = CreateObject("WScript.Shell")
    MsgBoxTempo = WShell.PopUp("Já vou fechar ...", "1", "Aviso")


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo Empty Re: [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo

    Mensagem  Assis 20/3/2017, 00:12

    Boas Alexandre

    Não resulta

    [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo Alexan10

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8209
    Registrado : 05/11/2009

    [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo Empty Re: [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo

    Mensagem  Alexandre Neves 20/3/2017, 10:43

    Bom dia, Assis

    Public Function MsgBoxTimer(Seconds As Integer, Prompt As String, Optional Buttons As VbMsgBoxStyle = vbOKOnly, Optional Titulo As String) As VbMsgBoxResult
    Dim WShell
    'Segue um código que cria uma msgbox com tempo:
    Set WShell = CreateObject("WScript.Shell")
    MsgBoxTimer = WShell.PopUp(Prompt, Seconds, Titulo, Buttons)
    End Function

    MsgBoxTimer 1, "Já vou fechar ...", , "Aviso"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo Empty Re: [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo

    Mensagem  Assis 20/3/2017, 11:35

    Bom dia Alexandre

    Não fecha

    Para testar, Clikar no botão "Sair"

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8209
    Registrado : 05/11/2009

    [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo Empty Re: [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo

    Mensagem  Alexandre Neves 20/3/2017, 12:53

    Coloca a função num módulo global, não do formularío


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo Empty Re: [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo

    Mensagem  Assis 20/3/2017, 13:34

    Alexandre
    E igual.


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

    [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo Empty Re: [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo

    Mensagem  Alvaro Teixeira 20/3/2017, 16:14

    Olá a todos,
    Assis, estive a verificar (passando para Módulo, como o colega Alexandre já tinha referido) e no seu formulário não funcionava.
    No entanto testando numa sub, funcionava. ???
    Criei um novo Formulario, copiei e já funciona.
    Segue meu teste:
    meocloud.pt/link/10e9ad19-2957-4d2a-94ca-593a4d0bc679/Ler_HD_rev.zip/

    Fiquei foi sem compreender qual a propriedade do seu formulário que estava a provocar a situação.
    Caso ao alterar alguma propriedade que normalmente use e passe a dar o erro, avise.
    Abraço a todos
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo Empty Re: [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo

    Mensagem  Assis 20/3/2017, 18:08

    Obrigado Teixeira e Alexandre

    Mas copiei o modulo " mod_msgbox "para outro BD e com o mesmo comando

    MsgBoxTimer 1, "Já vou fechar ...", , "Aviso"
    DoCmd.Quit

    Nada ..... não fecha.

    Não sei qual a propriedade diferente dos formulário, vou tentar descobrir e informo.

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8209
    Registrado : 05/11/2009

    [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo Empty Re: [Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo

    Mensagem  Alexandre Neves 20/3/2017, 18:20

    No meu, não executou no módulo do formulário e fechou em módulo separado


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: 6/10/2022, 07:51