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
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