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

    [Resolvido]Barra de progresso.

    Compartilhe
    avatar
    XPTOS
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 560
    Registrado : 20/01/2014

    [Resolvido]Barra de progresso.

    Mensagem  XPTOS em Dom 25 Fev 2018, 18:21

    Olá amigos,

    Tenho esta base teste que estou querendo implementar uma barra de progresso.

    Minha dúvida é a seguinte, no meu form de arranque tem o botão CONFERIR, ao clicar ele faz um loop na tabela recebido e busca os itens que preciso.
    Queria que a barra de progresso carregasse de acordo com os itens encontrados por este loop, mas não carrega de jeito nenhum.

    Vou deixar o link caso os amigos tenham alguma ideia para sugerir.

    dropbox.com/s/zijat5e6qtejojm/Base%20Teste.rar?dl=1


    .................................................................................
    Grato,
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3899
    Registrado : 14/08/2013

    Re: [Resolvido]Barra de progresso.

    Mensagem  FabioPaes em Seg 26 Fev 2018, 13:37

    Meu amigo, ao invés de Criar Vários campos, deverá criar apenas Um campo. E de acordo com o Lopp deverá ir aumentando esse campo...

    Imagina que o tamanho da barra tenha 10Cm

    E seu Loop, ante de começar vc saberá que tem 20 Registros. (Utilize Record.Count para saber qnts tem)

    Dessa forma, sua Barra de Progresso crescerá 0,5CM a cada Passagem de Loop...

    Então ao Final de cada passagem do Loop, cresça o Campo 0,5CM

    Até que no Ultimo ele ja estará completo!

    Veja a que utilizo aqui:
    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    XPTOS
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 560
    Registrado : 20/01/2014

    Re: [Resolvido]Barra de progresso.

    Mensagem  XPTOS em Ter 27 Fev 2018, 01:48

    Olá FabioPaes,

    Pode disponibilizar esse exemplo para eu estudar?

    Achei bem legal!


    .................................................................................
    Grato,
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3899
    Registrado : 14/08/2013

    Re: [Resolvido]Barra de progresso.

    Mensagem  FabioPaes em Ter 27 Fev 2018, 14:42

    Segue o Exemplo.
    O Código esta um pouco bagunçado pq removi o Codigo original que eu utilizo essa barra...

    Obs:

    Para o Formulário tremer menos, utilize o .Requery ao invés do .Repaint. Porem, em algumas movimentações o Formulário não aparece, se utilizado o Requery.

    O ponto chave esta na Variável ESCALA: ESCALA = (8 * 567) / rsD.RecordCount


    8= O Tamanho da Barra terá no Máximo 8 CM
    567= 567 Twips equivale a 1CM


    Então eu Converto para CM e divido pela quandidade de Registros. Depois é so ir Crescendo a Barra que nada mais é do que uma Imagem na cor Verde.
    Anexos
    Barra Progresso.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (207 Kb) Baixado 41 vez(es)


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    XPTOS
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 560
    Registrado : 20/01/2014

    Re: [Resolvido]Barra de progresso.

    Mensagem  XPTOS em Qua 28 Fev 2018, 02:01

    Muito bom exemplo FabioPaes,

    Consegui resolver meu problema adaptando para o código abaixo:
    Deixo exemplo na mensagem 01.



    .................................................................................
    Grato,
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3899
    Registrado : 14/08/2013

    Re: [Resolvido]Barra de progresso.

    Mensagem  FabioPaes em Qua 28 Fev 2018, 18:43

    Grato pelo retorno amigo, até a próxima se Deus quiser!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: Dom 27 Maio 2018, 04:04