MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Sab 04 Jul 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 ***
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Sab 04 Jul 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: Ter 21 Nov 2017, 04:38