[Resolvido]venda x alteracao preco

ola pessoal

tenho um formulario de venda com as seguintes tabelas

esse SQL e da ItemVenda

SELECT tblItemVenda.CodPro, tblItemVenda.CodVenda, tblProduto.CodigoProduto, tblProduto.Estoque, tblProduto.Descricao, tblProduto.PrecoVenda, tblItemVenda.Quantia, tblProduto.PrecoCusto
FROM tblProduto INNER JOIN tblItemVenda ON tblProduto.CodPro = tblItemVenda.CodPro;

bom vamos para a oportunidade , quando altero o preço de uma item no cadastro de produto
altero o do relatorio de produtos vendidos

minha ideia seria , gravar em um tbl separada esse do SQL , mas so tem uns detalhe
na tabela nao pode aceitar itens duplicados exemplo

estoque EAN Descricao qtd P.Venda P.Custo Subtotal
venda dia 29/10/2011 , 33 - 7892252222223 - racao dog 500gr - 3 4,50 - 3,50 = 13,50

esse seria minha venda , eu mostro o preço de custo , porque depois eu crio uma estatistica entre a venda e o custo

ola pessoal

consegui resolver com esse codigo
On Error GoTo Err_CodPro_AfterUpdate
Me.CodPro.Requery
Me.Descricao = Me.CodPro.Column(2)
Me.PrecoVenda = Me.CodPro.Column(3)
Me.Estoque = Me.CodPro.Column(5)
Me.PrecoCusto = Me.CodPro.Column(4)
Me.Quantia = 1
'Me.Quant.Enabled = True
Me.Quantia.SetFocus
Me.Refresh
Exit_CodPro_AfterUpdate:
Exit Sub
Err_CodPro_AfterUpdate:
MsgBox Err.Description, vbCritical, "Erro Indeterminado"
Resume Exit_CodPro_AfterUpdate

funcionou tanto para o formulario de venda como o de entrada

muito obrigado a todos