[Resolvido]Função Pública: Formulário não imprime a informação com o totalizador geral

Olá, desenvolvi um pequeno aplicativo contábil, onde preciso consolidar as informações em um determinado formulário para mais de uma empresa. No aplicativo é possível cadastrar mais de uma empresa e inserir dados de acordo com a empresa inserida. Nele existe um relatório chamado "Balancete Financeiro" o qual traz as informações de entrada e saídas de numerário financeiro por empresa. Para gerar esta informação no formulário utilizo uma função pública (Cortesia do AhTexeira) inserida na guia "Módulos" e no formulário que envia as informações para a consulta. Contudo, necessito consolidar (Somar) as informações para todas as empresas, neste momento não informo a empresa no formulário, quando o access 2010 apresenta o erro "Erro em tempo de execução: 94 - Uso do NUll é invalido". A questão é como transmitir "Null" em uma função pública. Abaixo consta link com o vídeo do erro e banco para análise.


1. Módulo -> mod_VarGlobais

Código:



Option Compare Database
Option Explicit

'AHTEIXEIRA 2015 - MaximoAccess
'Definir variáveis globais
Global GBL_Filial As Double

Public Function GetGBL_Filial()
   GetGBL_Filial = GBL_Filial
End Function



2. Formulário -> frmFluxoCaixaBalanceteFinanceiro

Código:


Private Sub btn_visualizar_Click()
    
  
    
     'verificar se preencheu
    If IsNull(Me.txt_datainicial) Then
        MsgBox "Escolha a data inicial.", vbInformation, ""
        Me.txt_datainicial.SetFocus
        Exit Sub
    End If
    
    'verificar se preencheu
    If IsNull(Me.txt_datafinal) Then
        MsgBox "Escolha a data final.", vbInformation, ""
        Me.txt_datafinal.SetFocus
        Exit Sub
    End If
    
    'Atribuir às variáveis globais os valores
    
    GBL_Filial = Me.txt_filial.Column(0)
    GBL_Date_Inicial = Me.txt_datainicial
    GBL_Date_Final = Me.txt_datafinal
    
    
    'fechar form
    DoCmd.Close
    
    'abrir report
    DoCmd.OpenReport "rtlFluxoCaixaBalanceteFinanceiro", acViewPreview
    
End Sub



Link: 1drv.ms/f/s!AgHCWa12NNUWgdE39vGY6NGFL6D6BQ
Copiar e colar no browser

Ainda não baixei seu arquivo, por isso pergunto:

Vc utiliza a função NZ nas suas consultas?

Fazendo isso, suas consultas sempre retornarão todos os valores nulos como valor 0 (zero).

Apenas uma sugestão, que na maioria dos casos resolve.

Abraços,

Olá Cleverson,

Sim, já tentei utilizar o "NZ" o erro foi corrigido, mas a informação continua diferente sobre a qual necessito. A demanda acontece quando o usuário ao não selecionar uma "Filial" deixando o filtro em branco, o formulário através da "public function" tenha valor vazio, desta forma, o relatório imprimirá os valores somados de todas as filiais dentro do aplicativo. Grato pela ajuda. Aguardo uma outra sugestão.

Código:


GBL_Filial = Len(Nz(Me.txt_filial.Column(0), ""))


Entendi agora, sua questão são os critérios ou filtros das consultas.

Vou analisar seu arquivo.

Abraços.

Olá gente, ainda não consegui a solução da demanda apresentada. Disponibilizei no link abaixo 4 arquivos com vídeo e banco para melhor entendimento. O erro citado no inicio deste tópico foi solucionado parcialmente, pois a informação gerada pelo relatório não esta correta. O que preciso é que ao selecionar uma empresa através da "public function" a informação é especificia para aquela empresa selecionada, mas se houver mais de uma empresa no banco e não apontar nenhuma empresa no filtro, a informação gerada seja a soma dos valores de todas as empresas no relatório. Consegui resolver o problema sem um uso da "public function", contudo todo o aplicativo usei esta função, na hipotese da retirada da função pública o trabalho seria imenso e alguns relatórios dependem desta função.

Arquivos no link:

1. Como preciso que a informação seja impressa:

1.1. gestorSemFunctionPublic (Banco)
1.2. gestorSemFunctionPublic (Vídeo)

2. Como esta imprimindo com o uso da função pública:

2.1 gestorComPublicFunction (BAnco)
2.2 gestorComPublicFunction (Vídeo)

Link para download: 1drv.ms/f/s!AgHCWa12NNUWgdE39vGY6NGFL6D6BQ
Copiar e colar no browser

Agradeço qualquer dica ou ajuda.

Olá Leandro,
Não vi projeto.
Parece que quando estiver em branco, não quer que o reporte filtre a filial e mostre todas.
É isso?
Abraço

Olá Teixeira,

Exatamente isso. Preciso que o usuario ao não selecionar o filtro as informações impressas sejam a soma de todos os valores das filiais e quando ele selecionar o filtro a informação impressa seja especifica para a filial escolhida. Para imprimir as informações da filial escolhida uso uma "public function", ela funciona perfeitamente, mas gostaria de modifica-la para quando não selecionada a informação da filial, os os valores impressos será o resultado da soma de todas as filiais.

