[Resolvido]Inserir dados numa tabela a partir de uma caixa de texto não acoplado

Pessoal. Preciso da ajuda dos mestres. Me ajudem, por favor.
Criei um formulário baseado em uma tabela e preciso, através de uma caixa de texto não acoplada, inserir dados em um campo denominado valor em outra tabela a partir desse formulário, como faço isso?
Resumindo: formulário principal, baseado na tabela 1, tem um campo não acoplado (txtValor), quero inserir o valor no campo Valor da tabela 2.
Me ajudem por favor.

Olá Alexnilto Sousa,

Pode usar diretamente a Instrução SQL.
Exemplo para adicionar um registo:

Código:

DoCmd.RunSQL "INSERT INTO SuaTabela ( CampoDaTabela ) SELECT " & Me.txtValor & ";"

Se for para atualizar, use o UPDATE.

Não falta exemplos no fórum, se tiver dúvidas efetue uma "Busca", veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Abraço

Ahteixeira, por favor, Voltando a este assunto antigo:
Pelo que entendi, se eu tenho um formulário com um campo AB “não acoplado” (esse campo tem a soma de um sub deste formulário), tenho como enviar o valor desde campo AB para uma nova tabela que pretendo criar?
Obrigado!

Boa Noite Carlos!!

Use o mesmo código que o Alexandre está mostrando, que servirá também.

att;Sidney

Realmente o código funcionou. Criei um botão no formulário onde tenho o campo não acoplado, evento ao clicar e coloquei o código:
DoCmd.RunSQL "INSERT INTO SuaTabela (CampoDaTabela) SELECT " & Me.CampoNãoAcoplado & ";"

Obrigado a todos!

Olá a todos,

Carlos Cruz, obrigado pelo retorno, fico feliz por ter resolvido.

Alexnilto Sousa, abriu o tópico e não deu qualquer feedback nem encerrou o tópico.
Vou dar o tópico como resolvido, uma vez que ficou comprovada a eficácia da dica.

Abraço a todos

Teixeira, desculpe reabrir novamente este tópico, realmente consegui inserir o valor do campo AB “não acoplado” numa tabela, mas o erro que agora está apresentando é “Campos não coincidem”.

Já verifiquei todos os campos envolvidos nas tabelas e formulários, fiz vários testes. O que está causando o erro são valores dos formulários que nascem de uma função que geram valores automaticamente, mesmo estes campos estando como Moeda com 2 casas decimais ou automático, ocorre este erro.
Uma das linhas do comando que faz nascer um valor a receber está assim:

rs("ContasRec_Vlr") = Round(Me.VlrOrc / Me.QuantPcVC, 2)

Desta forma o campo mostra o valor com 2 casas decimais, mas o sistema entende que existe mais casas, causando o erro, por exemplo:

24,20 / 4 = 6,05 sem dúvida é um valor com 2 casas decimais, sem problema, não ocorre erro.

133,33 / 4 = 33,3325 no campo AB mostra com 2 casas decimais 33,33 mas ocorre o erro “campos não coincidem”

A solução “se é que existe” seria eu criar um novo campo AB, com uma função para somar o outro campo AB que está ocorrendo o erro, mas formatando o novo campo AB para moeda 2 casas, para o sistema eliminar as demais casas e não fique apenas escondido.

Desde já agradeço e peço desculpas por tantas palavras!

Olá Carlos,

Normalmente não passamos campos calculado, calculamos quando neçessario.
Mas pode haver casos que necessitamos apenas do campo calculado numa tabela e não temos os campos origem.

Quanto à questão fiquei com dúvida de que forma está alimentar a tabela de vida recordeset ou sql.

Mostre o código que está a utlzar é a linha onde está ocorrer o erro.
O ideal seria a base de dados com a parte envolvida na questão para se testar.

Abraço

ahteixeira, obrigado pelo retorno. Sei que fica difícil pela complexidade particular dos meus códigos, acho que vou alterar na origem do valor no meu banco de dados. De qualquer forma passo abaixo o código que gera parcelas a receber, mas não se preocupe, vou tentar de outras maneiras. Obrigado pela atenção e dicas. Abraço!

O código onde gera o valor é um botão que tenho no formulário, ele pega o valor da venda e divide pela quantidade de parcelas, e gera parcelas no contas a receber com 2 casas decimais, mas a soma destas parcelas em um campo AB não consigo exportar para outra tabela, erro: campos não coincidem, já fiz várias alterações no campo da tabela e no AB, tipos de campos, casas decimais etc inclusive neste campo se digitar o valor com 2 casas aí sim consigo exportar, mas quando gerado pelo código não!

