[Resolvido]Como Armazenar o valor de de uma variável em uma tabela?

Construí o seguinte código para uma evento dentro de um formulário:

Private Sub ValordoPedido__LostFocus()
Dim ValordoPedido As Single
ValordoPedido = InputBox("Digite o valor do fechamento do pedido! ")
MsgBox "Gerou o débito de: " & ValordoPedido, vbOKCancel + vbInformation, "Informação!"
End Sub

Agora não sei como levar do valor da variável "ValordoPedido" para uma tabela no meu banco de dados!!

Boa Noite Julio, seja ve vindo ao Fórum!

Para duas variáveis...

Private Sub ValordoPedido__LostFocus()
Dim ValordoPedido As Single
ValordoPedido = InputBox("Digite o valor do fechamento do pedido! ")
CurrentDb.Execute "INSERT INTO SuaTabela(SeuCampo1, SeuCampo2) Values(""" & SuaVariavel1 & """,""" & SuaVariavel2 & """);"
MsgBox "Gerou o débito de: " & ValordoPedido, vbOKCancel + vbInformation, "Informação!"
End Sub


Para uma apenas exclua o campo2 e a parte SuaVariavel2

Cumprimentos.

Só que ele esta inserindo um novo registro na tabela, e eu quero que atualize o valor no registo que ja esta sendo incluso na tabela pedidos!

Desde já agradeço pela atenção!

Sua tabela tem apenas um registro?

Porque vai precisar de critérios para apontar qual registro irá atualizar...

A instrução utilizada para isto:


DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE SuaTabela SET SeuCampo = " & SuaVariavel & WHERE Campo_ID_DaTabela = '" & Me.SeuCampoIDNoForm & "';"
DoCmd.SetWarnings True

Veja este Link:

http://maximoaccess.forumeiros.com/t1594-instrucoes-sql-como-utilizar

Cumprimentos.

DoCmd.RunSQL "UPDATE Pedidos SET ValordoPedido="&ValordoPedido&" WHERE CódigoPedido=""&me.CódigoPedido"";"

Deu erro na compilação e nao consigo encontrar o erro de sintaxe!
Erro = "Esperado o fim da instrução".

Observe e veja a diferenca:

DoCmd.RunSQL "UPDATE SuaTabela SET SeuCampo = " & SuaVariavel & WHERE Campo_ID_DaTabela = '" & Me.SeuCampoIDNoForm & "';"


Cumprimentos.

Desculpe, mas continua com erro, tem um numero impar de aspas na instrução e 2 aspas simples, ok?


DoCmd.RunSQL "UPDATE SuaTabela SET SeuCampo = " & SuaVariavel & WHERE Campo_ID_DaTabela = '" & Me.SeuCampoIDNoForm & "';"


Grato,

Esta instrução aqui está funcionando perfeitamente:


DoCmd.RunSQL "UPDATE tblProdutos SET tblProdutos.Estoque = '" & SuaVariavel & "'" _
& " WHERE tblProdutos.ID='" & Me.txtID & "';"

Adapte, onde está tblProdutos substitura pela sua tabele
Estoque, substitua por seu campo a ser atualizado
Id, pelo campo da chave primária da tabela
txtID, pela sua caixa texto no form onde fica a informacao da ID do registro

Cumprimentos

Esta atualizando todas as linhas da minha tabela destino, alterando os valores dos pedidos de todos os clientes, sendo que ele me pergunta qual a Id do cliente eu desejo atualizar.

Esta instrução utilizo com 100% de aproveitamento.

Ela apenas atualiza a linha do ID referido

DoCmd.RunSQL "UPDATE tblProdutos SET tblProdutos.Estoque = '" & SuaVariavel & "'" _
& " WHERE tblProdutos.ID='" & Me.txtID & "';"



Quando o campo da chave primaria da tabela for igual ao ID da caixa texto no form..

Estas a fazer algo errado ai ou não colocou completamente na dúvida a sua utilização.


Caso queira disponibilize parte do bd para que possamos ver.

Cumprimentos.

Grato,

Private Sub ValordoPedido__LostFocus()
Dim ValordoPedido As Single
ValordoPedido = InputBox("Favor digite o valor do fechamento do pedido! ")
MsgBox "Gerou o débito de: " & ValordoPedido, vbOKCancel + vbInformation, "Informação!"
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Pedidos SET Pedidos.ValordoPedido = '" & ValordoPedido & "'" & " WHERE CódigoPedido = " & Me.CodigoPedido & ";"
DoCmd.SetWarnings True
End Sub



Cumprimentos.

Resolvido,

Grato!

O Fórum agraece o retorno.

Não se esqueça de clicar no Joinha da Mensagem que o auxiliou.