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]Nova MsgBox exemplo do repositório

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Nova MsgBox exemplo do repositório Empty [Resolvido]Nova MsgBox exemplo do repositório

    Mensagem  Assis em 19/4/2020, 12:33

    Bom dia Damasceno

    https://www.maximoaccess.com/t37561-nova-msgbox#256556

    Neste seu link a MsgBox não dura só 3 segundos, fica fixa pelo menos no exemplo que anexo ao clicar no comando "Gerar" do único formulário da BD.

    Ou eu fiz errado

    Obrigado
    Anexos
    [Resolvido]Nova MsgBox exemplo do repositório AttachmentDiasDoAno.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (128 Kb) Baixado 7 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2136
    Registrado : 22/11/2016

    [Resolvido]Nova MsgBox exemplo do repositório Empty Re: [Resolvido]Nova MsgBox exemplo do repositório

    Mensagem  DamascenoJr. em 19/4/2020, 14:48

    Assis, falha minha. Corrija o trecho em vermelho.

    If bytTempoEmSegundos > 0 Then
       vbResultado = CreateObject("WScript.Shell").PopUp(strMensagem, bytTempoEmSegundos, strTitulo, vbEstilo)
    Else
       vbResultado = MsgBox(strMensagem, vbEstilo, strTitulo)
    End If


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Nova MsgBox exemplo do repositório Empty Re: [Resolvido]Nova MsgBox exemplo do repositório

    Mensagem  Assis em 19/4/2020, 15:33

    Obrigado Damasceno


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: 5/8/2020, 20:50