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


3 participantes

    [Resolvido]Inclusão condição IF

    avatar
    wmantovani
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 06/09/2011

    [Resolvido]Inclusão condição IF Empty [Resolvido]Inclusão condição IF

    Mensagem  wmantovani 20/9/2021, 18:07

    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"
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3936
    Registrado : 21/04/2011

    [Resolvido]Inclusão condição IF Empty Re: [Resolvido]Inclusão condição IF

    Mensagem  Marcelo David 20/9/2021, 19:28

    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


    .................................................................................
    [Resolvido]Inclusão condição IF Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Inclusão condição IF Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Inclusão condição IF Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Inclusão condição IF Marcel11
    avatar
    wmantovani
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 06/09/2011

    [Resolvido]Inclusão condição IF Empty Re: [Resolvido]Inclusão condição IF

    Mensagem  wmantovani 20/9/2021, 19:34

    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"
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3936
    Registrado : 21/04/2011

    [Resolvido]Inclusão condição IF Empty Re: [Resolvido]Inclusão condição IF

    Mensagem  Marcelo David 20/9/2021, 20:45

    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


    .................................................................................
    [Resolvido]Inclusão condição IF Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Inclusão condição IF Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Inclusão condição IF Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Inclusão condição IF Marcel11
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Inclusão condição IF Empty Re: [Resolvido]Inclusão condição IF

    Mensagem  Alexandre Fim 20/9/2021, 21:19

    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
    avatar
    wmantovani
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 06/09/2011

    [Resolvido]Inclusão condição IF Empty Re: [Resolvido]Inclusão condição IF

    Mensagem  wmantovani 21/9/2021, 13:53

    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
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3936
    Registrado : 21/04/2011

    [Resolvido]Inclusão condição IF Empty Re: [Resolvido]Inclusão condição IF

    Mensagem  Marcelo David 21/9/2021, 14:28

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


    .................................................................................
    [Resolvido]Inclusão condição IF Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Inclusão condição IF Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Inclusão condição IF Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Inclusão condição IF Marcel11
    avatar
    wmantovani
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 06/09/2011

    [Resolvido]Inclusão condição IF Empty Re: [Resolvido]Inclusão condição IF

    Mensagem  wmantovani 21/9/2021, 15:40

    Obrigado a todos

    Marcelo David gosta desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3936
    Registrado : 21/04/2011

    [Resolvido]Inclusão condição IF Empty Re: [Resolvido]Inclusão condição IF

    Mensagem  Marcelo David 21/9/2021, 15:42

    Grato pelo retorno, o fórum agradece!


    .................................................................................
    [Resolvido]Inclusão condição IF Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Inclusão condição IF Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Inclusão condição IF Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Inclusão condição IF Marcel11

    Conteúdo patrocinado


    [Resolvido]Inclusão condição IF Empty Re: [Resolvido]Inclusão condição IF

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/10/2024, 06:11