Erro #Tamanho! Relatório

Olá estou tentando em uma caixa de texto de um relatório esta soma ( que soma os sub-relatórios desse relatório em questão ) ...

=Nz([ConsultaAtosDescricaoImoveis].[Relatório]![Texto45])+Nz([ConsultaAtosDescricaoNotas].[Relatório]![Texto45])+Nz([ConsultaAtosDescricaoCivis].[Relatório]![Texto45])+Nz([ConsultaAtosDescricaoPrivativos].[Relatório]![Texto45])+Nz([ConsultaAtosDescricaoProtestos].[Relatório]![Texto45])+Nz([ConsultaAtosDescricaoTitulos].[Relatório]![Texto45])


Porem esta me retornando #Tamanho!


Pois dependo do periodo entre datas que o relatório é gerado ,  as vezes não entra algum relatório ,  dai o Erro ...  exemplo
em um determinado periodo de datas não houve lançamentos no subRelatório ConsultaAtosDescricaoNotas  e fica assim a soma ...


=Nz([ConsultaAtosDescricaoImoveis].[Relatório]![Texto45])+Nz([ConsultaAtosDescricaoNotas].[Relatório]![Texto45])+Nz([ConsultaAtosDescricaoCivis].[Relatório]![Texto45])+Nz([ConsultaAtosDescricaoPrivativos].[Relatório]![Texto45])+Nz([ConsultaAtosDescricaoProtestos].[Relatório]![Texto45])+Nz([ConsultaAtosDescricaoTitulos].[Relatório]![Texto45])

esse sub que esta em vermelho não apareceu pois não houve lançamentos nele ,  dai retorna o Erro === #Tamanho!  



Como Concertar  ? Preciso que faça a somatória independente de quantos sub forem mostrados , se todos ou se faltando um ou mais ......

Bom dia!

Sugiro que dê uma olhada nesse tópico:

https://www.maximoaccess.com/t28724-erro-tamanho-em-caixa-de-texto

Abraço, Delson

Sem solução ainda ...

Tem como postar os objetos envolvidos?

Olá a todos

Paulo Maia, como está a fazer somas, o melhor será colocar o zero na função nativa NZ(...,0) para quando for nulo.
Teste assim:

Código:

=Nz([ConsultaAtosDescricaoImoveis].[Relatório]![Texto45], 0) + Nz([ConsultaAtosDescricaoNotas].[Relatório]![Texto45], 0) + Nz([ConsultaAtosDescricaoCivis].[Relatório]![Texto45], 0) + Nz([ConsultaAtosDescricaoPrivativos].[Relatório]![Texto45]) + Nz([ConsultaAtosDescricaoProtestos].[Relatório]![Texto45]) + Nz([ConsultaAtosDescricaoTitulos].[Relatório]![Texto45], 0)

Abraço

ahteixeira  

Deu sintaxe inválida, ao tentar inserir a soma na fonte de controle da caixa de texto

Olá, tinha um X a mais.
Já atualizei mensagem anteiror, teste de novo.

Se o erro se mantiver, conforme o colega Tauron sugerir é melhor diponibilizar base de dados para se testar.
Abraço a todos

Em anexo,

Relatório === ReceitasVsDespesas   e  ReceitasVsDespesas-D

TOTAL DAS RECEITAS -> caixa de texto com a soma


Acredito que deve ser ponto e virvula antes do zero e não virgula , pois a sintaxe de erro cita virgula como erro ..........

Olá, faltou as tabelas.
Assim falta a origem dos dados.
Elimine o anexo da mensagem anteiror e poste novamente com alguns dados de amostragem.

Abraço

são 4 base de dados separadas do front

Em anexo aqui não permite .......  Grande


Baixe nesse link PF:
fil.email/UnzR6oEu

Olá,
Para testar os dois relatorios que identificou, que campos e com que dados devo preencher para testar:

Livro Auxiliar e Livro Auxiliar D


coloque data inicial de 01/02/2018 e final hj mesmo e clique no btn

Olá Paulo Maia,

