[Resolvido]Obter soma de sub-relatorio no relatório Pai.

Prezados, bom dia,

Tenho o Relatorio (Relatorio de Pagamento Por Data de Credito) que recebe o dado do (SubRelatorioPagamentoPorDataCredito]![DataCredito]).

Ao utilizar o codigo:



A expressão retorna #Erro.

Podem me ajudar com a duvida?

Amigos,

Para auxiliar deixei um link com um pequeno exemplo.

Clique para abrir o relatório (Relatorio de Pagamento Por Data de Credito) e informe a data 29/03/2018, dai vai exibir as informações na tela.

Gostaria de somar o total do Relatorio de Pagamento Por Data de Credito Pai + SubRelatorioPagamentoPorDataCredito.

Link: dropbox.com/s/2g9dsc65kffmrhh/Base%20Relatorio.rar?dl=1

XPTOS


Teste

Muito bem Nobre Assis!

Funcionou perfeitamente.

Grato,

Obrigado pelo retorno.

Concernente ao assunto estou reabrindo o tópico porque surgiu a seguinte dúvida:

Quando o Filho112 possui dados ele nao gera erro para abrir o formulario Pai, porém, quando este subform está vazio apresenta o #Erro.

Como tratar esta ocorrencia?

Ex: exclua os itens da tabela Recebido e tenta abrir o relatorio.

Link: https://www.dropbox.com/s/2g9dsc65kffmrhh/Base%20Relatorio.rar?dl=0

XPTOS

Informe uma data para testar-mos

Aguardo

Boa tarde,

A data é 29/03/2018.

Bom dia,

Consegui criar uma caixa de texto no relatório e deixei ela invisível para receber (0) zero sempre que meu critério da tabela Recebido for "", ou seja, estiver sem registro.

Agora vou abrir outro tópico para inserir via inputbox a data no formato #29/03/2018# e abrir o relatório já filtrado.

Pois, ao invés de deixar meu critério na origem da consulta, acho melhor chamar via Inputbox:

Código:


On Error Resume Next
Dim DataPagamento As String
DataPagamento = InputBox("Informe a Data do Crédito!", "Formato dd/mm/aaaa")
If DataPagamento <> "" Then
DoCmd.OpenReport "Relatorio de Pagamento Por Data de Credito", acViewPreview, , "DataCredito =#29/03/2018#", acWindowNormal
Else

End If


Grato,