[Resolvido]Cáculo em Relatórios

Olá Boa tarde

Sr.s estou com a seguinte dificuldade estou realizando um calculo de comissões que tem algumas variáveis eu infelizmente não consigo postar o BD pois aqui está dizendo que o meu limite está excedido e não consigo resolver isso.
Existem três campos de metas aonde coloquei como meta_1; meta_2; meta_3 e três tipos de comissões; comissao_1; comissao_2 e comissao_3 e Fixo.

Bom o cálculo é o seguinte

Se a quantidade de vendas for menor que a meta_1 voltará o valor FIXO.
Se a quantidade de vendas for IGUAL que a meta_1; (MULTIPLICO TOTAL DE VENDAS * COMISSAO_1)
Se a quantidade de vendas for IGUAL que a meta_2; (MULTIPLICO TOTAL DE VENDAS * COMISSAO_2)
Se a quantidade de vendas for MAIOR que a meta_2; (MULTIPLICO TOTAL DE VENDAS * COMISSAO_3)

EX:
Qtd Vendida = 9
Meta_1 = 9
Total de Vendas = R$ 100.000,00
Comissao_1 - 0,6%
Resultado = R$ 600,00

Fico no aguardo de um retorno.

Olá, boa tarde....

Pode colocar ele no http:\\ ge.tt e depois colar o link aqui.

Grato.

Segue o Link do meu BD, veja se é possível me ajudar...

Obrigado

https://www.dropbox.com/s/91pkqm46dc88hju/Ficha%20Cadastral_Teste.mdb?dl=0

Experimente esse código


Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
Select Case resultado
Case Is < 1
Me.Txt_Resultado.Value = Me.Txt_Fixo
Case Is = 1
Me.Txt_Resultado.Value = (Me.txt_tt_vendido * Me.Txt_Comissao_1) + Me.Premio_1
Case Is = 2
Me.Txt_Resultado.Value = (Me.txt_tt_vendido * Me.Txt_Comissao_2) + Me.Txt_Premio_2
Case Is > 2
Me.Txt_Resultado.Value = (Me.txt_tt_vendido * Me.Txt_Comissao_2) + Me.Txt_Premio_3
End Select
End Sub

Bom dia

Obrigado Professor Silvio

Agora por favor aonde insiro esse código.

Obrigado

Abre o relatório em modo desing.
clicar na palavra: rodapé da página.
A direita tem a folha de propriedades.
clicar em evento e no evento "ao imprimir", clicar na setinha indicando para baixo, escolha " procedimento de evento"
Copie e cole o código que te passei.
Teste !

Professor Silvio

Coloquei o codigo conforme me falou e deu erro de compilação:
metodo ou membro de dados não encontrado.

Me.Txt_Resultado.Value = (Me.txt_tt_vendido * Me.Txt_Comissao_2) + Me.Txt_Premio_3
End Select

E grifa o Me.txt_tt_vendido.

Obrigado

Olá...

Mas são os mesmos nomes que estão no teu relatório que disponibilizou.

Só se você mudou alguma coisa no teu relatório que tem ai.

Professor Silvio

Obrigado pelo retorno.

Deu certo o que estava errado é o seguinte:

Me.Txt_Resultado.Value = (Me.txt_tt_vendido * Me.Txt_Comissao_2) + Me.Txt_Premio_3

Não existe Txt_Premio_3, quando for acima da meta estipulada é tt_vendido * comissao_3 + premio_2.

Valeu...

Ótimo.....
O fórum agradece o retorno.
Abraços.