[Resolvido]Inclusão condição IF

Boa tarde pessoal, novamente recorro ao forum para uma ajuda preciso que ao selecionar que contem os valores:

PAGAMENTO
BANCO DE HORAS
DESCONTO DE HORA


Tenho o seguinte código:

If Me.Tipo_Lançamento.Value = "PAGAMENTO" Then
    Me.Total_Horas = (Me.SaidaManha - Me.EntradaManha) + (Me.SaidaTarde - Me.EntradaTarde)
    Me.log.Value = Now & " - " & [Forms]![LOGADO]![Usuário]
    Total_Horas.SetFocus
    Me.Justificativa.SetFocus
     
   
           
   
    ElseIf Me.Tipo_Lançamento.Value = "DESCONTO DE HORAS" Then
    Me.tipohoras.Value = "DESC. HORAS"
    Me.Total_Horas.Locked = False
    Total_Horas.SetFocus
   
    ElseIf Me.Tipo_Lançamento.Value = "BANCO DE HORAS" Then
    Me.tipohoras.Value = "BANCO DE HORAS"
    Me.Justificativa.SetFocus
   
    End If


Preciso incluir a seguinte instrução quando selecionar a opção PAGAMENTO juntamente com a primeira instrução, porem nao estou conseguindo inlcuir

If (Not IsNull(DLookup("[DATA]", "tblFeriados", "[data] like #" & Me.Dia & "# or [Tipo_Feriado] = '" & "ponto fatultativo" & "'") Or Me.NomeDia = "domingo")) Then
    Me.tipohoras.Value = "HORA FERIADA"
    Else
    Me.tipohoras.Value = "HORA EXTRA"

Boa tarde,
não sei se esqueceu e se não, pode ser a falta do end if

If (Not IsNull(DLookup("[DATA]", "tblFeriados", "[data] like #" & Me.Dia & "# or [Tipo_Feriado] = '" & "ponto fatultativo" & "'") Or Me.NomeDia = "domingo")) Then
Me.tipohoras.Value = "HORA FERIADA"
Else
Me.tipohoras.Value = "HORA EXTRA"
End If

Perdão Marcelo David, acho que não me expressei bem,

Vou tentar explicar em português o que preciso:

Que ao selecionar na listbox o valor "PAGAMENTO"

o códio vba verifique se o campo me.dia esta preenchido e pesquise na tabela feriados se o valor do campo me.tipohoras será "hora extra" ou "hora feriada"


If (Not IsNull(DLookup("[DATA]", "tblFeriados", "[data] like #" & Me.Dia & "# or [Tipo_Feriado] = '" & "ponto fatultativo" & "'") Or Me.NomeDia = "domingo")) Then
Me.tipohoras.Value = "HORA FERIADA"
Else
Me.tipohoras.Value = "HORA EXTRA"

Vejamos se entendi.
(Ainda assim insisto no fechamento do IF, pois nas duas vezes que enviou estava faltando o End If. Incluí nesse teste abaixo.
Teste por favor:

Código:

If Me.Tipo_Lançamento.Value = "PAGAMENTO" Then
    Me.Total_Horas = (Me.SaidaManha - Me.EntradaManha) + (Me.SaidaTarde - Me.EntradaTarde)
    Me.log.Value = Now & " - " & [Forms]![LOGADO]![Usuário]
    Total_Horas.SetFocus
    Me.Justificativa.SetFocus
   
   If Not IsNull(DLookup("[DATA]", "tblFeriados", "[data] like #" & Me.Dia & " # or [Tipo_Feriado] = 'ponto fatultativo'") Or Me.NomeDia = "domingo") Then
      Me.tipohoras.Value = "HORA FERIADA"
    Else
      Me.tipohoras.Value = "HORA EXTRA"
   End If
ElseIf Me.Tipo_Lançamento.Value = "DESCONTO DE HORAS" Then
   Me.tipohoras.Value = "DESC. HORAS"
   Me.Total_Horas.Locked = False
   Total_Horas.SetFocus
ElseIf Me.Tipo_Lançamento.Value = "BANCO DE HORAS" Then
   Me.tipohoras.Value = "BANCO DE HORAS"
   Me.Justificativa.SetFocus 
End If

Passando para deixar minha sugestão.

Acredito que o valor em vermelho esteja errado:

If Not IsNull(DLookup("[DATA]", "tblFeriados", "[data] like #" & Me.Dia & " # or [Tipo_Feriado] = 'ponto fatultativo'")

É isso.

[]'s

FIM

Pessol consegui chegar no resultado que eu queria, não sei se é o modelo mais correto, porem como nao entendo muito de VBA, mas deu certo. rs

Private Sub Tipo_Lançamento_AfterUpdate()

Dim Manha As Date

If IsNull(Me.EntradaManha) Then
Me.EntradaManha.Value = "00:00"
Else
End If

If IsNull(Me.SaidaManha) Then
Me.SaidaManha.Value = "00:00"
Else
End If

If IsNull(Me.Almoco) Then
Me.Almoco.Value = "00:00"
Else
End If


If IsNull(Me.EntradaTarde) Then
Me.EntradaTarde.Value = "00:00"
Else
End If

If IsNull(Me.SaidaTarde) Then
Me.SaidaTarde.Value = "00:00"
Else
End If



If Me.Tipo_Lançamento.Value = "PAGAMENTO" Then
If (Not IsNull(DLookup("[DATA]", "tblFeriados", "[data] like #" & Me.Dia & "# or [Tipo_Feriado] = '" & "ponto facultativo" & "'") Or Me.NomeDia = "domingo")) Then
Me.tipohoras.Value = "HORA FERIADA"
Me.Total_Horas = (Me.SaidaManha - Me.EntradaManha) + (Me.SaidaTarde - Me.EntradaTarde)
Me.Justificativa.SetFocus
Else
Me.tipohoras.Value = "HORA EXTRA"
Me.Total_Horas = (Me.SaidaManha - Me.EntradaManha) + (Me.SaidaTarde - Me.EntradaTarde)
Me.Justificativa.SetFocus
End If
End If

If Me.Tipo_Lançamento.Value = "BANCO DE HORAS" Then
Me.tipohoras.Value = "BANCO DE HORAS"
Me.Total_Horas = (Me.SaidaManha - Me.EntradaManha) + (Me.SaidaTarde - Me.EntradaTarde)
Me.Justificativa.SetFocus

ElseIf Me.Tipo_Lançamento.Value = "DESCONTO DE HORAS" Then
Me.tipohoras.Value = "DESC. HORAS"
Me.Total_Horas.Locked = False
Total_Horas.SetFocus

End If

End Sub

Opa, se conseguiu, "conseguido está!"
Não esqueça de dar por resolvido o tópico.

Obrigado a todos

Grato pelo retorno, o fórum agradece!