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

    Barra de progresso na barra de status

    luissiscone
    luissiscone
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Barra de progresso na barra de status Empty Barra de progresso na barra de status

    Mensagem  luissiscone 20/4/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
    Barra de progresso na barra de status AttachmentProgressBar.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (40 Kb) Baixado 82 vez(es)
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Barra de progresso na barra de status Empty Barra de progresso na barra de status

    Mensagem  good guy 20/4/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 22/4/2015, 15:20, editado 1 vez(es)
    luissiscone
    luissiscone
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Barra de progresso na barra de status Empty Re: Barra de progresso na barra de status

    Mensagem  luissiscone 22/4/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
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Barra de progresso na barra de status Empty Barra de progresso na barra de status

    Mensagem  good guy 22/4/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.

    https://www.facebook.com/EduardoMachado

    Visite meu site:

    www.goodguyaccessvba.com.br

    Conteúdo patrocinado


    Barra de progresso na barra de status Empty Re: Barra de progresso na barra de status

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 05:38