[Resolvido]Corrigir BD / Consulta

Senhore(a)s
Boa noite.

Preciso corrigir valores nulos em meu BD e não estou conseguindo.
Peguei diversos exemplos de códigos aqui no forum. Trabalhei o dia todo tentando adaptar um código fornecido pelo mestre JPaulo para um outro problema similar e não obtive êxito.

Resta-me, mais uma vez, recorrer aos amigos aqui do forum.
Até explicar o que preciso está complicado, portanto posto parte de meu BD, onde no formulário de abertura tento explicar o que preciso.

Muito obrigado a todos pela atenção

Abraços

Olá,

Se você transformar ATU_1_ApuraCusto_02 em uma consulta do tipo "criar tabela", executar essa consulta para gerar a tabela e substituir ATU_1_ApuraCusto_02 na Consulta1 pela tabela criada, a consulta torna-se atualizável.

Se precisa executar apenas uma vez, resolvido. Se vai atualizar regularmente, seria necessário uma programação para automatizar esse processo.

Ola Luiz e Claudio;

É exatamente igual ao outro que fiz para si;


Private Sub Comando10_Click()
Dim db As DAO.Database
Dim rst1 As DAO.Recordset, rst2 As DAO.Recordset
Dim x As Integer
On Error Resume Next
Set db = CurrentDb
Set rst1 = db.OpenRecordset("SELECT Periodo,Produto,CustoUnitário,CódigoPedido FROM ATU_1_ApuraCusto_02 ")

x = rst1.RecordCount

Do While Not rst1.EOF

If rst1.BOF = False Then

Set rst2 = db.OpenRecordset("SELECT Código, Produto, ProdutoCustoUnitário FROM [Emissão Pedido Sub de Produtos] WHERE Código =" & rst1("CódigoPedido") & " and Produto = '" & rst1("Produto") & "' ORDER BY Código")

If rst1.BOF = False Then
rst2.Edit
rst2("ProdutoCustoUnitário") = rst1("CustoUnitário")
rst2.Update
End If
rst1.MoveNext
End If
Loop
MsgBox "Atualizados " & x & " Registros...", vbInformation
rst1.Close
rst2.Close
Set rst1 = Nothing
Set rst2 = Nothing
End Sub

Boa tarde, JPaulo.
Mais uma vez, agradeço sua atenção amigo.

Ontem trabalhei bastante no código que me forneceu, do outro exemplo, mas não consegui adpta-lo ao que preciso agora. O código que forneceu agora, assim como o BD que postou, não atualizam corretamente. Vou tentar explicar:

Notei que você adicionou a consulta "ATU_1_ApuraCusto_01" o campo [Código]. A consulta tem por objetivo apurar o preço médio de compra por Mês/Ano de cada produto. Ao inserir o campo [Código] na consulta, deixei de ter o preço médio e passei a ter o preço de compra de cada produto por pedido, ou seja uma informação que já tinha.

Foram excluídas do BD as consultas "ATU_0_RecebeDados_01" e "ATU_0_RecebeDados_02". Estas consultas tinham por objetivo filtrar os pedidos que devem ser alterados na tabela "Emissão Pedido Sub de Produtos".

Estou tentando adaptar este novo código, mas não estou conseguindo.

Não sei se consegui me expressar bem.

Obrigado

Você quer atualizar a tabela "Emissão Pedido Sub de Produtos", com a consulta "ATU_0_RecebeDados_02", mas esta consulta devolve o campo ProdutoCustoUnitário vazio (Nulo), então não entendo o que pretende atualizar.

Qual a consulta deve atualizar a tabela ?

A consulta que deve atualizr a tabela é "ATU_1_ApuraCusto_02", porém, nela não pode conter o campo CódigoPedido, pois aí não consigo o preço médio de cada produto por mês.

Olá
Cláudio Más.
Peço desculpas! Não havia notado seu post.
Realmente o que preciso é rodar uma única vez para corrigir erros de meu DB.
Sua sugestão de criar uma tabela a partir da consulta parece-me ser viável. Vou tentar e logo posiciono.

JPaulo, peço desculpas pela confusão.
"Se não pedimos direito, também não recebemos direito!"
Vou trabalhar um pouco na sugestão do amigo Cláudio Más.

Obrigado Amigos

Só para registro e esclarecimentos:

Consulta de atualização para corrigir erros do BD.
Consulta a ser utilizada uma única vez.
O problema é que não estava trabalhando com consultas atualizáveis.
A solução veio através da criação de uma nova tabela a partir de uma consulta, sugerida por Cláudio Más.

Amigos
Cláudio Más e JPaulo.
Muito obrigado por sua ajuda e paciência.

Abraços

De nada.
Abs