[Resolvido]Fonte de controle

Numa sub Form "Compras", tenho um campo chamando "precoCompra", ao ser carregado este form, como sua fonte de controle = preçoCompra ( da TabCad_produto) o valor aparece o informado que esta na tabela especifica.
Porem nessa TabCad_Produto, eu tenho outro campo chamado "precoCompra_Novo".

Eu gostaria que quando o Form "Compras" fosse carregado e caso eu modificasse o valor de "precoCompra", inserindo o valor de "precoCompra_Novo", este valor fosse gravado no campo da tabela de nome "precoCompra_Novo, sem que o "precoCompra"se modificasse.

Isso é possivel ?

Se vc ja possui o campo na tabela, porque nao colocar um campo oculto no formulario e quando for alterar o valor ele surge tipo

No formulario

VlrCompra :
largura= 3cm

VlrCompraNovo:
largura= 0cm
Esquerda= 3,598cm

Seuproximocampo:
Largura= 3cm
Esquerda=3,598cm

no evento "ao clicar duas vezes" do campo VlrCompra coloque algo do tipo

Me.VlrCompraNovo.Width = 1701
Me.Rótulo6.Width = 1701
Me.Seuproximocampo.Left = 3797.77
Me.Rótulo6.Left = 3797.77

assim vc tera os visão dos dois campos no formulario. E lembre-se que as medidas sao exemplo e deve adpta-las conforme sua necessidade.

Ola

Nao tenho este novo campo na tabela ( tbl_comprasSub.precoCompra_Novo ), so tenho o precoCompra.

Na verdade quero criar uma macro caso eu mude o valor, ele nao altere o valor que ja esta em precoCompra, mas crie um novo valor em precocompra_Novo.

Na macro abaixo, ele faz isso, mas grava o valor, nao no cod do produto que estou atuando, mas grava no primeiro codigo da Tabela Cad_Produto.

Código:



Private Sub PrecoCompra_AfterUpdate()

If MsgBox("Deseja Alterar o Valor desse Produto?", vbYesNo + vbInformation, "Finalizando") = vbYes Then

Dim bc As Database

'Nessa Parte vc pode declarar com qualquer nome, geralmente eu uso o proprio nome da tabela que quero inserir as informaçãos, ou abrevio ela, tanto faz.

Dim Tab2 As Recordset

'Inicializa os Valores das Variaveis

Set bc = CurrentDb()
Set Tab2 = bc.OpenRecordset("TblCad_Produto")

'Cria Um novo Registro
Tab2.Edit
'No Novo Registro Insere Os Dados que vc Deseja

Tab2!PrecoCompra = Me.PrecoCompra
'Tab2!NomeDoCampo2 = Me.NomeDoCampo2

'Atualiza Tabela
Tab2.Update

End If

End Sub




acho que o ideal seria fazer atraves de um comando DoCmd.RunSQL, mas nao sei fazer.

consegui aqui fazer

DoCmd.RunSQL "UPDATE tblcad_Produto Set [tblCad_Produto].[precoCompra_Novo] = '" & Me.PrecoCompra & "' WHERE [tblcad_Produto].[idProduto] = " & Me.CodigoProduto.Value & ""


Andre

Que bom que resolveu,

So deixar uma dica, seja mais claro nas postagens (isso as vezes acontece mas leva mais tempo do deveria para solucionar).

voce primeiro postou:

"Numa sub Form "Compras", tenho um campo chamando "precoCompra", ao ser carregado este form, como sua fonte de controle = preçoCompra ( da TabCad_produto) o valor aparece o informado que esta na tabela especifica.
Porem nessa TabCad_Produto, eu tenho outro campo chamado "precoCompra_Novo". "

Depois

"Nao tenho este novo campo na tabela ( tbl_comprasSub.precoCompra_Novo ), so tenho o precoCompra.

Na verdade quero criar uma macro caso eu mude o valor, ele nao altere o valor que ja esta em precoCompra, mas crie um novo valor em precocompra_Novo."