Código:

If DLookup("ContasRec_Parc", "Tab_82VCTG", "(ContasRec_NrOrc) = " & (VendaCli_NrOrc)) = 1 Then
MsgBox " PARCELA JÁ CRIADA PARA ESTE NÚMERO DE DOCUMENTO ", vbInformation, "CALCULO PARCELAS"
Exit Sub

ElseIf (Me.VlrOrc > 0) And (Me.QuantPcVC > 0) Then
Dim db
Dim rs
Dim I   As Integer
Set db = CurrentDb()
Set rs = db.OpenRecordset("Tab_82VCTG")
For I = 1 To Me.QuantPcVC
rs.AddNew
rs("ContasRec_NrOrc") = Me.VendaCli_NrOrc
rs("ContasRec_PesqCatCliFor") = Me.VendaCli_PesqCatCliFor
rs("ContasRec_PesqCliFor") = Me.VendaCli_PesqCliFor
rs("ContasRec_QuantParc") = (Me.QuantPcVC)
rs("ContasRec_Parc") = I
rs("ContasRec_Vlr") = Round(Me.VlrOrc / Me.QuantPcVC, 2)    

'Aqui ele pega o valor do orçamento e divide pela quantidade de parcelas, gera o valor de cada parcela
'Quando feito pelo código o sistema entende várias casa decimais, preciso que seja apenas 2 casas.

rs("ContasRec_Vcto") = DateAdd("m", I - 0, InfDataEmiVC)

rs.Update
Next
rs.Close
db.Close
Me.SubFrm_82VCTG.Requery
Me.QuantPcVC.SetFocus
Else
End If

Olá,

Tente assim:

Código:

rs("ContasRec_Vlr") = CCur(Round(Me.VlrOrc / Me.QuantPcVC, 2))

Por curiosidade, qual é tipo de dados do campo ContasRec_Vlr.

Também pode tentar o format.

Abraço

ahteixeira, obrigado pelo retorno!

Seu código também cria parcelas, mas o problema das casas decimais continuam os mesmos. Dados dos campos são todos moedas 2 casas decimais.

Por gentileza se voce puder analisar o pequeno banco de dados anexo, nele poderá testar o erro.

No   Frm_Consulta_Tab_Bancos   tem um botão com comando para exportar o valor do campo AB para a Tab_RecebeVlrCampoAB   resulta no erro

Obrigado, desculpe tanta insistência minha, mas é muito importante para mim, tentei de muitas formas, sem sucesso.

Se todo este processo é apenas para enviar a soma de uma coluna da consulta para um campo da tabela, pergunto:

Teria como criar um novo campo na consulta com a soma de uma coluna da consulta, como saldo acumulado, utilizando “critério” ou “agrupar” a soma de todas as linhas em apenas uma linha?
Não sei se consegui explicar?

Por favor, coloco-me a disposição para maiores esclarecimentos.

Obrigado a todos!

Olá Carlos,

Estou agora a ver, afirma o seguinte:


Com base no ficheiro que partilhou, se pretendermos atualizar todos os registos automaticamente do campo TabBco_Vlr da tabela Tab_Bancos, podemos fazer com uma consulta atualizar.

No exemplo que partilhou, crie uma consulta e coloque o código abaixo e teste o resultado:

Código:

UPDATE Tab_Bancos SET Tab_Bancos.TabBco_Vlr = Round([TabBco_Vlr],2);

Abraço

Olá de novo,

Se compreendi bem para adiconar, crie outra consulta e cole o código abaixo:

Código:

INSERT INTO Tab_RecebeVlrCampoAB ( Tab_Bancos_Vlr ) SELECT IIf([TabBco_DC]="C",Round([TabBco_Vlr],2),Round([TabBco_Vlr],2)*-1) AS VX FROM Tab_Bancos;

Neste caso é uma consulta adicionar, verifique.

Meu teste:
cld.pt/dl/download/19509749-b8cf-4119-8ad1-9d701cc7e3fd/PLANEJADO_rev.zip

Abraço

Nos códigos colocados neste tópico, tomar cuidado:
Com aspas quando campo texto, sem aspas quando campos numéricos.
Abraço a todos!