Acesse o filtro VBA SQL por data abreviada em um campo de data / hora longo - vba, acesso ms, acesso-vba

Estou tendo problemas para obter critérios para trabalhar. Há uma questão relacionada no StackO aqui, mas eu tentei o que está nele e ele ainda não está funcionando, então eu estou fazendo a minha pergunta específica. Desculpas se isso não é tecnicamente kosher no StackO. Não é possível filtrar o campo de acesso de data de MS usando data abreviada

Eu tenho uma consulta que preciso ter WHERE critérioscom base em um ID associado e na data atual do dia. Mas o campo que tem a data do dia atual precisa ser um campo de data e hora longo, portanto, os critérios para a data curta não funcionam. Eu fiz essa consulta no modo de design de consulta e ele faz exatamente o que eu quero:

SELECT tbl_Data.[#], AssocID, tsUpdated FROM tbl_Data WHERE AssocID = 4441 AND DateValue([tsUpdated])=Date()));

Mas quando eu faço o equivalente no VBA, o que eu preciso para que isso aconteça, não funciona. Observe, Eu tenho usado Date nesta versão vba porque de acordo com esta local na rede Internet, Date retornará a data atual:

Set FinishReport = CurrentDb.CreateQueryDef("qry_SessionReport", "SELECT tbl_Data.[#], AssocID, tsUpdated FROM tbl_Data WHERE AssocID = 4441 AND DateValue([tsUpdated])=Date”)

Eu tentei todos os tipos de sintaxe e tentei as respostas do URL de StackO acima, mas nada funcionou. Alguma ideia?

Obrigado!

Respostas:

Para o querydef, notei que você não tem ofechando parênteses para a função Date () no texto SQL. No editor VBA, a função está listada como Data sem parênteses, mas se você tentou usar a função Date () em uma consulta sem o parêntese, o Access lançaria um erro. Espero que ajude!