[Resolvido]Dsoma com critério Texto e Data

Galera, novamente quebrando a cabeça com outro problema.

tenho um formulário com Sub-form que consta os campos Meta, Realizado e A Realizar. No formulário principal tenho o campo com a data do mês atual.

Eu preciso que no sub-formulário mostre apenas os dados equivalentes ao mês que esta aparecendo no formulário principal.

tentei no campo txtRealizado o camando: =DSoma("ValorDespesa";"[tblDespesa]";"[ContaDespesa]='" & [txtCentros] & "'") este comando esta se referindo a soma geral de todos os lançamentos que a descrição é igual ao txtCentros, eu preciso filtrar para que mostre a soma de apenas os lançamentos do mês atual com as descrições do txtCentros e incluir a questão das datas eu não estou conseguindo.

alguém poderia dar uma ajuda?

pesquisei aqui e no google e não achei nada a respeito.

tentei isso tb e sem sucesso, os valores aparecem #Nome?

=DSoma("ValorDespesa";"[tblDespesa]";"[ContaDespesa]='" & [txtCentros] E [tblCentros]![DataAutomatica]=[Formulários]![frmInicial]![txtMesReferencia] & "'")

nada ainda

Olá..

Se o Dsoma esta em campo do subformulário, então tente:

DSoma("ValorDespesa";"[tblDespesa]";"[ContaDespesa]='" & [txtCentros] & '" And [DataAutomatica]= '" & Me.Parent!txtMesReferencia & "'")


Aguardamos

Abraços

Celso Roberto

da erro também, erro de sintaxe.

Olá...

Anexe exemplo de seu Bd com dados significativos do filtro no formulário e como esta usando o DSoma.

Estou imaginando uma situação e na realidade pode ser outra.

Aguardamos

Abraços

Celso Roberto

Segue em anexo meu sistema, ja fica tb de exemplo para alguns iniciantes.

Em verde tenho a data de referencia no formulário principal - funcionando perfeitamente

Em vermelho Sub-formulário onde estão registrado os últimos lançamentos Valores e Datas - funcionando perfeitamente

Em amarelo que esta o problema, tem a formula Dsoma, esta forma esta somando só os itens conforme cada Centro de custo da tblCentros (isso esta funcionando) o que não funciona é somar os valores da tabela tblDespesas dentro do mês vigente

eu preciso que mostre os valores apenas referente ao mês vigente conforme "Data de Referencia" e não todos os lançamentos

Olá..

tentei abrir mas esta dando conflitos de formatos de datas e não traz resultados para verificar.

Elimine todas as tabelas e outros que não fazem parte do contexto e anexe exempo bem enxuto sem conflitos.

Explique também qual data e de onde vem tem que fazer referencia com txtMesReferencia.


Aguardamos

Abraços

Anexado novamente sem o gráfico, pois o restante faz parte do processo. o conflito poderia ser pelo formato da mascara de entrada no txtMesReferencia
Mascára de entrada: 00/0000;0;_
Valor padrão: =Format(Data();"mm/yyyy")

verifique se resolve, pois no meu não aparece conflitos e roda liso.


Explique também qual data e de onde vem tem que fazer referencia com txtMesReferencia.
a txtMesReferencia esta no form e não esta associado a nada, ele executa o comando abaixo ao clicar, ao alterar, ao perder o foco e ao apertar uma tecla
Me.frmPorcentagemSUB.Requery.Requery

neste frmPorcentagem tenho os campos Meta / Realizado / A_Realizar

Meta - e mostra as informações do campo Metas(txtMetaCentro) que fica na tblCentros - Funciona Perfeitamente

Realizado -  esta o =DSoma("ValorDespesa";"[tblDespesa]";"[ContaDespesa]='" & [txtCentros] & "'") - esta soma esta buscando os valores do campo ValorDespesa na tblDespesa e compara se o campo contaDespesa da tblDespesas e é igual a txtCentros da tblCentros, até aqui tudo bem eles esta fazendo as comparações, o problema é que eu quero que ele compare também se a DataLancamento que esta na tblDespesa se esta dentro do mês que aparece na txtMesReferencia.

A Realizar - esta o comando
=[Meta]-[txtRealizado]
- Funciona Perfeitamente

Olá..

o exemplo que enviou continua aqui com conflitos e não possibilita mexer no formulário.

Tente alterar para este.

=DSoma("ValorDespesa";"[tblDespesa]";"[ContaDespesa]='" & [txtCentros] & "'And [DataLancamentoDespesa]= #" & [Parent]![txtMesReferencia] & "#")

Aguardo

Abraços

Cara deu certo, porem a formula esta somando apenas a data exata que mostra no txtMesReferencia, ou seja o txtMesReferencia mostra mm/yyyy pq esta formatada para mostrar isso, mas a data lançada nas despesas(tblDespesas) é 01/03/2019, 02/03/2019 e etc por exemplo.

tem como mesmo que a data seja inteira ele se referir apenas ao mês/ano?

Olá..

Estamos chegando lá..

Tente:

=DSoma("ValorDespesa";"[tblDespesa]";"[ContaDespesa]='" & [txtCentros] & "'And Format([DataLancamentoDespesa];"mm/yyyy")= #" & [Parent]![txtMesReferencia] & "#")



Aguardo

Abraços

Olá novamente

Vou dar outra sugestão.

Tire a expressão da fonte de controle do campo txtRealizado do frmPorcentagemSUB

No evento após atualizar do campo txtMesReferencia do formulário principal, cole este código:

Código:

Me!frmPorcentagemSUB!txtRealizado=DSum("ValorDespesa","[tblDespesa]","[ContaDespesa]='" & Me!frmPorcentagemSUB!txtCentros & "'And Format([DataLancamentoDespesa],'mm/yyyy')= '" & Me.txtMesReferencia & "'")

Ou

Código:

Me!frmPorcentagemSUB!txtRealizado=DSum("ValorDespesa","[tblDespesa]","[ContaDespesa]='" & Me!frmPorcentagemSUB!txtCentros & "'And Format([DataLancamentoDespesa],'mm/yyyy')= #" & Me.txtMesReferencia & "#")

Faça testes e retorne


Abraços

bom dia!

testei todos

=DSoma("ValorDespesa";"[tblDespesa]";"[ContaDespesa]='" & [txtCentros] & "'And Format([DataLancamentoDespesa];"mm/yyyy")= #" & [Parent]![txtMesReferencia] & "#") - da erro de sintaxe inválida

Fica o mesmo valor em todas as linhas

Código:

Me!frmPorcentagemSUB!txtRealizado = DSum("ValorDespesa", "[tblDespesa]", "[ContaDespesa]='" & Me!frmPorcentagemSUB!txtCentros & "'And Format([DataLancamentoDespesa],'mm/yyyy')= '" & Me.txtMesReferencia & "'")

Não aparece valores

Código:

Me!frmPorcentagemSUB!txtRealizado = DSum("ValorDespesa", "[tblDespesa]", "[ContaDespesa]='" & Me!frmPorcentagemSUB!txtCentros & "'And Format([DataLancamentoDespesa],'mm/yyyy')= #" & Me.txtMesReferencia & "#")

uma dúvida tb, qual a diferença entre "Me!frmPorcentagemSUB!txtRealizado" e "Me.frmPorcentagemSUB.txtRealizado"
estamos quase la

Celso Roberto

estou anexando outro exemplo, com o formulário frmCentros, ele é do mesmo sistema, porem calcula na própria tela

seria o mesmo esquema, no formulário tem o a txtDataAutomatica e no campo Realizado conta a formula =DSoma("ValorDespesa";"[tblDespesa]";"[ContaDespesa]='" & [centros] & "'")

só que queria que comparasse com a DataAutomatica, porem visando o mês/ano e não a data completa com o os dias.

ja tentei de tudo aqui e nada

Olá..

Para entender o Me! ou Me., estude este tutorial do Mestre Avelino Sampaio.

copie este link

usandoaccess.com.br/tutoriais/referenciar-formularios-e-relatorios-propriedades.asp?id=1


Fiquei em dúvida agora, você disse "Fica o mesmo valor em todas as linhas"

E´para filtrar o subformulario?
Se for para filtrar estamos no caminho errado, teriamos que apenas usar a soma  após a filtragem. Você não Solicitou isso.


o resultado do DSoma no campo txtRealizado esta correto em relação a data solicitada no txtMesReferencia?

A função DSoma vai buscar na tabela e soma todos que corresponda ao critério solicitado
A função soma, soma os resultados dos campos solicitado do Formulário.

Vou baixar o ultimo anexo e analizar.

Aguardo

Abraços

Fiquei em dúvida agora, você disse "Fica o mesmo valor em todas as linhas"
é que o o Sub-formulário estava em Modo Padrão: Formulário Continuo, por isso que citei que todas as linhas apresentam o mesmo valor

este outro que enviei é direto no formulário do cadastro dos centros de custos, da uma olhada ai pra ver se conseguimos finalizar isso, ta me dando uma baita dor de cabeça.rsrs

Obrigado pelo link, vou estudar sim.

Olá..
Entendi, Vou analisar este ultimo e te dou retorno no final do dia.

Estou terminando uma alteração para cliente, após te retorno.

Abraços

Olá....

Vamos ver se da certo este ultimo que você postou?

Faça o seguinte:

Deixe o campo txtDataAutomatica desacoplado, isto é sem dados na fonte de controle.

Elimine  =Format([DataAutomatica];"mm/yyyy") do valor padrão deste mesmo campo.

Desabilite (comente) Me.txtDataAutomatica = Format(Me.txtDataAutomatica, "mm/yyyy") do evento ao clicar deste mesmo campo

Na fonte de controle do campo txtRealizado cole esta função abaixo:

=DSoma("ValorDespesa";"[tblDespesa Consulta]";"[ContaDespesa]='" & [centros] & "' And [Mes]='" & Format([txtDataAutomatica];"mm/yyyy") & "'")

ou

=DSoma("ValorDespesa";"[tblDespesa Consulta]";"[ContaDespesa]='" & [centros] & "' And [Mes]='" & [txtDataAutomatica] & "'")

Qualquer um deles esta ok.

Repare que alterei o critério de busca para consulta tblDespesa Consulta, porque existe o campo Mes que usei como critério

Nos testes que realizei aqui esta ok em relação as somas pela data e centros.

Aguardo retorno

Abraços

Celso Roberto
Deu certo, muito obrigado

No frmCentros segui suas orientações e funcionou de boa

No fmrInicial que exite o Sub formulário eu segui a mesma lógica do frmCentros e funcionou também conforme comando abaixo. Coloquei a fórmula na fonte de controle do txtRealizado e rodou liso

Código:

=DSoma("ValorDespesa";"[tblDespesa Consulta]";"[ContaDespesa]='" & [centros] & "' And [Mes]='" & Format([Formulários]![frmInicial]![txtMesReferencia];"mm/yyyy") & "'")

Obrigado.

Olá..

Ficamos felizes por ter ajudado

O Fórum agradece seu retorno

Abraços e sucesso