Na mesagem 5 considerei que estáva a instrução em VBA e não num campo.
O erro a que se refere na mensagem nº 6 era trocar a virgula por ponto e virgula.

Teste então neste exemplo que já está funcional (importei os dados e comentei algum código para nao dar erros)
cld.pt/dl/download/4494d132-9479-413d-9322-c6448f5d1940/CIC-ARQ_rev.zip

Abraço

ahteixeira ,

Ainda esta retornando #Tamanho!


se vc testar no mesmo arquivo que me mandou na msg acima inserindo como datas inicial e final assim


01/02/2018
05/07/2018


Vai ver que o TOTAL DAS RECEITAS   ainda retorna como === #Tamanho!

Olá, estou no celular, de momento não posso ajudar.

Como pode verificar, ainda apresentava o pedido de datas, tente ajustar para ficar funcional para servir para os testes (pode colocar as datas logo predefinidas) e dizer qual seria o total.

Amanha tento ajudar.

Abraço

OK,  mas as datas são necessárias para o relatório ser gerado !


Tirei a formula de cálculo da fonte de controle da caixa de texto e passei para o VBA "que é mais fácil manipular" === no evento Ao carregar assim....

Código:

Private Sub Report_Load()
    Me.Texto47 = Nz([ConsultaAtosDescricaoImoveis].[Relatório]![Texto45], 0) + Nz([ConsultaAtosDescricaoNotas].[Relatório]![Texto45], 0) + Nz([ConsultaAtosDescricaoCivis].[Relatório]![Texto45], 0) + Nz([ConsultaAtosDescricaoPrivativos].[Relatório]![Texto45], 0) + Nz([ConsultaAtosDescricaoProtestos].[Relatório]![Texto45], 0) + Nz([ConsultaAtosDescricaoTitulos].[Relatório]![Texto45], 0)
End Sub

Mas... dai nem mostra nada nem #Tamanho!  nem nenhum resultado !

Alguém ? ...

Olá Paulo Maia,

Hoje não tive oportunidade de analisar e vai requerer tempo.
Pelo que vi, tem várias tabelas na origem dos dados, consultas e sub-relatorios.
Não está esquecido.

Abraço

Boa noite,

Não sou especialista, mas tente da forma abaixo.
No seu Relatório: Resumo-ReceitasVsDespesas.

Na fonte do controle da caixa de Texto49 coloque:

SeImed(ÉNulo([txt01]);0;Nz([ConsultaAtosDescricaoImoveis].[Relatório]![txt01])+Nz([ConsultaAtosDescricaoNotas].[Relatório]![txt01])+Nz([ConsultaAtosDescricaoCivis].[Relatório]![txt01])+Nz([ConsultaAtosDescricaoPrivativos].[Relatório]![txt01])+Nz([ConsultaAtosDescricaoProtestos].[Relatório]![txt01])+Nz([ConsultaAtosDescricaoTitulos].[Relatório]![txt01]))


Na fonte do controle da caixa de Texto19 coloque:

=SeImed(ÉNulo([Txt01]);0;Nz([Texto49])-Nz([Sub-Despesas].[Relatório]![Texto48]))


Abraço, Delson

delsonk

Entendi o seu raciocínio,  mas perceba que baseando-se nele ,

Se algum sub-relatório não for mostrado então esse valor desse sub é nulo , assim sua formula anula todos os outros sub que apareceram e que deveriam ser contabilizados !

ou seja seu raciocínio fica assim ...


Se não for nulo TODOS   então OK contabiliza todos
caso contrario se algum der nulo então imprima 0


então se de 6 subs  aparecerem 4 === então mesmo assim retorne 0



será que compreendi certo seu raciocínio,  pois o certo é contabilizar os que aparecem e os que não aparecerem simplesmente ignore na soma !  e mostre o Resultado dos que apareceram ...

=> 1ª Tentativa tentei assim via VBA mas não sei em qual evento do relatório principal inserir ...

Código:


