[Resolvido]UPDATE Caixa Texto para Tabela

Boa tarde

Alguém pode gentileza poderia me tirar 1 duvida.

No meu formulário tenho 4 campos em caixa de textos, eu preciso que os 4 campos faça update na tabela de venda onde existe os mesmo 4 campos nessa tabela.



Obrigado

O que você quer fazer é usar um formulário desvinculado para enviar os dados basicamente deverá executar um update.
veja os tópicos :

" https://www.maximoaccess.com/t12754-resolvidoformulario-desvinculado"

"https://www.maximoaccess.com/t33047-resolvidoformulario-desvinculado" E muitos outros bons exemplos aqui no fórum.

Também podes fazer via consulta acréscimo ou exclusão apontando os campos do formulário.

Veja este anexo : "https://www.maximoaccess.com/download?id=21644" , neste exemplo uso uma consulta update direto no formulário.


Você escolhe qual melhor forma eu usava muitos essas consultas antes ter familiariedade com vba e são funcionais.

Desculpe santa ingnorancia tentei absorver tudo oque vc me passou mas não consegui nada

Me.KM.Value = Me.txtkm
Me.KM.Requery

Da erro de compilação.

Tentei também comando abaixo:

Dim rs As ADODB.Recordset --> Erro de compilação: O tipo definido pelo usuario não foi definido
Dim strSQL As String

strSQL = "SELECT * FROM VENDA "

Set rs = CreateObject("ADODB.Recordset")
rs.Open strSQL, CurrentProject.Connection

If Not rs.BOF Then
Me.txtkm = rs("km")
Me.txtplaca = rs("placa")
Me.txtmodelo = rs("modelo")
Me.txtserviços = rs("obs")
End If
rs.Close
Set rs = Nothing

Sem problemas, estamos todos a aprender aqui. Assim que possível te posto exemplo , na verdade existem muitas formas se fazer u. Formulário desvinculado, a forma mais simples é usar o comando insert current DB, veja : " https://www.maximoaccess.com/t80-resolvidosformas-de-inserir-e-carregar-dados-por-meio-de-formularios-desvinculados"
Amanhã posto exemplo detalhado.

Obrigado, aguardo seu exemplo amanha então.

Conforme prometido segue o exemplo, fiz de duas formas em vba e com macro chamando uma consulta  acréscimo , note que o segundo só funciona se a tabela destino tiver pelo menos um registro. Esse exemplo é útil se for usar um aplicativo web , que não roda vba.
Abaixo segue exemplo movido para repositório
Exemplo repositório de exemplos

Aconselho este tópicos abaixo para maior entendimento.
"https://www.maximoaccess.com/t80-resolvidosformas-de-inserir-e-carregar-dados-por-meio-de-formularios-desvinculados.                                                 "https://www.maximoaccess.com/t11117-mover-registro                                                                          
"https://www.maximoaccess.com/t16834-resolvidonavegacao-no-formulario-via-modulo-vba"

Os nomes dos campos na tua tabela estaão em letras maiúsculas e você colocou em letras minúsculas.
Editado para melhor entendimento, para futuras pesquisas. Usei exemplo aqui do fórum créditos no código 28.11.201915:24:08

Código:


'http://www.maximoaccess.com/t12754-resolvidoformulario-desvinculado Mensagem nº 9
'by JPAulo
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("tbl_Servicos")
If Not rs.BOF Then
rs.AddNew
rs![Quilometragem] = Me.txt_km.Value
rs![Modelo] = Me.txt_Modelo.Value
rs![Serviços] = Me.txt_Serviços & "  " & "Registrado com ADO"
rs.Update
End If
rs.Close
Set rs = Nothing
Beep
'Mensagem para avisar que registro foi salvo com sucesso
MsgBox " Arquivo Salvo com Sucesso"
'Limpa os campos
Me.txt_km.Value = ""
Me.txt_Modelo.Value = ""
Me.txt_Serviços.Value = ""
'Move foco para campo inicial
Me.txt_km.SetFocus
End Sub



Erro persiste nada grava

Bom día Paulo!

Envie seu formulário e banco de dados que tem os campos e eu o ajudarei a resolver o problema.

Saludos

Via atualização SQL VBA UPDATE

Código:


CurrentDb.Execute "UPDATE [Venda] SET ValorPago = " & Me.txtPago & " WHERE [codVenda] = " & Me.txtCodigoVenda & ";"
CurrentDb.Execute "UPDATE [Venda] SET KM = " & Me.txtkm & " WHERE [codVenda] = " & Me.txtCodigoVenda & ";"
CurrentDb.Execute "UPDATE [Venda] SET MODELO = '" & Me.txtmodelo & "' WHERE [codVenda] = " & Me.txtCodigoVenda & ";"
CurrentDb.Execute "UPDATE [Venda] SET PLACA = '" & Me.txtplaca & "' WHERE [codVenda] = " & Me.txtCodigoVenda & ";"
CurrentDb.Execute "UPDATE [Venda] SET OBS = '" & Me.txtserviços & "' WHERE [codVenda] = " & Me.txtCodigoVenda & ";"


Código chamando Consulta

Código:


DoCmd.SetWarnings False
DoCmd.OpenQuery "Venda Consulta", , acReadOnly


SQL da Consulta
Obs: Este sql é do modo design da consulta. Não funciona no vba deve ser chamado com o código acima "DoCmd.OpenQuery "SuaConsulta",,acReadOnly

Código:


UPDATE Venda SET Venda.ValorPago = [Formulários]![FVenda]![txtPago], Venda.KM = [Formulários]![FVenda]![txtkm],
Venda.MODELO = [Formulários]![FVenda]![txtmodelo], Venda.PLACA = [Formulários]![FVenda]![txtplaca],
Venda.OBS = [Formulários]![FVenda]![txtserviços]
WHERE (((Venda.codVenda)=[Formulários]![FVenda]![txtCodigoVenda]));


Maicon

Parabéns, deu certo.

Muito obrigado.

Vlw mesmo atenção.