[Resolvido]Atualizar tabela a partir dos dados de um formulário

Boa Tarde

Pesquisei no fórum mas não sanei minha dúvida, se puderem me ajudar fico grato.

Tenho uma tabela com os seguintes campos:

tb_produto
  id
  prod_custo

Tenho um formulário (frm_NF_prod) com o campo:
  custo_prod

Gostaria de ao clicar no botão salvar, atualizar na tb_produto o campo prod_custo com o valor do formulario frm_NF_prod campo custo_prod
As tabelas estão vinculadas pala id_prod

Se puderem me ajudar, fico grato!

Adelor da Silva - Taió/SC

Fala adelor!!!!

Primeira coisa....
Seu banco de dados é vinculado ou desvinculado????

Comando se a tabela for vinculada...
Basicamente seria...

docmd.runsql "Update tb_produto SET prod_custo = " & me.custo_prod & " WHERE Id_Prod = " & me.id_prod & ";"

Levando em conta que o botão está no form com essas informações....

Tenta lá e vamos ver o que rola!!!!

Desde já agradeço...

abraço a todos!!!!!

Qual seu e-mail, vou enviar o link para você poder dar uma olhada na base completa.

Fala Adelor!!!

Cara, durante o dia, minha net é de celular.... lenta demais!!!!
P/ eu acessar remoto é bem complicado.....

Você chegou a jogar o código no botão da aplicação?????

Se for o caso, carrega um zip com a tabela e o formulário aqui no forum!!!!
Fica até mais facil p/ o pessoal ajudar!!!!

Desde já agradeço....

Abraço a todos!!!!!

Segue link para o download da base completa:

www.metalmaquinas.ind.br/Controle.accdb

Alguém teria alguma sugestão? Aguardo!

Bom dia....

Por favor, a maioria usa o AC2007, salve ele nesse formato e disponibilize o mesmo aqui.

Grato.

Fala Adelor....

Cara, baixei seu formulário e não encontrei nada de errado com o código!!!!

Está acontecendo algum erro quando você clica em salvar????

A única coisa que eu efetivamente alterei, foi na propriedade do botão...
(Botão direito // Propriedades // Evento "Ao Clicar")
No seu formulário, está como [Macro Inserida].... Cliquei na seta e coloquei como [Procedimento do Evento]!!!!

Manda mais detalhes a respeito do que ocorre..... o erro e tal....

Desde já agradeço....

Abraço a todos!!!!!

Um pitaco, Adelor por que você não coloca o código sugerido pelo CrisMaleta no evento "Após atualizar" do seu campo "prod_custo"?

Código:

Private Sub prod_custo_AfterUpdate()
    DoCmd.RunSQL ("UPDATE tb_produto SET prod_custo = " & Me.custo_Prod & " WHERE Id = " & Me.id_Prod & ";")
End Sub

Não esqueça também que se o campo ID for do tipo texto você terá que usar aspas simples seguido de aspas duplas = '", e se for do tipo numérico somente aspas duplas = " !

Talvez isso o ajude! E também só ressaltando o que o amigo CrisMaleta disse, seu evento "Ao Clicar" esta realmente dando algo de errado, verifique e depois retorne!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

No formulário estou utilizando o botão padrão do access para salvar os dados, ao inserir o código DoCmd.RunSQL ("UPDATE tb_produto SET prod_custo = " & Me.custo_Prod & " WHERE Id = " & Me.id_Prod & ";") nesse botão não executa, mas se eu incluir um novo botão dai faz a alteração desejada.

Realmente estava Funcionando CrisMaleta, lamento não ter feito este teste anteriormente!

Alguma dica de como resolver esta questão?

Fala Adelor....

2 opções....

1 - Tentar alterar a propriedade do botão que você já tem pronto.... (como indiquei no comentário...)

2 - Criar um novo botão e jogar o atual no censurado!!!!

Aí fica a gosto do cliente!!!!
hahahahahahahahahahahahahaha

Vai retornando os resultados!!!

Desde já agradeço....

abraço a todos!!!

Alterei o botão conforme sugestão e inclui os seguintes comandos:

DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunSQL ("UPDATE tb_produto SET prod_custo = " & Me.custo_Prod & " WHERE Id = " & Me.id_Prod & ";")
MsgBox "Custo do produto - " & [prod_nome] & " - Atualizado", vbInformation, "Atualização"

Tudo funcionou perfeitamente, agradeço a todos a ajuda!

Adelor da Silva - Rio do Campo/SC

Boa Adelor!!!!

todo mundo feliz agora.....
hahahahahahahahahahaa


Só não esquece de editar o primeiro post e selecionar a opção "Resolvido"!!!!!

Bora pro próximo problema!!!!

Desde já agradeço...

Abraço a todos!!!!!