Calculo de Comissões

Boa noite!

Srs.

Estou postando um BD, aonde estou com enorme dificuldade em fazer o cálculo do total de comissões pagas, veja no único relatório criado que criei eu consigo calcular o valor de comissão a ser pago para o vendedor, porém eu não consigo calcular no rodapé o valor total de comissão que eu paguei.

Obrigado antecipadamente

Boa noite, mude a caixa de texto para o rodapé da página

Bom dia!

Sr. Fernando fiz o que me falou e não deu certo, ele deu o resultado da última comissão, e eu desejo somar o total de comissão paga. Se puder me ajudar agradeço.

Abraços.

Boa tarde Bessa
Qual é o valor que tem de dar ?

Boa tarde!

Sr. Assis.

Nesse caso em específico dará R$ 32,00, porém existem variáveis aonde tem comissão de 5% e de 10%, o valor de comissão individual de cada vendedor esse eu consegui encontrar, a única coisa que não consigo e somar o valor total de comissões pagas para todos os vendedores.

Obrigado.

Bessa
Teste

Prezado Assis.

Eu te agradeço pelo empenho em me ajudar, mas acho que o amigo não entendeu a minha necessidade no meu BD tem duas variáveis, que chamo de comissao_1 e comissao_2, ou seja, se o vendedor atingir um número ele ganha comissao_1 senão comissao_2, o valor individual de cada vendedor no qual utilizo uma caixa de texto no relatório com a seguinte formula: =SeImed([Percapta_realizada]<[Meta_Percapta];([Total_vendedor_1]*[Comissao_1]);([Total_vendedor_1]*[Comissao_2]))*1, essa caixa de texto renomeei e coloquei o nome de comissao, o que eu desejo... É que no rodapé eu consiga somar o total de comissões pagas, pois terei vendedores que irão alcançar a comissao_1 e outros a comissao_2 e eu preciso desse resultado de quanto eu paguei de comissão.
Fico no aguardo...
Caso mais algum amigo saiba e queira me ajudar eu agradeço....

Obrigado

Boa tarde,
No rodapé do relatório coloque caixa de texto: TxtSomaDeComissoes
No módulo do relatório, coloque:
Option Compare Database
Option Explicit

Private SomaComissoes As Double

Private Sub RodapéDoGrupo3_Print(Cancel As Integer, PrintCount As Integer)
SomaComissoes = SomaComissoes + Comissao
End Sub

Private Sub RodapéDoRelatório_Print(Cancel As Integer, PrintCount As Integer)
TxtGeralDeComissoes = SomaComissoes
End Sub

Boa tarde

Sr. Alexandre Neves

Obrigado em me ajudar, é possível postar algum exemplo, se não for pedir muito utilize o meu BD que postei e coloque esse exemplo nele para que eu veja, pois não tenho ainda tanta pratica em VBA.
Quero lhe agradecer antecipadamente.

Obrigado

aqui vai

Tire mais uma dúvida o resultado não saiu na tela porque? Quando visualizo o relatório a caixa de texto fica em branco.

Obrigado

O Access não executa o acontecimento na pré-visualização.
Se colocar em modo estrutura e pré-visualizar já mostra ou na impressão.