[Resolvido]Resumo de Lançamentos

Olá meus amigos um bom domingo na paz de Deus à todos.
Amigos estou tentando fazer um resumo baseado no exemplo que o amigo Gilberlanio fez mas em access para o meu controle pessoal e empaquei com a questão do resumo das despesas, despesas cartão e Receitas.
Gostaria que ficassem tipo o da imagem abaixo que foi feita o excel pelo amigo Gil. Três subForm exibido os status.

Segue o bd com as tabelas.
PS. As consultas não sei se estão ok.

Meu muito obrigado a todos.

Olá Elias, dei uma espreitadela na base de dados que postou.
Nas tabelas não tem o mes preechido, será isso?
Também seria bom colocar o link de origem do exemplo do colega Gilberlanio

Abraço e continuação de um Santo Domingo

Olá, teste a consulta abaixo para as receitas do exemplo que postou

Código:

SELECT DISTINCTROW Format$([tbl_Receitas].[DataLancamento],'mmmm yyyy') AS [DataLancamento por mês], Sum(tbl_Receitas.ValorRecebido) AS [Soma De ValorRecebido], Sum(tbl_Receitas.AReceber) AS [Soma De AReceber]
FROM tbl_Receitas
GROUP BY Format$([tbl_Receitas].[DataLancamento],'mmmm yyyy'), Year([tbl_Receitas].[DataLancamento])*12+DatePart('m',[tbl_Receitas].[DataLancamento])-1;


Nem estou a usar o campo mes.
Abraço

Olá Alvaro Segue o link do vídeo do amigo Gil.
youtube.com/watch?v=E2X2eZTjAY0

Vou testar a query que postou.

Substitui a query mas deu ruim rsrs

Olá Elias, veja o meu teste.
Abraço

Alvaro vou para o culto, amanhã ou p/ semana damos continuidade.

Desde já lhe agradeço.

Um grande abraço e fique na paz.

Ok Elias,
Qualquer coisa estamos cá.
Abraço

Boa tarde pessoal.
Amigo Alvaro consegui contornar a situação da consulta, e para encerrar este tópico somente uma questão seria um erro que está ocorrendo ao somar um subform quando o mesmo se encontra vazio.

=[subFormDespesaCartao].[Formulário]![txtValorRecebido]

Olá Elias,
Aprendi aqui, use o NZ(...,0)
Abraço

Tentei com o Nz
=Nz([subFormDespesaCartao].[Formulário]![txtValorRecebido];0)
dai o campo fica com a msg

#Tamanho!

Olá, poderá ser porque está a dar error, vou construir e testar.
Abraço

Estou lhe enviando parte do projeto para sua análise Alvaro.

Olá Elias,
Fiz aqui o teste nem foi necessário nada, não mes está a dar erro.
Veja o meu teste: https://meocloud.pt/link/906786b5-8325-4071-918b-abda19904d04/resumao_total_sub.zip/

O seu sub formulario está em que modo, pode criar um pequeno exemplo para testar.
Abraço

Em modo folha de dados porém estou a preencher o mesmo com uma consulta e não direto de uma tabela como o seu exemplo...

EStes campos SubTotal e AReceber não é bom que você armazene na tabela. Bom é que isto seja um calculo em uma consulta. Desta forma fica mais facil efetuar os calculos.

Rubens você diz fazer uma consulta somando os campos sub totais, a pagar e pago para então exibir nos forms isto?
Porém estes valores serão alterados de acordo com a consulta no Grid. Então a soma terá de ser no grid msm digo SubForm...

Olá a todos,
Elias, como tem a origem do sub-formulario?
Está apresentar os valores numa caixa de listagem (é isso que chama de grid "grelha") ou tem algum componente.
O melhor seria postar um exemplo simples do formulario e sub-formulario, para podermos ver, compreender e ajudar.
Abraço

Digo subFormulário msm
Enviando parte do projeto...

Olá Elias,
no campo txtSomaSubTotal coloque assim:

Código:

=IIf(VarType([subFormReceitas].[Formulário]![txtSubTotal])=10;0;[subFormReceitas].[Formulário]![txtSubTotal])

no campo txtRecebido coloque assim:

Código:

=IIf(VarType([subFormReceitas].[Formulário]![txtValorRecebido])=10;0;[subFormReceitas].[Formulário]![txtValorRecebido])

Acho que resolve.
Abraço

Perfeito meu amigo Resolvido com sucesso!
Muito agradecido mesmo.

Olá Elias, fico feliz por ter resolvido.
Deu luta, nunca tinha usado esta técnica do VarType.
Fica mais esta, como o MaximoAccess é sempre aprender
Abraço

Foi tenso msm mas ficou uma dúvida no seu código.
Só para eu entender msm.

=IIf(VarType([subFormReceitas].[Formulário]![txtSubTotal])=10;0;[subFormReceitas].[Formulário]![txtSubTotal])

no caso está a comparar se o valor da txt é = 10 senão recebe zero... poderia me explicar Alvaro?

So pra acompanhar a explicacao do Mestre Alvaro.

Olá a todos,
Elias, o 10 é valor do tipo de variável, que neste caso é vbError.
Ou seja, o IIF está a verificar que tipo de váriavel é que o campo tem atribuída.

Na mensagem n. 22 já tinha colocado um link a explicar a função VarType, confira abaixo os tipos de valores:
https://msdn.microsoft.com/en-us/library/office/gg278470.aspx

Abraço

Bravo Mestre Álvaro vou ver agora e novamente muito agradecido viu.