[Resolvido]Calcular, arrendondar e atualizar na tabela através do evento Ao Fechar do formulário

Boa Tarde a todos neste grande site.

Solicito se possivel ajuda de voces que sao mestre no access.

Tenho duas Tabelas uma se chama Tb_TitularSeguroPessoal e a outras Tb_DependenteSeguro.
Na Tb_TitularSeguroPessoal tem os campos (Id_Cliente, Nome_Cliente, Cap_Segurado, Prêmio, Prêmio_Total etc..) e na tabela seguinte Tb_DependenteSeguro tem os campos (Id_Cliente, Nome_Dependente, Prêmio etcc.).
Elas estão relacionadas pelos Id_Cliente de cada Tabelas.

O Meu grande problema é na Tb_TitularSeguroPessoal o campo Cap_Segurado eu incluo um valor e no campo Prêmio eu pego Cap_Segurado*1,1885/1000 que e o resultado do premio detalhe tem que esta arredondado.

Tenho que pegar o resultado do Premio da Tb_TitularSeguroPessoal e colocar automatico na TB_DependenteSeguro no campo Prêmio com desconte de 50% detalhe tambem tem que esta arredondado, e depois soma o Prêmio (Titular) + Prêmio (Dependente) colocar no campo Prêmio_Total.

Eu nao sei como fazer isso, se for possivel voces poderiam me ajudar.

Certo, mas sua dúvida é de como guardar os dados na tabela ou arredondar os valores? Para guardar tu podes usar o RecordSet e para arredondar podes usar Round.

a duvida sao arredonda e atualizar automatico na tb_dependente.
o problema que nao sei fazer, tenho que pegar o valor do premio na tb_titular e colocar na tb_Dependente tudo automatico conforme a regra que coloquei.

Para arredondar o valor de uma caixa de texto, você pode usar, no evento "Após atualizar" da mesma ou no "Ao clicar" do botão que vai usar para gravar os dados:

Me.NomeCaixaTexto = Round(Me.NomeCaixaTexto, 0)

No botão é mais garantido, pois pode ser que nem sempre você atualize a caixa de texto para que a função entre em vigor.

O 0(zero) no final indica que o número não terá casas decimais. Caso precise delas, basta indicar quantos números terá após a vírgula.

Quanto a gravar os dados, seria interessante saber quais são os critérios para uma melhor orientação.

Os criterios sao.
Ex.Tb_TitularSeguroPessoa
Cap_Segurado e Prêmio
R$38.364,34*1,1885/1000 = R$ 45,60
bom o valor do Prêmio tem que ser o Cap_Segurado*1,1885/1000.
Depois Pegar este valor do Prêmio do Titular e colocar automatico do campo da Tb_Dependente Seguro Campo Prêmio com desconto de 50%.
e Depois soma o Prêmio titular com Prêmio Dependente.

Por favor pode resolver este problema, sei que voces sao mestre em access.

Boa tarde,

Tive algumas dúvida no enunciado, mas vamos lá ver se acerto:

1 - Calcular tb_TitularSeguro.Prêmio=tb_TitularSeguro.Cap_Segurado*1.1885/1000, arredondado
Currentdb.execute "UPDATE tb_TitularSeguro SET Prêmio=Round(Cap_Segurado*1.1885/1000,2);"

2 - Calcular tb_DependenteSeguro.Prêmio=tb_TitularSeguro.Prêmio * 50 % arredondado
Currentdb.execute "UPDATE tb_TitularSeguro LEFT JOIN tb_DependenteSeguro ON tb_TitularSeguro.Id_Cliente=tb_DependenteSeguro.Id_Cliente SET tb_DependenteSeguro.Prêmio=Round(tb_TitularSeguro.Prêmio*0.5,2);"

3 - Calcular tb_TitularSeguro.Prêmio_Total=tb_TitularSeguro.Prêmio+tb_DependenteSeguro.Prêmio
Currentdb.execute "UPDATE tb_TitularSeguro LEFT JOIN tb_DependenteSeguro ON tb_TitularSeguro.Id_Cliente=tb_DependenteSeguro.Id_Cliente SET Prêmio_Total=tb_TitularSeguro.Prêmiotb_DependenteSeguro.Prêmio;"

Cumprimentos,

Prezado Alexandre Neves muito obrigado por sua ajuda.

Solicito que informe onde coloco esta regra na consulta ou no formulario.

Novamente, Assombrado

De certo tem um formulário onde carrega os dados para as tabelas. Se assim for, coloque o código, por exemplo, ao fechar do formulário.

Cumprimentos,