Flavio Costa

Boa tarde a todos. Sou novo aqui no forum, e venho solicitar uma ajuda para descobrir um erro. Estou fazendo uma rotina em PERL para buscar algumas informações no Access. No Access existe um função publica que faz o calculo da idade, onde passo os parametros da data de nascimento e data do dia, e ele retorna a idade completa em ano, mes e dias. A função funciona perfeitamente no access, portanto quando monto a query no Perl, recebo a mensagem de erro que a função está "indefinida na expressão". SELECT T1.cpf_assistido, T1.idf_nome, T2.nm_dependente, T2.cpf_dependente, T2.dt_nascto, Val(calc_idade2([T2].[dt_nascto],#31/12/2024#,1)) AS dep_ANOS, calc_idade2([T2].[dt_nascto],#31/12/2024#,3) AS idade, T2.genero, Val(calc_idade2([T2].[dt_nascto],#31/12/2024#,2)) AS Parm_idade FROM tbl_social_assistidos AS T1 INNER JOIN tbl_social_comp_familiar AS T2 ON T1.cpf_assistido = T2.cpf_assistido WHERE (((T2.parentesco)='Filho(a)') AND ((Val(calc_idade2([T2].[dt_nascto],#31/12/2024#,2)))<=120000)) DBD::ODBC::st execute failed: [Microsoft][Driver ODBC Microsoft Access] Funτπo 'calc_idade2' indefinida na expressπo. (SQL-42000) at Rel_Dependentes.pl line 126. A query também é executado corretamente no PERL se retirar a chamada da função (calc_idade2). Muito obrigado. Flavio