Considerações sobre o controle ActiveX MIcrosoft ProgressBar Control (Barra de Progresso)

Uma barra de progresso muito interessante de se trabalhar.. tenho utilizado em meus projetos poém hoje me deparei com um erro que parecia insanável.
Ao adaptar ela em outro form, ao testar ocorreu um erro, ao fechar o formulário após ter corrigido o erro e reabrí-lo veio a surpresa... A barra não funcionava mais.
Instalei e retirei referencias, copiei para novo formulário, novo banco.. fiz de tudo porém gerava erro de tipos incompatíveis na hora de setar a barra na linha abaixo:

'-------------------------
'Seta a barra de progresso
'-------------------------
Set BarraPrg = Forms!frmCnsBoleto.Barra.Object

Ou seja.. o objeto não ficava definido...

Em uma tentativa meio que me pareceu inútil na hora que tentei por incrível que pareça foi a solução para este problema...
Bem o que fiz? Renomeei a variável e reiniciei o formulário

'-------------------------
'Seta a barra de progresso
'-------------------------
Set Barra = Forms!frmCnsBoleto.Barra.Object


Bingo!!! Voltou a funcionar..
O interessante é que se novo erro ocorrer.. esta segunda variável (renomeada) pifa novamente... e você terá que renomeá-la novamente podendo até utilizar o primeiro nome que inicou.
Creio que isso deva ser algum tipo de bug do access.

Exemplo da Barra:

https://dl.dropboxusercontent.com/u/26441349/BarraProgresso.rar


Cumprimentos.

Fato curioso...
Gosto de usar a barra do próprio Access, pena que é tão pequena e quase imperceptível...

Link quebrado.

Quando necessário faço eu mesmo o mostrador de progresso, evita muita dor de cabeça.

Pois Jungli.. e esta barra ai eu a conheci através de um exemplo teu..
Gosto de utilizá-la pois dá pra fazer funcionar efetivamente.
Tem muito exemplos de barra de progresso que apenas servem de enfeite..
Esta que está ai se bem utilizada perfazerá o tamanho condizente com a quantidade de dados..

Podes definir o tamanho final da mesma baseado em um for ou mesmo em uma quantidade de registros em um recordset..
Modificando a barra a cada loop.


Cumprimentos.

Bom dia, mestre Harysohn

Por conta, destes probleminhas,entrei num processo de evitar usar componentes extras, mesmo sendo da própria microsoft,
são muito úteis sim, mas em alguns casos que eu já me deparei, o melhor foi mesmo inventar algo que funcionasse como o componente.

Cito como exemplo a barra de progressão que postei no fórum um tempo atrás.

Barra de progresso

Cumprimentos

Está corretíssimo, estes controles costumam dar problemas..
Verei logo mais teu exemplo.

Cumprimentos.

Eu particularmente após algumas "dores de cabeça" com esse tipo de controle abrir mão de utilizá-los.


Abraços,

Dos controles externos do Access, só não abro mão do TreeView, pois o controle de usuários dos meus aplicativos, eu defino as funções pela checkbox dos nós! Daí, para ver se um usuário
tem ou não direito de tal função, recorro ao ticado e evito a viagem a tabela de permissões parar checagem.
Quando a barras de progresso, ou uso a nativa do access ou crio uma, que não serve só enfeite, mas mostra realmente progresso da função escolhida. Que na verdade uso o mesmo conceito
da barro do OCX, a cada laço (ou algo semelhante), alamento seu tamanho.

Puts.. Eu sou um Sofredorrrrr

Gosto de TreeView, ListView e tudo View que há pela frente...

hehehe

Abraços.

Realmente são ótimos controles! Pena que não são mais atualizados apesar de ainda compatíveis (com seus probleminha de vez em quando, rs). O ListView é outro controle excelente... Gosto muito e uso de vez em quando. Mas dou prioridade a não usar componentes externos. Mas que fazem falta, isso fazem!

Olá
Fiz uma barra de Progresso com o timer testei e está a funcionar durante o tempo definido.

Para o que eu pretendo a sequência seria esta:
1-Clicar no Botão
2-Abrir a barra de progresso e começar a subir de acordo com o tempo definido até 99%.
3-Executar código VBA
4-Colocar barra a 100%

Acontece que ao executar o passo 2 o progresso da barra pára e só retoma quando o passo 3 está concluído.

Tem como o progresso não parar ao executar o passo 3?