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

    Barra de progresso na barra de status

    Compartilhe

    luissiscone
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 16/02/2011

    Barra de progresso na barra de status

    Mensagem  luissiscone em Seg 20 Abr 2015, 15:02

    Bom dia, algém poderia me ajudar no seguinte problema ?

    Estou tentando adaptar uma rotina que percorre registros de uma tabela e mostra o resultado na barra de progresso que
    fica na barra de status do access se eu rodar a rotina sem o código de atualização dos campos funciona normal, mas se eu
    rodar com o código de atualização da pau no access e ele fecha;

    Option Compare Database
    Option Explicit

    Public Function PercorreRegistros()
    On Error GoTo Fim

       Dim rs As Recordset
       Set rs = Forms![frmAbout].Form.Recordset
       Dim lQtd As Long    'variável que recebe a quantidade total de registros
       'conta o número de registros
       rs.MoveLast
       lQtd = rs.RecordCount

       SysCmd 1, "Aguarde... Percorrendo a Tabela...", lQtd 'inicia a barra de progressão
       'variável que irá contar os registros
       Dim lContador As Long
       lContador = 0
       'loop que irá percorrer a tabela
       rs.MoveFirst    'vai para o primeiro registro
       Do While Not rs.EOF
           DoEvents    'executa em segundo plano
           '------------------------------------------------
           'aqui você insere seu código...
           'Me!teste1.Value = Me!teste.Value * 2
           '------------------------------------------------
           lContador = lContador + 1 'acrescenta 1 na quantidade
           SysCmd 2, lContador     'atualiza visão da barra de progressão
           rs.MoveNext 'proximo registro
       Loop
       MsgBox lContador & " registros foram percorridos"
       SysCmd 3 'limpa a barra de progressão
       Exit Function

    Fim:
       SysCmd 3
       MsgBox Err.Number & " - " & Err.Description
       Exit Function

    End Function

    Private Sub cmdCalcula_Click()
    Call PercorreRegistros
    End Sub
    Anexos
    ProgressBar.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (40 Kb) Baixado 37 vez(es)

    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 920
    Registrado : 05/02/2010

    Barra de progresso na barra de status

    Mensagem  good guy em Seg 20 Abr 2015, 21:00

    Olá Luis,

    O arquivo veio corrompido. Tente com esta função !!!

    Aguarde meu e-book. Este código está protegido por direitos autorais e poderá ser usado para seus diversos fins pelo usuário com a sua publicação. Agradeço a compreensão.


    Última edição por good guy em Qua 22 Abr 2015, 15:20, editado 1 vez(es)

    luissiscone
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 16/02/2011

    Resolvido

    Mensagem  luissiscone em Qua 22 Abr 2015, 12:42

    good guy, bom dia.

    Tomei a liberdade de fazer algumas alteraçãoes, mas manti o escopo original e funcionou;
    Logo posto como ficou !


    Acho que estou com problemas em marcar como resolvido aqui, se puder marcar para mim.

    Grato, luis.

    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 920
    Registrado : 05/02/2010

    Barra de progresso na barra de status

    Mensagem  good guy em Qua 22 Abr 2015, 15:17

    Olá Luis,

    É só baixar a página, no finalzinho à esquerda. Clique em Editar e segue estes passos e então estará tudo RESOLVIDO.  Outra coisa vou retirar o código porque trata-se de material meu(e-book) com direitos autorais que será colocado à venda.

    Dê uma curtida em minha página no Facebook.

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

    Visite meu site:

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

      Data/hora atual: Sab 03 Dez 2016, 15:39