[Resolvido]Por um campo de uma tabela todos a Zero "0"

Boa noite
Tenho este código para atualizar um campo de uma tabela.
Tentei tirar a linha que está a vermelho para ver se conseguia por todos os registos a zero.
Mas assim só coloca a primeira linha da tabela no campo "UnidadesEmStock" a zero

É possivel por aqui um " Loop " ?

Como ?

'Actualiza Stock
Set DB1 = CurrentDb()
Set RS1 = DB1.OpenRecordset("tblProdutos", dbOpenDynaset)
' RS1.FindFirst "códigodoproduto = " & Me.CódigoDoProduto
RS1.Edit
RS1("UnidadesEmStock") = "0"
RS1.Update
RS1.Close

Set RS1 = Nothing
Set DB1 = Nothing

Obrigado

Boa noite Norberto

Alterei o comando com a sua dica mas não resultou.

Aonde coloco ?

Obrigado

Desculpe Assis,

O sinal de = estava sobrando. Já editei lá em cima.

Coloque em um evento, como ao clicar num botão ...

Norberto

Resolvi com a sua dica

Obrigado e boa noite