Barra de progresso na barra de status

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

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.

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.

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