MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Consulta Feriado não Encontra data

    avatar
    JaimeSoares
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 30/08/2022

    [Resolvido]Consulta Feriado não Encontra data Empty [Resolvido]Consulta Feriado não Encontra data

    Mensagem  JaimeSoares 12/6/2024, 14:42

    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 !!! Shocked   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
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

    [Resolvido]Consulta Feriado não Encontra data Empty Re: [Resolvido]Consulta Feriado não Encontra data

    Mensagem  Alexandre Fim 12/6/2024, 15:02

    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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Consulta Feriado não Encontra data Setinf11
    Sistemas e Tecnologia Ltda

    JaimeSoares gosta desta mensagem

    avatar
    JaimeSoares
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 30/08/2022

    [Resolvido]Consulta Feriado não Encontra data Empty Re: [Resolvido]Consulta Feriado não Encontra data

    Mensagem  JaimeSoares 12/6/2024, 15:20

    Muito obrigado Sr. Alexandre !

    Funciona perfeitamente !!! cheers
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

    [Resolvido]Consulta Feriado não Encontra data Empty Re: [Resolvido]Consulta Feriado não Encontra data

    Mensagem  Alexandre Fim 12/6/2024, 15:29

    Valeu Jaime !!
    O fórum agradece !!

    Sucesso


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Consulta Feriado não Encontra data Setinf11
    Sistemas e Tecnologia Ltda

    Conteúdo patrocinado


    [Resolvido]Consulta Feriado não Encontra data Empty Re: [Resolvido]Consulta Feriado não Encontra data

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/7/2024, 11:36