[Resolvido]Somar valores com base em dois critérios

Boa noite caros mestres.
Primeiramente gostaria de dizer que tenho uma imensa satisfação em fazer parte deste fórum e digo tambem que tens servido de grande utilidade na evolução de meus conhecimentos.
Vamos lá ao que solicito...
Estou desenvolvendo um sistema (Tal que denomino ser meu primeiro filho), nele tenho um SubFormulário onde registro as entradas de material; essas entradas podem ter apenas duas origens [ResponsavelFornecimento], sendo via "Cliente" ou via "Fornecedor".
(Como disposto abaixo)

CodMaterial

DescricaoMaterial

ResponsavelFornecimento

Valor

O que preciso ter são duas caixas de texto no rodapé do SubForm, uma com a soma do valor total do "Fornecedor" e outra com a soma do valor total do "Cliente".

Gostaria de saber como devo fazer, pois, já tentei de várias formas que conheço mas não deu muito certo.

Olá! Seja bem vindo ao forum! Usando e abusando das tables né?

Você quer a soma total da tabela ou de acordo algum critério? Se for a soma total, tente o seguinte:

=DSoma("Vlor";"NomeDaTabela";"ResponsavelFornecimento='" & "Cliente" & "'")
=DSoma("Vlor";"NomeDaTabela";"ResponsavelFornecimento='" & "Fornecedor" & "'")

OBS.: Coloquei Vlor, sem o a, de propósito. Valor é uma palavra reservada do Access. O uso dela para nomear campos ou elementos pode causar problemas.

Olá amigos

Dê preferência em não usar funções de domínio (Dsoma,DContar,Dpesquisa), quando for possivel.

Neste caso acredito que o uso do Soma() é viável. Algo assim:

=Soma(SeImed([reponsavelFornecimento]="cliente";[valor];0))

Sucesso!

Caros, agradeço pelo feedback tão rápido.
Amigo Avelino,
Utilizando pela função
=Soma(SeImed([reponsavelFornecimento]="cliente";[valor];0))
apresenta erro na caixa que coloquei esta função, e o que é mais incrivel, a outra caixa de texto que tenho no Rodapé do SubForm tambem passou a ficar com erro.

Amigo Criquio,
Agradeço pela dica sobre o [Vlor].
A sua função retornou exatamente o que preciso, acontece que, ela esta somando o [Vlor] de tudo que tem [ResponsavelFornecimento]="Cliente" na tabela, talvez eu tenha me esquecido de mencionar que as entradas de material estão relacionadas a venda [CodVenda], por exemplo:
Tenho a Venda 01, Venda 02, Venda 03,... e dentro de cada venda é que preciso saber a soma dos valores dos materiais de acordo com quem irá fornecer ("Cliente" ou "Fornecedor").
Sugestão: Talvez seria melhor se a função fizesse referencia aos campos no SubForm ao invés de fazer referencia aos campos na Tbl.

CodVenda

CodMaterial

DescricaoMaterial

ResponsavelFornecimento

Valor

Foi exatamente isso que eu quis dizer quando perguntei se queria a soma geral da tabela ou se precisava de um critério. Acredito que você tenha um campo no formulário aonde tenha esse número da venda, certo? Vamos supor que o nome desse campo seja venda:

=DSoma("Vlor";"NomeDaTabela";"Venda=" & [Venda] & " And ResponsavelFornecimento='" & "Cliente" & "'")
=DSoma("Vlor";"NomeDaTabela";"Venda=" & [Venda] & " And ResponsavelFornecimento='" & "Fornecedor" & "'")

A dica do amigo Avelino serve tambem para contar registros em um subformulário se for esse o caso.

Cara, você é bom mesmo. E como faço para este campo atualizar assim que mudar algum valor no cadastro, tipo, "Após atualizar valor, atualizar tambem a soma da função". Atualmente para os valores na soma atualizarem tenho que sair da tela e voltar.

Tente colocar em um evento de botão ou no evento "No atual" do formulário:

Me.NomeDoBotão1.Requery
Me.NomeDoBotão2.Requery

Outra opção poderia ser você tirar essa instrução da origem dos campos, deixando eles limpos. Depois, definir o intervalo do cronômetro para 1000(1 segundo), nos eventos do formulário e, no evento "No timer", colocar:

Me.NomeDoCampo1 = DSum("Vlor", "NomeDaTabela", "Venda=" & [Venda] & " And ResponsavelFornecimento='" & "Cliente" & "'")
Me.NomeDoCampo2 =DSum("Vlor", "NomeDaTabela", "Venda=" & [Venda] & " And ResponsavelFornecimento='" & "Fornecedor" & "'")

Observe que, quando você coloca a instrução via vba, muda ponto e vírgula para vírgula.

gente , apesar de funcionar não é a melhor escolha.

Fiz conforme falou mas tanto via VBA como na fonte do controle tenho que sair da tela e voltar para que a soma seja feita. Não seria porque estou utilizando os valores já gravados na tabela? Teria como fazer esta instrução utilizando os valores ainda no Form? Talvez o calculo seja mais rápido. O que me diz.

Caros mestres, sabem me dizer como faço para trocar a função:
=DSoma("ValorTotalItemMaterial";"TblEventuaisMateriais";"CodEventual=" & [CodEventual] & " And RespFornecimentoMaterial='" & "Cliente" & "'")

Por algo parecido com esta:
=DSoma("CBValorTotalItemMaterial";"FrmEventuais";"SubFrmEventuaisMateriais";"CodEventual=" & [CodEventual] & " And RespFornecimentoMaterial='" & "Cliente" & "'")

A primeira função, passada pelo nosso amigo Criquio, funciona bem, mas como ela pega os valores da tabela e tenho um atraso na gravação dos dados, respectivamente terei tambem um atraso na soma dos valores.
A segunda, tal que tentei fazer, funcionaria de uma forma mais ágil, pois, ela pegaria os valores ainda no formulário, porém não consegui fazer. Se alguem tiver uma sugestão melhor e puder me ajudar, agradeço.

Não daria certo porque o formulário tem apenas um valor. Ele iria somar com o quê? A não ser que esteja usando formulário contínuo com várias linhas e queira somar as linhas visíveis no form. Se for esse o caso, use a dica do Avelino.

disponibilize a parte do BD com esta questão

Aguardamos

Como faço para postar um arquivo aqui. Tentei pela opção de anexar arquivo mas parece que não deu certo.
Posso enviar por email?

Dê uma olhada nas dicas da minha assinatura abaixo ↓

Segue.

Segue modificações

Baixar exemplo

Exemplo de como ficou o valor total por fornecedores

=Soma(SeImed([RespFornecimentoMaterial]='fornecedor';([qtde]*[valorUnit]);0))

Bom estudo!

Vocês são realmente bons.
Com relação a lentidão do cálculo vou ter que verificar aqui, talvez seja porque o BD está localizado em uma rede.

Obrigado a vocês pelo empenho e dedicação.