Código:


Private Sub btn_visualizar_Click()
    
  
    
     'verificar se preencheu
    If IsNull(Me.txt_datainicial) Then
        MsgBox "Escolha a data inicial.", vbInformation, ""
        Me.txt_datainicial.SetFocus
        Exit Sub
    End If
    
    'verificar se preencheu
    If IsNull(Me.txt_datafinal) Then
        MsgBox "Escolha a data final.", vbInformation, ""
        Me.txt_datafinal.SetFocus
        Exit Sub
    End If
    
    'Atribuir às variáveis globais os valores
    
    
    GBL_Filial = Me.txt_filial.Column(0)
    GBL_Date_Inicial = Me.txt_datainicial
    GBL_Date_Final = Me.txt_datafinal
    
    
    'fechar form
    DoCmd.Close
    
    'abrir report
    DoCmd.OpenReport "rtlFluxoCaixaBalanceteFinanceiro", acViewPreview
    
End Sub




Arquivos no link:

1. Como preciso que a informação seja impressa:

1.1. gestorSemFunctionPublic (Banco)
1.2. gestorSemFunctionPublic (Vídeo)

2. Como esta imprimindo com o uso da função pública:

2.1 gestorComPublicFunction (Banco)
2.2 gestorComPublicFunction (Vídeo)

Link para download: 1drv.ms/f/s!AgHCWa12NNUWgdE39vGY6NGFL6D6BQ
Copiar e colar no browser

Olá, estou no celular.
Na minha opinião a questão está na consulta.
Tem duas alternativas.
Onde tem a condiçao da filial se s vsriavel é igual a "" não aplica o filtro (no sql), pode ser por iif...

A mais simples, pelo que vi no seu código acima
Cria outro reporte sem filtro.
E no vba controla se vai abrir um ou outro conforme a variavel.
Abraço

Olá Teixeira,

Mais uma vez obrigado pela ajuda. Entretanto ainda não consegui resolver a demanda. Abaixo segue como procedi, peço-vos a gentileza de ajudar-me a identificar aonde estou errando.

1. Consulta (cstFluxoCaixaBalanceteFinanceiro):

SeImed(GetGBL_Filial()=0;"";GetGBL_Filial())

1.2. Consulta (cstFluxoCaixaBalanceteFinanceiroSaldoAnterior):

SeImed(GetGBL_Filial()=0;"";GetGBL_Filial())

2. Formulário (frmFluxoCaixaBalanceteFinanceiro):

GBL_Filial = Nz(Me.txt_filial.Column(0))

Adicionei o NZ (GBL_Filial = Nz(Me.txt_filial.Column(0))), caso o contrário o access imprime o "Erro de Tempo de Execução = 94 - Uso de NULL inválido". Contudo ao adicionar o NZ o access imprime o "Erro de Tempo de Execução = 3464 - Desconhecido". Para usar o NZ partir da premissa que se eu usar a função Nz em uma expressão de uma consulta sem usar o argumento valueifnull, os resultados serão uma cadeia de comprimento zero nos campos que contiverem valores nulos. Então se na consulta o valor recebido pela variavel, GetGBL_Filial() for igual a "0", o valor retornaria "". Abaixo link para download dos arquivos.

Link: 1drv.ms/f/s!AgHCWa12NNUWgdE39vGY6NGFL6D6BQ
Copiar e colar no browser

Olá Darlan Sandro,
Alterei os seus links, não são permitidos links externos, deve-se remover h t t p : / /

Veja se é isto, alterei o tipo da variavel global de Double para String, ficando assim o código:

Código:

   'Atribuir às variáveis globais os valores
    If Len(Me.txt_filial.Column(0) & "") > 0 Then
        GBL_Filial = Me.txt_filial.Column(0)
    Else
        GBL_Filial = "Like " & Chr(34) & "*" & Chr(34)
    End If
    GBL_Date_Inicial = Me.txt_datainicial
    GBL_Date_Final = Me.txt_datafinal
    
    'abrir report
    DoCmd.OpenReport "rtlFluxoCaixaBalanceteFinanceiro", acViewPreview

Abraço

Olá Texeira,

Não estou em casa ainda, mas retorno o mais rapido possível com a resposta.

Grato,

Olá Teixeira,

Modifiquei o código de acordo com a tua orientação, entretanto não funcionou. O que preciso é aproveitar o "public function". A ausência da "function" impede a impressão do período nos relatórios. O formulário deve enviar a informação para as duas consultas de duas formas distintas: Na primeira forma, quando o usuário selecionar uma empresa as informações impressas devem ser somente para à aquela empresa; Na segunda forma, quando ele não selecionar nenhuma empresa as informações impressas devem ser a soma de todos os valores para todas as empresas. Para isso no formulário a variável "GBL_Filial" deve enviar as consultas a informação para o campo vazio (""). Imaginei que poderia utiliza-la da forma a seguir GBL_Filial = "", mas ao utiliza-la o access sempre imprime a mesma variavel armazenada no "cash" do sistema. Acredito que a incompatibilidade existe pela obrigatoriedade de enviar algum dado através da variavel "GBL_Filial". Usei o seu exemplo e modifiquei para tentar resolver o problema, mas não fui bem sucedido. Abaixo link para download dos bancos.

