MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Exibir tarefas em andamento

    Compartilhe
    avatar
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 330
    Registrado : 08/10/2012

    Exibir tarefas em andamento

    Mensagem  Sidney em 5/12/2018, 16:53

    Pessoal, boa tarde!

    Eu tenho um codigo que chama varias funções seguidas, como este comando demora muito de processar, gostaria de saber se há possibilidades de criar um tipo barra de tarefas me mostrando as tarefas que estão sendo exeutadas naquele momento,

    exemplo dos funções



    Código:
    Call Inseri_N_FAM_SIS
    Call Atualiza_SIT_CAM_FAM
    Call Atualiza_TP_FAM_INICIAL
    Call Atualiza_PRES_LIST_GTP
    Call Atualiza_CRIT_WP_1
    Call Atualiza_CRIT_WP_2
    Call Atualiza_CRIT_WP_3
    Call Atualiza_CRIT_WP_4
                        

    att; Sidney
    avatar
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 305
    Registrado : 21/11/2016

    Re: Exibir tarefas em andamento

    Mensagem  IvanJr. em 6/12/2018, 19:54

    Código:
    Call SysCmd(acSysCmdSetStatus, "Fazendo algumas coisa..."): DoEvents 'mensagem para a barra de status
    Call fncFazAlgumaCoisa 'função que faz alguma coisa
    Call SysCmd(acSysCmdClearStatus) 'limpando a barra de status

      Data/hora atual: 16/12/2018, 09:33