[Resolvido]Atualizar Tabelas via Botão no Formulário. VBA

Estou utilizando uma tabela pra atualizar duas tabelas... fazendo IF no comando abaixo com uma caixa de seleção...

porém não estou tendo exito na atualização....

o nome da Tabela que quero lançar as atualizações é TBL_UPDATEPRECOS
nela tem os campos:
CodAlfatec - Chave Primária que não se repete para códigos dos produtos
Preço - que é o mais importante feito semanalmente

tenho outra tabela chamada TBL_PRECOS nela contem os mesmo campos
CodAlfatec - Chave Primária
Preço

afinal o que eu quero é que "TBL_PRECOS" receba os valores de "TBL_UPDATEPRECOS" nos dois campos CodAlfatec e Preço

Estou utilizando código abaixo: por gentileza me ajudem acredito que seja SELECT INTO porém não to sabendo fazer....

' atualizar preços para tabelas A e B conforme selecionado
Me.Refresh
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("TBL_UPDATEPRECOS")
rs.MoveFirst
Do While Not rs.EOF
CurrentDb.Execute "UPDATE TBL_PRECOS SET Preço = '" & rs!Preço & "' WHERE CodAlfatec = '" & rs!CodAlfatec & "'"
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
MsgBox "Todas as Cartas de Preços prontas foram atualizadas com os preços atuais.", vbInformation, "Mensagem"

Olá, colega!

Você já tentou lançar os dados através de uma consulta de atualização? Pois com ela, você conseguiria atualizar os dados para as demais tabelas.

Se possível, poste um exemplo para fazer os testes.

' atualizar preços para tabelas A e B conforme selecionado
Me.Refresh
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("TBL_UPDATEPRECOS")
rs.MoveFirst
Do While Not rs.EOF

'CurrentDb.Execute "UPDATE TBL_PRECOS SET Preço = '" & rs!Preço & "' WHERE CodAlfatec = '" & rs!CodAlfatec & "'"

CurrentDb.Execute "UPDATE TBL_PRECOS SET CodAlfatec = '" & rs!CodAlfatec & "',Preço = '" & rs!Preço & "'"

rs.MoveNext
Loop
rs.Close
Set rs = Nothing
MsgBox "mensagem padrão", vbInformation, "Mensagem"



Olá bem eu bati cabeça ontem e fui dormir um pouco tarde, e descobri que essa confusão toda é por causa do WHERE, depois que removi está funcionando normalmente.