[Resolvido]Relatório Usando Caixa de Combinação - Retornar todos quando caixa vazia

Bom dia pessoal!

Eu estou com um problema criei um Form com caixas de combinações e liguei ela na consulta

eu queria que quando a caixa estiver vazia na Form o retorno seja todos os registros.

Segue o exemplo em anexo.

então:

se tiver na caixa data1 = 1/1/2015 retorna registros 1/1/2015
agora se data1= null retorno todos os registros

Boa noite,
Já abordámos várias vezes
Veja se lhe serve https://www.maximoaccess.com/t651-resolvidosfiltrar-todos-os-registros-deixando-o-campo-em-branco-e-filtro-de-um-especifico-selecionando-um-nome

Alexandre Neves resolveu em partes

porque eu preciso desse logica rsrs só que desse jeito que eu coloquei não funcionou

>= (Como "*" & ([Formulários]![Cabecalho_Relatorio]![data1]) & "*") E <=(Como "*" & ([Formulários]![Cabecalho_Relatorio]![data2]) & "*")

Olá Eder

Sei que está usando a frase na grade da consulta.

Dessa maneira nunca fiz, pois acho um tanto dificil concatenar o código.

Aqui está um trecho do que fiz em modo SQL no VBA.
Atente para as aspas duplas e o CHR(42) que é o Asterisco (*)
Usar o asterisco diretamente nunca funcionou para mim, então sempre uso
o código Asc dele.

Só para entender:
Se digitar na janela imediata:
Asc("*") = retorna o código Asc 42

Se digitar:
Chr(42) ou seja, pedir o "Character" do código 42)
irá retornar o caracter * (asterisco)

Aqui está o trecho:

tblClientes.NomeCliente Like """ & Chr(42) & TodosAcentos(Me.txt_PesquisaNome.Text) & Chr(42) & """" & _
                                                                    "OR tblClientes.Espécie     Like """ & Chr(42) & TodosAcentos(Me.txt_PesquisaNome.Text) & Chr(42) & """"

É muito provável que seja isso o que esta "pegando".
E digo mais, SQL dá um suador em muita gente !!!

Editando: Essa aspas da maneira que estão, também resolve nomes com aspas simples.
                    Exemplo: D'avila,D'acia, McDonald's, etc...

[ ]'s