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


    [Resolvido]Comparar data digitada num campo, com data registada numa tabela com Dlookup

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Comparar data digitada num campo, com data registada numa tabela com Dlookup Empty [Resolvido]Comparar data digitada num campo, com data registada numa tabela com Dlookup

    Mensagem  Assis 4/7/2015, 13:35

    Boa tarde Amigos

    Tenho este código para alertar se é sabado ou domingo ou feriado.

    Private Sub txtHireDate_AfterUpdate()

    If Weekday(txtHireDate) = 1 Or Weekday(txtHireDate) = 7 Or txtHireDate = DLookup("[Dataferiado]", "tblferiados", "[Dataferiado] ") Then

    Quando é sábado ou domingo funciona...... mas não está a funcionar quando tem de ir a tabela feriados comparar se é igual.

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Comparar data digitada num campo, com data registada numa tabela com Dlookup Empty Re: [Resolvido]Comparar data digitada num campo, com data registada numa tabela com Dlookup

    Mensagem  Assis 4/7/2015, 14:29


    Cheguei lá

    If Weekday(txtHireDate) = 1 Or Weekday(txtHireDate) = 7 Or (Not IsNull(DLookup("[Dataferiado]", "tblferiados", "[Dataferiado] =#" & Format(Me.txtHireDate, "mm/dd/yyyy") & "#"))) Then
    Obrigado


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: 21/11/2024, 22:51