[Resolvido]Do While em Loop

Caros amigos,

Estou quebrando a cabeça com esse código. O Do While está em loop. O código não termina. Onde está errado. Ler uma tabela que tem 30 registros e atualiza alguns campos dependendo de certas condições. Mas o problema do caso é o loop.

Private Sub Comando10_Click()

Dim db As Database
Dim rs As DAO.Recordset
Set db = CurrentDb()


Set rs = db.OpenRecordset("SELECT * FROM [ValorMoedaY]")

Dim AcumulaX As Long
Dim DescAcumulaX As Long
Dim GuardaValorX(100) As Long
Dim IndiceX As Long
Dim IndiceAntX As Long
Dim AcumX As Long
Dim I As Long


AcumulaX = 0
DescAcumulaX = 0
IndiceX = 0
IndiceAntX = 0
AcumX = 0
I = 0

rs.MoveFirst

Do While Not rs.EOF

rs.Edit
IndiceX = IndiceX + 1
GuardaValorX(IndiceX) = rs![ValorY]
AcumulaX = AcumulaX + rs![ValorY]
If IndiceX = 14 Then
rs("CalculoValor") = Round((AcumulaX / 14), 4)
rs.Update
rs.Requery
End If
MsgBox "IndiceX: " & IndiceX & Chr(13) & "GuardaValorXI: " & GuardaValorX(IndiceX) & Chr(13) & "ValorX: " & rs![ValorY] & Chr(13) & "AcumulaX: " & AcumulaX


rs.MoveNext
Loop

rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

Exit Sub
trata_erro:

Call MsgBox("Erro nº " & Err.Number & " - " & Err.Description)

'MsgBox "Cálculo concluído com sucesso..."

End Sub


Alguém pode ajudar?

Muito grato, abraços

Já ouviu o ditado "foi namorar perdeu o lugar"? Pois é, é isso que o requery está fazendo.
Esse trecho está fazendo "os olhos" do VBA se voltar para o início do conjunto de registros e sempre começar as verificações.

Grande Mestre,

Muito grato pela aula. Tem horas que dá um branco e só fico procurando em outro local achando ser coisa mais complicada.

Muito grato mais uma vez.

Grande abraço

Resolvido

O fórum agradece o retorno. Sucesso.

Caro Damasceno,

Aproveitando o mesmo código dei-me mais uma luz.
Estou querendo fazer uma média aritmética dos 14 últimos registros. Dizendo melhor, a primeira parte desse cálculo já está fazendo quando chega no registro 14, conforme está no código já enviado. Quero que os próximos registros façam a média de cada 14 registros anteriores. Melhorando, no 15º registro some os valorY do registro 2º até 15º, do 3º até 16º, daí por diante. Sempre dividindo por 14. Do primeiro até 14º foi feito com facilidade pois tinha que ter 14 registros para fazer a média.
Estou tentando com um For mas fura. Pode ajudar. Veja código abaixo:
Este Round também não funciona: Round((AcumulaX / 14), 4)

Private Sub Comando10_Click()

Dim db As Database
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim rsV As DAO.Recordset
Set db = CurrentDb()
Dim contaReg As Integer

Set rs = db.OpenRecordset("SELECT * FROM [ValorMoedaY]")
Dim AcumulaX As Long
Dim DescAcumulaX As Long
Dim GuardaValorX(100) As Long
Dim IndiceX As Long
Dim IndiceAntX As Long
Dim AcumX As Long
Dim I As Long


AcumulaX = 0
DescAcumulaX = 0
IndiceX = 0
IndiceAntX = 0
AcumX = 0
I = 0

rs.MoveFirst
Do While Not rs.EOF

  rs.Edit
      IndiceX = IndiceX + 1
      GuardaValorX(IndiceX) = rs![ValorY]
      AcumulaX = AcumulaX + rs![ValorY]
      If IndiceX = 14 Then
         rs("CalculoValor") = Round((AcumulaX / 14), 4)
         rs.Update
         'rs.Requery
      End If
      'MsgBox "IndiceX: " & IndiceX & Chr(13) & "GuardaValorXI: " & GuardaValorX(IndiceX) & Chr(13) & "ValorX: " & rs![ValorY] & Chr(13) & "AcumulaX: " & AcumulaX
      'For i to Indicex AcumX = AcumX + GuardaValorX(I)
     
      If IndiceX > 14 Then
          I = I + 1
          For X = I To IndiceX
          AcumX = AcumX + GuardaValorX(X)
          Next X
          rs("CalculoValor") = Round((AcumX / 14), 4)
          AcumX = 0
          rs.Update
     
      End If
     
                       
                               
rs.MoveNext
Loop

rs.Close
Set rs = Nothing
'rs2.Close
'Set rs2 = Nothing
db.Close
Set db = Nothing

MsgBox "Cálculo concluído com sucesso...Tecle ENTER"

'MsgBox "TERMINADO..."

Exit Sub
trata_erro:
   
 Call MsgBox("Erro nº " & Err.Number & " - " & Err.Description)

'MsgBox "Cálculo concluído com sucesso..."
End Sub

Espero ter sido explícito o suficiente para que possa me ajudar.

Muito grato. Grande abraço.

Grande Damasceno,

Você que viu o código anteriormente, quebra mais esse código. Acho que fazendo isso resolvo um problema de amigo aqui do forum que batalha na resolução tem mais de duas semanas.

Obrigado

Já morei na tua terra.

Abraços

Bom dia
Finformatica, estou perplexo com a sua dúvida em cascata. Primeiro, julguei que era sua dúvida; depois, disse-me que era para ajudar um colega; depois, era para também tirar sua dúvida; depois, ficou esclarecido; agora, ainda anda a dúvida.
Fico sem saber se tem a dúvida ou se está a ajudar a tirar a dúvida

Caro Alexandre,

Vou tentar ser mais explícito ao repeti o que já citei. Fazendo um breve histórico: alguns dias atrás um amigo nosso aqui do fórum postou uma questão em que queria ver como fazer uma consulta ou um código para resolver seu problema. Fiz a consulta, enviei, fiquei tentando fazer o código. Como não estava dando certo, pedi ajuda aqui. Neste decorrer o amigo que tinha o problema deu sua questão como resolvida. Mesmo assim continuei com minha dúvida (o código) que me interessei para aprendizado próprio.
O segundo caso, tentando ajudar outro amigo daqui (tem uma planilha Excel e quer converter para Access, que a princípio eu nem sabia) pediu para fazer uns cálculos de uma coluna baseada em outra. Criei uma tabela e comecei fazer o solicitado. Feito essa coluna pediu a terceira coluna baseada na primeira e segunda, fomos fazendo. Depois enviou-me a planilha e tem muitas colunas ainda para calcular. Na medida que vou tentando fazer tem partes que não consigo e peço ajuda aqui. São coisas bem parecidas, relacionadas a uma mesma planilha, cálculos diferentes. Com isso vou aprendendo e muito. Mesmo resolvendo de um modo quero ver como faz de outro modo, Aprendizado.
Inclusive já teve sugestões que recebi daqui usando função, sql, consulta, tentei converter tudo para código e ainda não consegui. É o pedido acima.
Espero que tenha me entendido. Estou querendo aprender mais, usando essas dúvidas vou exercitando, ajudando, aprendendo.

Muito grato pela compreensão.

Grande abraço

Caros Amigos,

A solicitação acima já consegui resolver. Muitos grato a todos que tiveram paciência comigo e me ajudaram. Só resta a forma correta de definição de Dim GuardaValorX(100) As Long.

Muito grato

Grande abraço