[Resolvido]Gravação de dois campos calculados em tabela.

Prezados,

Através do código que segue abaixo, estou tentando fazer a gravação dos campos na tabela, mas sem sucesso. Num outro formulário eu consegui, mas somente usando um campo. Infelizmente não estou sabendo inserir 2 argumentos numa mesma condição. Ficarei agradecido se alguém puder me ajudar.

1 - Os campos do formulário são [valor_pago1] e [vlr_liq_recebido]

2 - Os campos da tabela são [ValorPago] e [ValorLiquidoRecebido]

3 - O código:

Private Sub Form_BeforeInsert(Cancel As Integer)

ValorPago = valor_pago1

ValorLiquidoRecebido = vlr_liq_recebido

End Sub

Novamente obrigado.

A tabela não está vinculada ao formulário?
Caso sim, basta vincular diretamente os campos "[valor_pago1] e [vlr_liq_recebido]" aos respectivos campos da tabela

Olá Marcelo. Obrigado pela atenção.

A questão é que esses campos são resultados calculados. Eu não sei como vincular diretamente os resultados dos dois campos na tabela. Agradeço a ajuda.

Os calculos são feitos com expressão diretamente no formulário ou é feito por VBA?
Em que momento os calculos são feitos?
diga-nos de qual tabela vem cada campo...

Leonardo

Não se usa gravar campos calculados em tabela, isso seria redundância.

O que se faz é usar o cálculo em caixa de texto no formulário ou relatório.

Se pretende usar esses valores em outros formulários/relatórios, faça uma consulta da tabela onde tem os valores a serem calculados e então crie outros dois campos nessa mesma consulta e neles use os cálculos.
Então você poderá usar essa tabela como origem de registro de um formulário/relatório.

Abraços

Bem lembrado Balem...
Complementando minha dica da messagem 2: Caso os calculos sejam feitos em VBA (mas pelo visto não é), basta fazer o que informei na mensagem 2.

Prezados, vou tentar ser um pouco mais específico.

Tenho um FORMULÁRIO cujo nome é contas_receber. Nele tenho os seguintes campos calculados e suas respectivas condições:

1 - ValorPago precisa ser = valor_boleto - valor_desconto
2 - ValorLiqRecebido precisa ser = Valor_pago - despesas_cobranca

Até aí tudo funciona em ordem, mas usando expressão em campos NãoAcoplados. Não sei fazer isso diretamente para gravar no campo da tabela cujo nome é tbl_ctrl_boletos_creceber a não ser usando o seguinte comando nos eventos Antes de inserir e Antes de atualizar do FORMULÁRIO. Já usei esse código em outro formulário e funcionou perfeitamente. A questão central é que não consigo colocar dois campos para serem gravados.

Private Sub Form_BeforeUpdate(Cancel As Integer)
ValorPago = valor_pago1
End Sub

Creio que o que resolveria minha questão é, se fosse possível, a seguinte condição no código que já tentei, mas sem sucesso.

Private Sub Form_BeforeUpdate(Cancel As Integer)
ValorPago = valor_pago1
ValorLiquidoRecebido = vlr_liq_recebido
End Sub

Podes ao invés de campos calculados usar o VBA para tal:

Crie uma função mais ou memos assim:

Function Calcula

Dim VP As Integer
Dim VL As Integer

VP = Me.valor_boleto - Me.valor_desconto
VL = Me.Valor_pago - Me.despesas_cobranca

ValorPago = VP
ValorLiquidoRecebido = VL

End Function


Agora, basta chamar a função no evento mais apropriado:

Call Calcula


Se não der certo (pois não sei da sua estrutura), um DCout acho que dar certinho.

Caso não consiga, poste banco.

Prezado Marcelo,

Consegui resultado positivo usando a função abaixo no Evento Clicar do botão Salvar do formulário, mas isso só passou a gravar os campos disponíveis no código, no caso, os campos calculados. Depois inseri os outros campos da tabela e do formulário respectivamente, mas passou a dar erro de sintaxe, infelizmente.

Código

CurrentDb.Execute "INSERT INTO NomeDaTabela(Campo1DaTabela, Campo2DaTabela, Campos3DaTabela) VALUES('" & Me.Campo1DoForm & "', '" & Me.Campo2DoForm & "', '" & Me.Campo3DoForm & "');"

Teste:

"INSERT INTO NomeDaTabela(Campo1DaTabela, Campo2DaTabela, Campos3DaTabela) VALUES(" & Me.Campo1DoForm & ", " & Me.Campo2DoForm & ", " & Me.Campo3DoForm & ");"

Pois estamos trabalhando com números.

Caso não der certto, disponibilize o banco que tentamos para você.

Prezado Marcelo,

Situação de Antes:

Coloquei o código indicado para gravar somente com os campos calculados. Os campos calculados gravavam e os outros não.

Situação atual:

Coloquei todos os campos da tabela e formulário no código e agora somente os campos calculados (que eram gravados na situação anterior) não estão sendo gravados mesmo retornando erro de sintaxe ao clicar. O pior é que não mostra onde é o erro.

Prezados,

Não é possível esse código que segue abaixo ter duas referências de gravação? Com uma referência só ele funciona perfeitamente, mas a dificuldade é com duas.

Dessa forma funciona

Private Sub Form_BeforeUpdate(Cancel As Integer)
ValorPago = valor_pago1
End Sub

Dessa forma não funciona (pode ser a falta de um item que permita que as duas funções executem. Infelizmente não conheço programação pra saber o detalhe)

Private Sub Form_BeforeUpdate(Cancel As Integer)
ValorPago = valor_pago1
ValorLiquidoRecebido = vlr_liq_recebido
End Sub

Amigo, como eu disse anteriormente, se puder poste seu banco que a situação é muito simples para ser resolvida, mas gostaria de ver coomo está sua estrutura...

Prezado Marcelo e amigos que colaboraram com esse tópico.

Fiz um teste que funcionou perfeitamente.

Inseri as referências ValorPago = valor_pago1; ValorLiquidoRecebido = vlr_liq_recebido no Evento do botão Salvar do formulário. Salvou tudo com sucesso.

Vale lembrar que isso foi tentado no evento Antes de Inserir e Antes de atualizar do formulário, mas sem sucesso.

Segue abaixo o código para exemplo.

Private Sub Comando24_Click()
On Error GoTo Err_Comando24_Click

ValorPago = valor_pago1
ValorLiquidoRecebido = vlr_liq_recebido

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Comando24_Click:
Exit Sub

Err_Comando24_Click:
MsgBox Err.Description
Resume Exit_Comando24_Click

End Sub

Reitero os agradecimentos a todos.

Parabéns, grato pelo retorno!