[Resolvido]Somar o total quando a caixa sim/não, estiver selecionada, em um formulário continuo.

Prezados bom dia.

Tenho um formulário continuo que me mostra o valor recebido em: dinheiro, cheque ou cartão de débito.

Cada caixa sim/não tem o seu nome( dinheiro, cartaodebito e cheque)

O que eu estou a quebrar a cabeça....pois já tentei na propriedade " no atual" do formulário fazer a soma:

Private Sub Form_Current()
Dim x
If Me.Dinheiro = -1 Then
x = Nz(TotalMO)
Me.somadinheiro.Value = x
End If
End Sub

Mas me mostra apenas um único valor.   Segue o print screen da tela para analise dos colegas

Bom dia Avelino

Seguinte, eu tenho que saber o total ( valores ) que entrou de dinheiro ou de cheques ou de cartão de crédito em um período.

Por isso que eu estou a usar a caixa sim/não.

Quando usei :

=Soma(abs([dinheiro]=-1))

me retornou o valor de R$1,00

Grande Avelino.....ficou desse jeito

=Soma(SeImed([dinheiro]=-1;[TotalMO];0))---> demostra a soma em dinheiro. Funcionou.

Duvida.....

Caso eu queira fazer isso em VBA, ao abrir esse formulário, como ficaria o mesmo em VBA ? ( essa eu quero aprender ).....