Consulta com data

Ola Povo,
Estou com um problema, criei uma função para receber uma data e fazer uma consulta.
Se eu informar a data direto na query a consulta é efetuada, porém, usando a função, o resultado é vazio.

Definição da variavel GLOBAL
Global Var_DtPrescricao As Variant


Definição da Função
Public Function fncDtPrescricao() As String
  fncDtPrescricao = Var_DtPrescricao
End Function


Data utilizada
#02/05/2018#

O que tem errado com a função?

Formate sua Data para mm/dd/yyyy e inclui o # antes e Depois #, para poder funcionar corretamente, talvez seja este o problema.


Ficará algo parecido com isso:

Public Function fncDtPrescricao() As String

fncDtPrescricao = # " & Format([Var_DtPrescricao], "mm/dd/yyyy") & " #

End Function

Partindo da Idéia que esse Campo "Var_DtPrescricao" nesse momento a cima, ja tem o Valor Data.

Nesse momento eu estou definindo a função que receberá a data.

Os passos são esses:
1 - Definição da variavel.
2 - Definição da função
3 - Carrego a variavel
4 - Executo a função.

Essa formatação deve ser feita depois do passo 3?

Entre o Tres e o Quatro, pois o Valor da Variavel deve ser passada para a Consulta ja Formatada.

Esse erro, nao é nem pelo formato, mas sim pela falta do # ... #. A formatação e feita para evitar erros em dias que podem ser interpretados erroneamente como meses pelo VBA.

Mas faça um teste...

Quanto a data, ela ta formatada na função corretamente:

#02/05/2018#

E é assim que a pesquisa é feita sem a função, e é gerada.

Meu amigo, Apenas o VBA da problemas quando passamos datas sem o # ... #. Na Consulta Grafica, podemos colocar sem o ## que ira funcionar, mas pelo VBA ele nao entende isso.

Posta aqui seu BD pra eu dar uma olhada.

Na verdade a consulta funciona, a questão é que quando uso a função com o mesmo parametro, o resultado vem vazio.

Mas, qual o tipo de variável se deve definir para receber esses dados?

#02/05/2018#

Experimente com o Tipo => Date