Executar filtro com DateDiff pelo VBA

Boa noite, amigos

Estou tentando executar, sem êxito, o seguinte código: DoCmd.ApplyFilter , "InícioContrato=#" & DateDiff("m", InícioContrato, Date) >= 12 & "# And #" & DateDiff("m", InícioContrato, Date) <= 15 & "#"

Esse código como critério de consulta funciona perfeitamente: WHERE ((DateDiff("m",[InícioContrato],Date())>=12 And DateDiff("m",[InícioContrato],Date())<=15));
Já no VBA ocorre erro em tempo de execução '2427': Você inseriu uma expressão que não tem valor.

Grato pela ajuda.

Alguma ideia, amigos?

Jonatan, boa noite!

Creio que está encontrando erro no código VBA, pois está usando o qualificador de datas #, sendo que a função Datediff retorna um variant/long e não uma data. Tente assim:

Código:


DoCmd.ApplyFilter , "InícioContrato= " & DateDiff("m", InícioContrato, Date) >= 12 & " And " & DateDiff("m", InícioContrato, Date) <= 15


Bom dia, philipp.moreira. Obrigado pela ajuda.


O erro não ocorre mais, porém o filtro não funciona. Fiz um teste numa consulta com os mesmos parâmetros e está normal. Só no VBA que não funciona o filtro.

Desculpe errei na composição. Tente assim:

Código:


DoCmd.ApplyFilter , DateDiff("m", InícioContrato, Date) & " >= 12 And " & DateDiff("m", InícioContrato, Date) & " <= 15"


Não funcionou. Voltou a ocorrer o erro anterior 2427: Você inseriu uma expressão que não tem valor.