MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Mensagem em uma caixa de texto durante a execução do cronômetro

    Compartilhe

    Marceff@bol.com.br
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 26/04/2011

    [Resolvido]Mensagem em uma caixa de texto durante a execução do cronômetro

    Mensagem  Marceff@bol.com.br em Qua 12 Ago 2015, 19:14

    Boa Tarde!!!

    Estava procurando para implementação de meu bd uma solução e encontrei este código do Criquio que atende perfeitamente as minhas necessidades, mas gostaria de saber se é possível acrescentar uma caixa de texto no form, e a cada intervalo específico do cronômetro ser apresentado uma msg nesta caixa de texto, não consegui implementar, alguém saberia como, ficaria mais ou menos assim, mas claro que desta forma não esta funcionando:

    If Me.cxaContagem.Width < 6000 Then
    Me.cxaContagem.Width = Me.cxaContagem.Width + 15
    Me.txtContagem = Me.txtContagem + 1
    Me.txtContagem = Me.txtContagem + 1 / 400

    '1ª mensagem a 5 seg +ou-
    ElseIf Me.cxaContagem.Width = 2000 Then
    Texto = "Copiando arquivos..."

    '2ª mensagem a 10 seg +ou-
    ElseIf Me.cxaContagem.Width = 4000 Then
    Texto = "Atualizando..."

    '3ª mensagem a 15 seg, finalizando
    ElseIf Me.cxaContagem.Width = 6000 Then[/color]
    Texto = "concluido"
    Me.btnOK.Visible = True

    Desde já agradeço
    Att. Marcelino


    Última edição por Marceff@bol.com.br em Sex 14 Ago 2015, 19:16, editado 1 vez(es)

    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: [Resolvido]Mensagem em uma caixa de texto durante a execução do cronômetro

    Mensagem  LiveBrain em Qui 13 Ago 2015, 00:34

    se for só pra exibir a mensagem, deixe assim


    Código:
    If Me.cxaContagem.Width < 6000 Then
    Me.cxaContagem.Width = Me.cxaContagem.Width + 15
    Me.txtContagem = Me.txtContagem + 1
    Me.txtContagem = Me.txtContagem + 1 / 400
    end if

    '1ª mensagem a 5 seg +ou-
    If Me.cxaContagem.Width = 2000 Then
    Texto = "Copiando arquivos..."

    '2ª mensagem a 10 seg +ou-
    ElseIf Me.cxaContagem.Width = 4000 Then
    Texto = "Atualizando..."

    '3ª mensagem a 15 seg, finalizando
    ElseIf Me.cxaContagem.Width = 6000 Then
    Texto = "concluido"
    Me.btnOK.Visible = True
    end if


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"

    Marceff@bol.com.br
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 26/04/2011

    Re: [Resolvido]Mensagem em uma caixa de texto durante a execução do cronômetro

    Mensagem  Marceff@bol.com.br em Qui 13 Ago 2015, 13:51

    Bom Dia!!!
    Obrigado pela atenção, porém ocorre agora da seguinte forma:

    Fica executando a contagem e quando chega a 100% da barra é apresentado apenas a msg concluído, passando direto pelas anteriores.
    O que gostaria é que qdo a barra chegasse a uns 30% +ou- apresentasse no controle texto a msg "Copiando arquivos...", ficasse essa msg até qdo chegar a uns 60% +ou- ai apresentasse no controle a msg "Copiando arquivos..." e qdo atingisse os 100% ai apresentasse a msg concluído no referido controle, só que não estou sabendo fazer isso.

    Att. Marcelino

    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: [Resolvido]Mensagem em uma caixa de texto durante a execução do cronômetro

    Mensagem  LiveBrain em Sex 14 Ago 2015, 01:08

    Ah sim,
    No If das mensagens, troque o = por <


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"

    Marceff@bol.com.br
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 26/04/2011

    Re: [Resolvido]Mensagem em uma caixa de texto durante a execução do cronômetro

    Mensagem  Marceff@bol.com.br em Sex 14 Ago 2015, 19:13

    Boa Tarde!!!

    cheers
    Obrigado LiveBrain, com tua dica consegui ver o que eu fazia de errado, porém carregava apenas a última msg de 3, dei mais uma verificada no código e adaptei as minhas necessidades mas consegui os que eu estava tentando, segue link para download do projeto pronto. A ideia do arquivo é efetuar uma exportação de qualquer tabela, relatório ou formulário com atualizações já realizadas para dentro de um outro banco de dados, afim de disponibilizar ao usuário uma nova atualização com as devidas alterações e durante ou após o processo que geralmente é bem rápido, ficasse uma janela animada causando o efeito de estar mesmo efetuando cópia e instalação, pura ilusão, hehehehe, mas só pra ter aquele efeito de interação no aplicativo (é claro que para este exemplo não implementei as exportações, mas pode ser modificado a vontade).

    Projeto.
    [Você precisa estar registrado e conectado para ver este link.]

    Att. Marcelino

      Data/hora atual: Sex 09 Dez 2016, 13:27