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]Mensagem em uma caixa de texto durante a execução do cronômetro

    Marceff@bol.com.br
    Marceff@bol.com.br
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Marceff@bol.com.br 12/8/2015, 14: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 14/8/2015, 14:16, editado 1 vez(es)
    LiveBrain
    LiveBrain
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  LiveBrain 12/8/2015, 19: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
    Marceff@bol.com.br
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Marceff@bol.com.br 13/8/2015, 08: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
    LiveBrain
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  LiveBrain 13/8/2015, 20: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
    Marceff@bol.com.br
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Marceff@bol.com.br 14/8/2015, 14: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.
    https://drive.google.com/file/d/0B3KeEwYJy2bnVWpZNzBlcnhjVnM/view?usp=sharing

    Att. Marcelino

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 18:34