Private Sub Report_Load()

    Valor = 0
    
    If Not IsNull([ConsultaAtosDescricaoImoveis].[Relatório]![Texto45]) Then
        
        Valor = Valor + Nz([ConsultaAtosDescricaoImoveis].[Relatório]![Texto45])
                      
    ElseIf Not IsNull([ConsultaAtosDescricaoNotas].[Relatório]![Texto45]) Then
    
        Valor = Valor + Nz([ConsultaAtosDescricaoNotas].[Relatório]![Texto45])
        
    ElseIf Not IsNull([ConsultaAtosDescricaoCivis].[Relatório]![Texto45]) Then
    
        Valor = Valor + Nz([ConsultaAtosDescricaoCivis].[Relatório]![Texto45])
        
    ElseIf Not IsNull([ConsultaAtosDescricaoPrivativos].[Relatório]![Texto45]) Then
    
        Valor = Valor + Nz([ConsultaAtosDescricaoPrivativos].[Relatório]![Texto45])
        
    ElseIf Not IsNull([ConsultaAtosDescricaoProtestos].[Relatório]![Texto45]) Then
    
        Valor = Valor + Nz([ConsultaAtosDescricaoProtestos].[Relatório]![Texto45])
        
    ElseIf Not IsNull([ConsultaAtosDescricaoTitulos].[Relatório]![Texto45]) Then
    
        Valor = Valor + Nz([ConsultaAtosDescricaoTitulos].[Relatório]![Texto45])
        
    End If
    
    Me.Texto47 = Valor

End Sub


todos eventos que ponho , nem aparece nada no relatório ...

-------------------------------------------//-------------------------------------------------

=> 2ª tentativa,  na fonte de controle da caixa tentei assim também ! ...

Código:


=SeImed(ÉNulo([ConsultaAtosDescricaoCivis].[Relatório]![Texto45]);0;Nz([ConsultaAtosDescricaoCivis].[Relatório]![Texto45]))+
SeImed(ÉNulo([ConsultaAtosDescricaoPrivativos].[Relatório]![Texto45]);0;Nz([ConsultaAtosDescricaoPrivativos].[Relatório]![Texto45]))+
SeImed(ÉNulo([ConsultaAtosDescricaoProtestos].[Relatório]![Texto45]);0;Nz([ConsultaAtosDescricaoProtestos].[Relatório]![Texto45]))+
SeImed(ÉNulo([ConsultaAtosDescricaoTitulos].[Relatório]![Texto45]);0;Nz([ConsultaAtosDescricaoTitulos].[Relatório]![Texto45]))


retorna #Tamanho!  ,  esse erro insiste ...

Bom dia.

Você ja tentou migrar o BD para uma versão mais atualizada do Access para verificar se esse erro também aparece?
Acredito que isso seja uma falha da versão mais antiga.

Abraço, Delson

Delson,

Não é versão de DB !  é erro na sintaxe do cálculo  !  

Coisa que não estou conseguindo montar este cálculo ...

Olá Paulo Maia,

Hoje tive um tempinho e estive analisar.
A modelagem de dados não é a melhor, no entanto tive oportunidade de verificar o erro relatado.
Efetivamente como NZ não está a resultar.
Vou tentar simular num exemplo mais simples para verificar como podemos obter o resultado pretendido.

Abraço

Olá Paulo Maia,

Deu luta, mas usei a técnica relatada neste tópico:
https://www.maximoaccess.com/t27879-resolvidoresumo-de-lancamentos

Nota, só ajustei nos "Protestos", terá que fazer o mesmo nos outro:
=[ConsultaAtosDescricaoImoveis].[Relatório]![Texto45]+[ConsultaAtosDescricaoNotas].[Relatório]![Texto45]+[ConsultaAtosDescricaoCivis].[Relatório]![Texto45]+[ConsultaAtosDescricaoPrivativos].[Relatório]![Texto45]+Ise(VarType([ConsultaAtosDescricaoProtestos].[Relatório]![Texto45])=10;0;[ConsultaAtosDescricaoProtestos].[Relatório]![Texto45])+[ConsultaAtosDescricaoTitulos].[Relatório]![Texto45]


Segue o meu teste:
cld.pt/dl/download/cc5dbc8a-711e-4468-844a-f6d9ab01037e/CIC-ARQ_teste_rev.zip

Abraço