Utilizando Função em VBA no Criterio da Consulta

Ola Meus Amigos Tudo bem com Voces !
Ok...

Vamos la, alguem pode ajudar esou tentando usar no criterio de uma consulta uma função VBA, porem este criteria seria entre Datas (Entre #00/00/0000# E #00/00/0000#), mas não estou sabendo como fazer isto para retornar na Função, ja fiz criterios de outra forma por Exemplo com uma Data somente ou melhor um argumento, porem dois argumentos não estou sabendo fazer, alguem pode ajudar...

Parte do Codigo no VBA:

Function DataFiltroBaseOSFiscalizacao(Optional VarDataA)
On Error GoTo TrataErro

40 PrimeiroDiaAno = "01/01/" & Year(Date) & ""
46 DataOntem = Date - 1


DataFiltroBaseOSFiscalizacao = "" & Format(PrimeiroDiaAno, "dd/mm/yyyy") & ""


Exit_TrataErro:
Exit Function
.........
..............
...................


Na Consulta do Access Estou utilizando da Seguinte forma no criterio:

>=DataFiltroBaseOSFiscalizacao("VardataA")

Porem aqui eu queria entre datas....
Entenderam minha Duvida !!!!
Aguardo aos amigos um auxilio...

Abraço !

Boas....

Supondo que, deve estar filtrando um formulário continuo ( que tem como fonte de registro essa consulta na imagem postada !)

Eu faria o seguinte.

1- formulário desacoplado com duas caixas de textos no formato data abreviada (dd/mm/yyyy).  Coloque como nomes dessas caixas: DI E DF.
2- botão de comando para abrir o formulário continuo.
3- nessa consulta no referido campo em questão colocaria no campo critério:  Entre Forms!Frmdesacolpado!DI E Forms!Frmdesacolpado!DF
4- no botão de comando, a linha de comando fica assim...docmd.openform "seuformuláriocontinuo"

Ola Amigo !!!

Então na verdade a imagem é de uma consulta so coloquei para mostar que chamo a função VBA no Criterio, não tem Formulario, esta consulta é apenas para extração de dados da tabela.
a Ideia e chamar a Função VBA no Criterio da Consulta, mas utlizando uma instrução Between.....

Tipo o Campo é Data, então na Função VBA devolveria entre datas..

Tentei algo do Tipo FuncaoData(VarData1,VarData2)

e na consulta devolveria as duas data para ser utilizadas, sei la algo assim, é isso que não consigo fazer...

Deu pra entender rsrsrsrsrs ou deixei mais confuso !!!

Abraço !

Simples demais. Basta na linha de critério da consulta, referente ao campo data a ser filtrado, pôr o seguinte texto:

Entre [Informe a data inicial] E [Informe a data final]

Damasceno boa tarde...

Seria simples assim se eu fosse digitar as datas .... Estou falando em retornar este valor de uma função vba.....você já fez isso..usa uma função vba no criteria do consulta ?

Seria está síntese que você digitou aí mas o retorno dos valores vem da função grande...

Mesma lógica

Entre fncNomeFuncaoPrimeiraData E fncNomeFuncaoSegundaData

Ok aí você chegou onde eu queria...então eu terei que ter duas funções pra fazer mesmo....não consigo retornar os parâmetros em uma função somente tipo ..func(data1,data1).

Na minha ideia achei que dava pra retornar em uma função somente ...

Você pode armazenar em algum lugar que a primeira data já foi encontrada e nessas condições a segunda já ser calculada automaticamente. Uma variável pública por exemplo poderia armazenar a informação.