Código:


 
   
    'verificar se preencheu
    If IsNull(Me.txt_datainicial) Then
        MsgBox "Escolha a data inicial.", vbInformation, ""
        Me.txt_datainicial.SetFocus
        Exit Sub
    End If
   
    'verificar se preencheu
    If IsNull(Me.txt_datafinal) Then
        MsgBox "Escolha a data final.", vbInformation, ""
        Me.txt_datafinal.SetFocus
        Exit Sub
    End If
   
    'Atribuir às variáveis globais os valores
    If (Me!txt_filial.Column(0)) > 0 Then
    GBL_Filial = Me.txt_filial.Column(0)
    ElseIf (Me!txt_filial.Column(0)) < 0 Then
        Me!txt_filial.Column(0).Form.Filter = ""
        Me!txt_filial.Column(0).Form.FilterOn = False
        GBL_Filial = Len(Me!txt_filial.Column(0) & "")
    End If
    GBL_Date_Inicial = Me.txt_datainicial
    GBL_Date_Final = Me.txt_datafinal
   
    'fechar form
    DoCmd.Close
   
    'abrir report
    DoCmd.OpenReport "rtlFluxoCaixaBalanceteFinanceiro", acViewPreview


Grato,

Download: 1drv.ms/f/s!AgHCWa12NNUWgdE39vGY6NGFL6D6BQ

Olá, o meu teste não funcionou como pretendia?
Irei verificar quando estiver no pc.
Abraço

Olá Texeira,

Peço - vos perdão amigo pelo incomodo, mas já tenho trabalhado no projeto há quase uma semana e até agora nada de solução. Respondendo a tua pergunta quanto ao funcionamento "não funcionou como o desejado". Eu consegui que funcionasse sem o uso da "Public Function", no link para download consta como consegui sem o uso do da variável mencionada, você pode observa através do arquivo "gestorSemFunctionPublic", contudo eu preciso fazê-lo funcionar com o uso da "Public Function" porque em todo o projeto eu usei a função e os valores da data inicial e final somente são publicados nos relatórios se utilizar a função, a qual fica gravada no "cash" do access.

Grato,

Download: 1drv.ms/f/s!AgHCWa12NNUWgdE39vGY6NGFL6D6BQ

Olá gente,

Ainda não consegui resolver a demanda apresentada, estou aceitando qualquer sugestão ou dica, pois até agora nada funcionou. Será que não é possível enviar através de uma função pública um comando informando a consulta um valor ""?

Grato,

Olá gente,

Perdoa-me a insistência, entretanto não consegui resolver o problema. Alguem tem alguma sugestão ou dica? Todos os arquivos estão disponível no link.

Grato,

Olá Darlan Sandro,

Veja se é o que pretende:
meocloud.pt/link/078686c9-58e9-4e0e-a078-f714d2769782/gestor_Balanco_rev.zip/
Copiar e colar no browser

Código:

Código:

Private Sub btn_visualizar_Click()
    'Atribuir às variáveis globais os valores
    If Len(Me.txt_filial.Column(0) & "") > 0 Then
        GBL_Filial = Me.txt_filial.Column(0)
    Else
        GBL_Filial = "Todos" 'Depois controla na consulta por IIF
    End If
    GBL_Date_Inicial = Me.txt_datainicial
    GBL_Date_Final = Me.txt_datafinal
    
    'abrir report
    DoCmd.OpenReport "rtlFluxoCaixaBalanceteFinanceiro", acViewPreview
End Sub


Na consulta controla por IIF.
Abraço

Olá Teixeira,

Mais uma vez obrigado amigo pela atenção e ajuda, entretanto, somente consegui resolver agora. A solução a qual encontrei esta abaixo listada.

1. Formulário:

Código:


'verificar se preencheu
    If IsNull(Me.txt_datainicial) Then
        MsgBox "Escolha a data inicial.", vbInformation, ""
        Me.txt_datainicial.SetFocus
        Exit Sub
    End If
   
    'verificar se preencheu
    If IsNull(Me.txt_datafinal) Then
        MsgBox "Escolha a data final.", vbInformation, ""
        Me.txt_datafinal.SetFocus
        Exit Sub
    End If
    GBL_Date_Inicial = Me.txt_datainicial
    GBL_Date_Final = Me.txt_datafinal
     
    'abrir report
    DoCmd.OpenReport "rtlFluxoCaixaBalanceteFinanceiro", acViewPreview



2. Consulta:

Código:


Como "*" & [Formulários]![frmFluxoCaixaBalanceteFinanceiro]![txt_filial] & "*"



Grato a todos pelo auxilio.

Olá, obrigado pelo retorno.
Deu luta, mas conseguiu-se resolver.
Abraço amigo.