[Resolvido]Consulta Feriado não Encontra data

Olá para todos.
 Baseado em outros tópicos daqui do MaximoAccess, fiz uma tabela com as datas dos feriados, e na aplicação um Botão de Opção para ser marcado como feriado.
 Porém funciona com algumas datas e outras não !!!   Digitando a mesma data em 2024 ou 2025 as mesmas funcionam, ou não funcionam.
 Na tabela o campo está como do tipo Data.,

Código:

   ' marca a data em caso de feriado
    Dim contadorDias As Long
    
    contadorDias = DCount("[feriadosData]", "tabFeriados", "[feriadosData] = #" & txt_Data.Value & "#")
    
    If contadorDias > 0 Then
        opc_Feriado.Value = True
    Else
        opc_Feriado.Value = False
    End If

 Alguém tem alguma ideia do que pode estar acontecendo ?

 Muito obrigado

Olá Jaime,

Utilize a formatação de data no formato americano (mm/dd/yyyy), conforme abaixo:

contadorDias = DCount("[feriadosData]", "tabFeriados", "[feriadosData] = #" & Format(txt_Data.Value, "mm/dd/yyyy") & "#")

É isso

Espero ter ajudado

Att,

Alexandre Fim

Muito obrigado Sr. Alexandre !

Funciona perfeitamente !!!

Valeu Jaime !!
O fórum agradece !!

Sucesso