[Resolvido]Loop atualizar saldo produtos

Amigos, estou precisando fazer um Loop para atualizar o estoque mínimo de uma tabela "Produtos" baseado em uma consulta "qrynecprod" que apura a quantidade de produtos, o campo referencia da consulta "qrynecprod" denominei de "servico" neste campo está a identificação do produto "chave primaria da tabela Produtos", e o campo de referencia da tabela "Produtos" denominei de "identificação" que é a chave primaria.

Abaixo o código que desenvolvi, porém não esta funcionando corretamente atualiza somente o primeiro produto.

Código:


Private Sub Comando0_Click()
Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("qrynecprod")

Do While Not rs.EOF
    CurrentDb.Execute "UPDATE [Produtos] Set [nível-alvo] = " & rs(2) & " WHERE identificação = '" & rs!servico & "'"
rs.MoveNext
Loop
MsgBox "Pronto"
End Sub



Boa tarde,
Confira os dados que obedecem ao critério de execução do código

Prezado Alexandre, o problema realmente esta no critério, mas não consegui localizar onde, anexei o bd, pode me ajudar.

Desde já agradeço.

Boa tarde,
Só tem 1 produto com a identificação=7

sim, cada produto tem um número diferente.

Repare:
Vai buscar os dados à consulta para actualizar a tabela.
A consulta tem apenas o produto 7.
Ele só faz o que lhe manda.
A consulta está bem? se não estiver, adapte-a

Sim, a consulta é a base para atualizar a tabela, a consulta esta só com o produto 7 mas podem ter vários, isso que quis dizer, a medida que tiver outros produtos na consulta o Loop deverá atualizar a tabela de acordo com o número.

Mas actualiza o produto 7? se sim, está certo e a correcção tem de ser efectuada ao nível da consulta

Atualiza o campo "Nivel-alvo" da tabela Produtos baseado no campo "SomaDequantidade" da consulta qrynecprod.

Alguém pode me ajudar?

Jose

Olhei teu exemplo e verifiquei que a consulta atualização está funcionando legal.
O loop ainda não existe, pois a consulta qrynecprod retorna somente 1 registro (código 7).
Então coloquei o "APROVADO"  no primeiro item da tabela proposta, o código do botão
atualizou o nivel-alto para 30 e 54 respectivamente.

Acrescente a linha em azul no código:

Noob escreveu:

Set rs = CurrentDb.OpenRecordset("qrynecprod Consulta")
rs.MoveFirst
Do While Not rs.EOF
   CurrentDb.Execute "UPDATE [Produtos] Set [nível-alvo] = " & rs(1) & " WHERE identificação = " & rs!servico
rs.MoveNext
Loop
MsgBox "Pronto"
End Sub

Abraços

Noob

Valeu amigo, obrigado! O erro esta ocorrendo devido a falta da linha: rs.MoveFirst , muito obrigado!.

Resolvido.

Valeu o retorno, amigo


Boa sorte !!

Noob