[Resolvido]Copiar dados de um campo calculado do form para um campo na tabela.

Boa Noite, e a primeira vez que estou postando, tenho pouca experiência em access principalmente em vba, mas estou desenvolvendo um BD para gerenciar uma escola e entre outras me deparei com um desafio: fazer com que os dados de um campo calculado sejam gravados em um campo da tabela. ex: tenho os seguintes campos calculados no form juros: [ValorMora] e [ValorMulta] ,que queria que fossem gravados em dois campos na tabela que originou esse form, como faço isso. Se alguém puder me ajudar ficarei grato pela atenção.

Bom dia Tony, seja bem vindo ao Fórum.

Podes efetuar os cálculos via VBA direcionando-os aos respectivos campos no form onde ficam a gravar na tabela...

Post os cálculos para que possamos ajudá-lo com isso.

Cumprimentos

Boa tarde Harysohn, no momento estou no trabalho e não tenho o BD aqui comigo, logo que puder lhe enviarei o form com os cálculos.
Obrigado pela atenção.

Tony Arruda

Boa Tarde Harysohn,

Ai vai os campos calculados:
Campos Calculados: [Mora/Dia]=nz([Juros])/30 :(calcula a taxa cobrada por dia.)
[Valor da Multa]=nz([Multa]*[ValorParc]/100):(calcula o valor da multa por dia)
[Valor da Mora]=nz([MoraDia]*[ValorParc]/100):(valor em R$ da mora por dia)
[Total da Mora]=nz([Juros]/30)*nz([DiasUteis]):(quant. de juros por dia útil)
[Valor total]=Nz([TotalMora])+nz([ValorMulta])+nz([ValorParc])
Bem, o que eu queria era gravar os valores dos campos [TotalMora] e [ValorMulta] na tabela nos campos com o mesmo nome para usá-los em consultas, relatórios e etc.

Se precisar eu posto o form onde estão estes campos.

Deus o abençoe e um abraço.

Amigao.. se puder poste parte do BD para que eu possa aplicar a solução...

Grato

Harysohn, estou enviando dois formulários e suas tabelas se algum campo dê erro é porque não enviei as funções dos cálculos dos campos DIAS UTÉIS e INFORMAÇÕES do Form_Alunos Inadimplentes que diz se a parcela etá em atraso porque o arquivo ficou grande, se precisar eu lhe enviarei.
A paz e boa tarde.

Coloque com as funções para não dar erro amigão, e me envie no e-mail
Harysohn@hotmail.com

Saudações

Harysohn,
boa noite, vc recebeu o meu e-mail com o BD?

Estarei olhando agora... Por favor.. qual o form e o problema?

Cumprimentos

Bem, o Form que tem aquele desafio que estamos tentando resolver é o form_Juros, ele esta vinculado ao formulário tabinadimplentes e é ativado quando insere uma data de pagamento com atraso no campo [DataPagamento.
O caminho é esse: Menu principal=>Cadastro=>Cadastro de pagamentos.
Mais uma vez obrigado pela atenção.

E Qual o problema?

E por favor.. se refira sempre a nome de forms e não de botões...

Voce não tem nenhum form Menu Principal

Amigão.. Fiz a alteração para o campo Mora/Dia...

Observe:

1 - Alterei o campo na tabela para:
Duplo
Casas Decimais 2

Pois como o campo cauculado é decimal, o campo na tabela que receberá este valor tem que estar compatível com a informação...

Acrescentei o campo txtMora no form (Logo abaixo do mora/dia) podes deixá-lo em oculto depois)
ou mesmo deixá-lo visível e o campo com o cáuculo em oculto

No Campo Juros no form:

Private Sub Texto52_AfterUpdate()
MsgBox ("Juros acrescidos com sucesso.")
Me.Recalc
Me.txtMoraDia = Me.MoraDia
End Sub

Siga o mesmo passo para os demais.

http://dl.dropbox.com/u/26441349/TonyArruda_05_09_11.rar

Cumoprimentos

Harysohn, Boa tarde
vc me reenviará o BD que lhe mandei com as alterações feitas?

Boa tarde Tony, não lê os post's?????

Boa Noite Harysohn, não tive tempo de lê-los, mas agora li e acabei de testar, ficou ótimo, era o que eu queria , muito obrigado, espero poder contar com sua ajudar quando precisar.

Tony Arruda

O Fórum agradece o retorno..


Boa Noite

Qual o outro problema amigão?

Mas onde se insere a data de pagamento???

Dias Uteis...

http://dl.dropbox.com/u/26441349/TobyArruda_06_09_11.rar

Cumprimentos

Boa noite Harysohn,
Desculpe a demora, por enquanto só estou Tendo acesso em casa. Acabei de testar e deu certo, mais uma vez obrigado pela atenção.

Bem então creio que resolvemos este tópico, faltou apenas clicar em resolvido ai abaixo...

Cumprimentos.

Então mais uma vez obrigado.