[Resolvido]Consulta de Referencia Cruzada Com Criterio

Srs, Boa Noite!

Antes de criar o Tópico pesquisei no site e achei um post com a mesma dúvida, porém sem resposta.

Tenho uma consulta de referencia cruzada e desejo colocar a fórmula "Entre" como critério em um determinado Campo, porém o Access retora um erro dizendo:

"O mecanismo de bando de dados Microsoft Access não reconhece '[Formulários]![Gerador]![Dataini]' como nome de campo ou expressão valida"

Já tentei colocar direto na consulta o seguinte critério:

Como [Data Inicial] e [Data Final], porém aparece a mesma mensagem de erro.

Também já tentei criar uma consulta com esses critérios e a partir dessa consulta criar uma consulta de referencia cruzada, porém aparece o mesmo erro.

Alguém pode ajudar?

segue o link do poste anterior que também não obteve uma resposta resolutiva.

https://www.maximoaccess.com/t23214-filtrar-consulta-referencia-cruzada?highlight=referencia+cruzada

Obrigado.

Opa amigo, a forma que eu uso para resolver esse problema é a seguinte

Primeiro crie um Módulo novo, salve com um nome qualquer e cole o código abaixo fazendo as adaptações pro seu projeto:

Código:

Option Compare Database

Public boMomento As Boolean

Function RetornaValor() As Integer
    If boMomento = False Then
        RetornaValor = Forms!NomeDoSeuFormulario!NomeDoSeuCampo1
        boMomento = True
    Else
        RetornaValor = Forms!NomeDoSeuFormulario!NomeDoSeuCampo1
        boMomento = False
    End If
End Function

Feito isso, no critério da sua consulta você insere a linha abaixo:

Código:

Entre RetornaValor() e RetornaValor()

Espero que lhe ajude.

Abraços

Live Baian

Muito obrigado!

Funcionou, só tive que alterar o tipo de variavel para Date

ficou da seguinte forma

Código:

Option Compare Database

Public boMomento As Boolean

Function RetornaValor() As Date

   If boMomento = False Then
       RetornaValor = Forms!Gerador!DATAINI
       boMomento = True
   Else
       RetornaValor = Forms!Gerador!DATAFIM
       boMomento = False
   End If
   
End Function

Tópico finalizado.