[Resolvido]Como Calcular para Resultado

boa tarde caros amigos.

Gostaria de saber como resolver esta aquestão abaixo, o problema é que não consigo somar o item Inss nos descontos e nem subtrair no liquido os valores não aparecem agora se tirar item Inss das formulas elas aparecem. Como resolver?.

Private Sub RodapéDoGrupo0_Format(Cancel As Integer, FormatCount As Integer)
Desconto.Value = CalculaDesconto(Usuário, Salário, TotalAtrasos)
Líquido.Value = Salário + Gratificação + PremioMotorista + AcumuloFunção - Adiantamento - Desconto - Inss
Vencimentos.Value = Salário + Gratificação + PremioMotorista + AcumuloFunção + Extras
Descontos.Value = Adiantamento + Desconto + Inss
porcentagem = 0.09
Inss.Value = Vencimentos * porcentagem

End Sub

Obrigado mais uma vez pela ajuda

Att: Cacia

Boa tarde,

bem vinda ao forum

Vc não pode fazer estes cálculos diretamente nas caixas de texto?

Sds,

Boa tarde e obrigada pelo bem vindo.
Bom não fiz diretamente na caixa de texto porem vou tentar refazer todas formulas.

Att

Cacia

Boa tarde Cacia,

Analisando o que vc pretende na caixa de texto [Liquido] vc poderá fazer assim:

=nz(([Salário]+[Gratificação]+[PremioMotorista]+[AcumuloFunção]) - ([Adiantamento]+[Desconto]+[Inss]);0)

E nesta linha VBA não sei se vai dar erro, não testei, mas pode ser:

Líquido.Value = (Salário + Gratificação + PremioMotorista + AcumuloFunção) - (Adiantamento + Desconto + Inss)

Sds,

chsestrem

Obrigada pelo retorno e as dicas tentei de outra forma agora os holerites sairão certos e o Cartão ponto também.

Na consultaRelatório ondem consta as informações criei a seguinte formula:

consultaRelatório

1ª formula: BaseCalculo: [Salário]+[Gratificação]+[PremioMotorista]+[Extra]+[AcumuloFunção]
2ª formula: Inss: [Base]*0,09

Já no código do VB ficou desta forma:

Private Sub RodapéDoGrupo0_Format(Cancel As Integer, FormatCount As Integer)
Desconto.Value = CalculaDesconto(Usuário, Salário, TotalAtrasos)
Líquido.Value = Salário + Gratificação + PremioMotorista + AcumuloFunção + Extra - Adiantamento - Desconto - Inss
Vencimentos.Value = Salário + Gratificação + PremioMotorista + AcumuloFunção + Extra
Descontos.Value = Adiantamento + Desconto + Inss

End Sub

Valeu Cacia,

Aqui todos nos ajudamos, por isso o sucesso do Forum


Bom trabalho,