MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Uso da Função DLookup e Data

    Compartilhe

    mpsbra
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 21/08/2012

    Uso da Função DLookup e Data

    Mensagem  mpsbra em Seg 23 Fev 2015, 03:10

    Oi pessoal boa noite mais uma vez!
    Estou com uma duvida referente a consulta de data, neste caso em uma tabela Feriados.
    Fiz uma tabela com todos os feriados até 2078, rs, neste caso feriado nacional e do RJ, onde nesta tabela eu busco a informação se aquela data é feriado ou não.
    Estou tentando atraves de uma combinação com a função If.

    Ficou assim;

    If Me.dtEntrCredita = DLookup("dtFeriadoNacional", "tblCadastroFeriados", "dtDataComemorativa ='" & Me.dtEntrCredita & "'") Then
    'DLookup Débito
    ElseIf Me.txtDiaSemaCaixa = "sexta-feira" And Me.cboTipoBandeira = "debito" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2
    ElseIf Me.txtDiaSemaCredita = "sábado" And Me.cboTipoBandeira = "debito" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 1
    ElseIf Me.txtDiaSemaCredita = "domingo" And Me.cboTipoBandeira = "debito" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSemaCredita = "segunda-feira" And Me.cboTipoBandeira = "debito" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSemaCredita = "terca-feira" And Me.cboTipoBandeira = "debito" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSemaCredita = "quarta-feira" And Me.cboTipoBandeira = "debito" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSemaCredita = "quinta-feira" And Me.cboTipoBandeira = "debito" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    'DLookup Crédito
    ElseIf Me.txtDiaSemaCredita = "sábado" And Me.cboTipoBandeira = "credito" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2
    ElseIf Me.txtDiaSemaCredita = "domingo" And Me.cboTipoBandeira = "credito" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 1
    ElseIf Me.txtDiaSemaCredita = "segunda-feira" And Me.cboTipoBandeira = "credito" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSemaCredita = "terça-feira" And Me.cboTipoBandeira = "credito" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSemaCredita = "quarta-feira" And Me.cboTipoBandeira = "credito" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSemaCredita = "quinta-feira" And Me.cboTipoBandeira = "credito" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSemaCredita = "sexta-feira" And Me.cboTipoBandeira = "credito" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    End If


    O campo dtEntrCredita é o campo onde já existe um valor que assim busca a informação se esta mesma data está na tabela tblCadastroFeriados. Assim ele compara a dtDataComemorativa com o dtEntraCredita.

    Eu já fiz o procedimento para identificar os finais de semana, parecido com este codigo acima. Desculpa se não estiver muito bom, pois estou aprendendo de pouco a pouco.
    Por favor me ajude encontrar oque está errado...

    Obrigado desde Já!

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    Registrado : 04/04/2010

    Re: Uso da Função DLookup e Data

    Mensagem  Avelino Sampaio em Seg 23 Fev 2015, 07:43

    Olá!

    Veja este meu artigo sobre como trabalhar com filtragens, usando data no VBA:

    [Você precisa estar registrado e conectado para ver este link.]

    E aqui um outro artigo de como postergar ou antecipar datas de vencimento:

    [Você precisa estar registrado e conectado para ver este link.]

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    mpsbra
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 21/08/2012

    Obrigado pelo retorno!

    Mensagem  mpsbra em Seg 02 Mar 2015, 12:27

    Srº Avelino fico muito honrado pela sua atenção!

    Mas eu não compreendi muito bem as instruções, pois sou novato nesta parte de uso do VBA.

    Eu tentei assim, no caso melhorei o codigo que postei anteriormente.

    ficou assim;


    Código:
    Private Sub cboBandeira_AfterUpdate()
    Me.dtLancamento = Me.dtAtualCaixa
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    Me.dtEfetCreditoOrigi = Me.dtLancamento + Me.numDiasCredito

    'Procura Feriado

    If Me.dtEntrCredita = DLookup("dtFeriadoNacional", "tblCadastroFeriados", "dtDataComemorativa =#" & Me.dtEntrCredita & "#") >= 1 Or DCount("dtFeriadoNacional", "tblCadastroFeriados", "dtDataComemorativa =#" & Me.dtEntrCredita & "#") >= 1 Then
    Me.selecDataFeriado = -1
    Else
    Me.selecDataFeriado = 0
    End If
    'DLookup Crédito
    If Me.txtDiaSemaCredita = "sábado" And Me.cboTipoBandeira = "credito" And Me.selecDataFeriado = -1 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2
    ElseIf Me.txtDiaSemaCredita = "domingo" And Me.cboTipoBandeira = "credito" And Me.selecDataFeriado = -1 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 1
    ElseIf Me.txtDiaSemaCredita = "segunda-feira" And Me.cboTipoBandeira = "credito" And Me.selecDataFeriado = -1 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 1
    ElseIf Me.txtDiaSemaCredita = "terça-feira" And Me.cboTipoBandeira = "credito" And Me.selecDataFeriado = -1 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 1
    ElseIf Me.txtDiaSemaCredita = "quarta-feira" And Me.cboTipoBandeira = "credito" And Me.selecDataFeriado = -1 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 1
    ElseIf Me.txtDiaSemaCredita = "quinta-feira" And Me.cboTipoBandeira = "credito" And Me.selecDataFeriado = -1 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 1
    ElseIf Me.txtDiaSemaCredita = "sexta-feira" And Me.cboTipoBandeira = "credito" And Me.selecDataFeriado = -1 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 3
    ElseIf Me.txtDiaSemaCredita = "sábado" And Me.cboTipoBandeira = "credito" And Me.selecDataFeriado = -1 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2
    End If
    'DLookup Débito
    If Me.txtDiaSemaCredita = "sexta-feira" And Me.cboTipoBandeira = "debito" And Me.selecDataFeriado = -1 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 3
    ElseIf Me.txtDiaSemaCredita = "sábado" And Me.cboTipoBandeira = "debito" And Me.selecDataFeriado = -1 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2
    ElseIf Me.txtDiaSemaCredita = "domingo" And Me.cboTipoBandeira = "debito" And Me.selecDataFeriado = -1 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 1
    ElseIf Me.txtDiaSemaCredita = "segunda-feira" And Me.cboTipoBandeira = "debito" And Me.selecDataFeriado = -1 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 1
    ElseIf Me.txtDiaSemaCredita = "terca-feira" And Me.cboTipoBandeira = "debito" And Me.selecDataFeriado = -1 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 1
    ElseIf Me.txtDiaSemaCredita = "quarta-feira" And Me.cboTipoBandeira = "debito" And Me.selecDataFeriado = -1 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 1
    ElseIf Me.txtDiaSemaCredita = "quinta-feira" And Me.cboTipoBandeira = "debito" And Me.selecDataFeriado = -1 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 1
    ElseIf Me.txtDiaSemaCredita = "sexta-feira" And Me.cboTipoBandeira = "debito" And Me.selecDataFeriado = -1 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 3
    End If

    'Calculo de Data para Débito.
    If Me.txtDiaSemaCaixa = "sexta-feira" And Me.cboTipoBandeira = "debito" And Me.selecDataFeriado = 0 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2
    ElseIf Me.txtDiaSemaCaixa = "sábado" And Me.cboTipoBandeira = "debito" And Me.selecDataFeriado = 0 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 1
    ElseIf Me.txtDiaSemaCaixa = "domingo" And Me.cboTipoBandeira = "debito" And Me.selecDataFeriado = 0 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSemaCaixa = "segunda-feira" And Me.cboTipoBandeira = "debito" And Me.selecDataFeriado = 0 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSemaCaixa = "terca-feira" And Me.cboTipoBandeira = "debito" And Me.selecDataFeriado = 0 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSemaCaixa = "quarta-feira" And Me.cboTipoBandeira = "debito" And Me.selecDataFeriado = 0 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSemaCaixa = "quinta-feira" And Me.cboTipoBandeira = "debito" And Me.selecDataFeriado = 0 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSemaCaixa = "sexta-feira" And Me.cboTipoBandeira = "debito" And Me.selecDataFeriado = 0 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2
    End If
    'Calculo de Data para Crédito
    If Me.txtDiaSemaCredita = "sábado" And Me.cboTipoBandeira = "credito" And Me.selecDataFeriado = 0 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2
    ElseIf Me.txtDiaSemaCredita = "domingo" And Me.cboTipoBandeira = "credito" And Me.selecDataFeriado = 0 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 1
    ElseIf Me.txtDiaSemaCredita = "segunda-feira" And Me.cboTipoBandeira = "credito" And Me.selecDataFeriado = 0 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSemaCredita = "terça-feira" And Me.cboTipoBandeira = "credito" And Me.selecDataFeriado = 0 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSemaCredita = "quarta-feira" And Me.cboTipoBandeira = "credito" And Me.selecDataFeriado = 0 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSemaCredita = "quinta-feira" And Me.cboTipoBandeira = "credito" And Me.selecDataFeriado = 0 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSemaCredita = "sexta-feira" And Me.cboTipoBandeira = "credito" And Me.selecDataFeriado = 0 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSemaCredita = "sábado" And Me.cboTipoBandeira = "credito" And Me.selecDataFeriado = 0 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2

    ElseIf Me.txtDiaSemaCredita = "sábado" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 3
    ElseIf Me.txtDiaSemaCredita = "domingo" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2

    ElseIf Me.txtDiaSemaCredita = "sábado" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 3
    ElseIf Me.txtDiaSemaCredita = "domingo" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2

    End If
    'Calculo para Ticket não Feriado
    If Me.txtDiaSema = "segunda-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "terça-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2
    ElseIf Me.txtDiaSema = "segunda-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "quarta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 3
    ElseIf Me.txtDiaSema = "segunda-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "quinta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 4
    ElseIf Me.txtDiaSema = "segunda-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "sexta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 5
    ElseIf Me.txtDiaSema = "segunda-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = txtDiaSema Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSema = "segunda-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSema = "segunda-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "segunda-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 7



    ElseIf Me.txtDiaSema = "terça-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "segunda-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 7
    ElseIf Me.txtDiaSema = "terça-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "quarta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2
    ElseIf Me.txtDiaSema = "terça-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "quinta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 3
    ElseIf Me.txtDiaSema = "terça-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "sexta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 4
    ElseIf Me.txtDiaSema = "terça-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = txtDiaSema Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSema = "terça-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSema = "terça-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "terça-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 7


    ElseIf Me.txtDiaSema = "quarta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "segunda-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 6
    ElseIf Me.txtDiaSema = "quarta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "terça-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 7
    ElseIf Me.txtDiaSema = "quarta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "quinta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2
    ElseIf Me.txtDiaSema = "quarta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "sexta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 3
    ElseIf Me.txtDiaSema = "quarta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = txtDiaSema Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSema = "quarta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSema = "quarta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "quarta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 7


    ElseIf Me.txtDiaSema = "quinta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "segunda-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 5
    ElseIf Me.txtDiaSema = "quinta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "terça-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 6
    ElseIf Me.txtDiaSema = "quinta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "quarta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 7
    ElseIf Me.txtDiaSema = "quinta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "sexta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2
    ElseIf Me.txtDiaSema = "quinta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = txtDiaSema Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSema = "quinta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSema = "quinta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "quinta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 7

    ElseIf Me.txtDiaSema = "sexta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "segunda-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 4
    ElseIf Me.txtDiaSema = "sexta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "terça-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 5
    ElseIf Me.txtDiaSema = "sexta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "quarta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 6
    ElseIf Me.txtDiaSema = "sexta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "quinta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 7
    ElseIf Me.txtDiaSema = "sexta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = txtDiaSema Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSema = "sexta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito
    ElseIf Me.txtDiaSema = "sexta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "sexta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 7


    ElseIf Me.txtDiaSema = "sábado" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "segunda-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 3
    ElseIf Me.txtDiaSema = "sábado" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "terça-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 4
    ElseIf Me.txtDiaSema = "sábado" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "quarta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 5
    ElseIf Me.txtDiaSema = "sábado" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "quinta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 6
    ElseIf Me.txtDiaSema = "sábado" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "sexta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 7
    ElseIf Me.txtDiaSema = "sábado" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = txtDiaSema Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 3
    ElseIf Me.txtDiaSemaCredita = "sábado" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 4
    ElseIf Me.txtDiaSemaCredita = "sábado" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "sábado" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 7


    ElseIf Me.txtDiaSema = "domingo" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "segunda-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2
    ElseIf Me.txtDiaSema = "domingo" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "terça-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 3
    ElseIf Me.txtDiaSema = "domingo" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "quarta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 4
    ElseIf Me.txtDiaSema = "domingo" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "quinta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 5
    ElseIf Me.txtDiaSema = "domingo" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "sexta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 6
    ElseIf Me.txtDiaSema = "domingo" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = txtDiaSema Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2
    ElseIf Me.txtDiaSemaCredita = "domingo" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 3
    ElseIf Me.txtDiaSemaCredita = "domingo" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = 0 And Me.txtCreditaApartir = "domingo" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 7


    'Ticket Feriado
    ElseIf Me.txtDiaSema = "segunda-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "terça-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 3
    ElseIf Me.txtDiaSema = "segunda-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "quarta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 4
    ElseIf Me.txtDiaSema = "segunda-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "quinta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 5
    ElseIf Me.txtDiaSema = "segunda-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "sexta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 7
    ElseIf Me.txtDiaSema = "segunda-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = txtDiaSema Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2
    ElseIf Me.txtDiaSema = "segunda-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 3
    ElseIf Me.txtDiaSema = "segunda-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "segunda-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 8


    ElseIf Me.txtDiaSema = "terça-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "segunda-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 8
    ElseIf Me.txtDiaSema = "terça-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "quarta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 3
    ElseIf Me.txtDiaSema = "terça-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "quinta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 4
    ElseIf Me.txtDiaSema = "terça-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "sexta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 5
    ElseIf Me.txtDiaSema = "terça-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = txtDiaSema Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2
    ElseIf Me.txtDiaSema = "terça-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "segunda-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 8
    ElseIf Me.txtDiaSema = "terça-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "terça-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 8
    ElseIf Me.txtDiaSema = "terça-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito


    ElseIf Me.txtDiaSema = "quarta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "segunda-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 7
    ElseIf Me.txtDiaSema = "quarta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "terça-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 8
    ElseIf Me.txtDiaSema = "quarta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "quinta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 3
    ElseIf Me.txtDiaSema = "quarta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "sexta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 5
    ElseIf Me.txtDiaSema = "quarta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = txtDiaSema Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2
    ElseIf Me.txtDiaSema = "quarta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "segunda-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 7
    ElseIf Me.txtDiaSema = "quarta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "quarta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 8
    ElseIf Me.txtDiaSema = "quarta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito


    ElseIf Me.txtDiaSema = "quinta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "segunda-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 6
    ElseIf Me.txtDiaSema = "quinta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "terça-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 7
    ElseIf Me.txtDiaSema = "quinta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "quarta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 8
    ElseIf Me.txtDiaSema = "quinta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "sexta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 4
    ElseIf Me.txtDiaSema = "quinta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = txtDiaSema Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2
    ElseIf Me.txtDiaSema = "quinta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "segunda-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 6
    ElseIf Me.txtDiaSema = "quinta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "quinta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 8
    ElseIf Me.txtDiaSema = "quinta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito

    ElseIf Me.txtDiaSema = "sexta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "segunda-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 5
    ElseIf Me.txtDiaSema = "sexta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "terça-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 6
    ElseIf Me.txtDiaSema = "sexta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "quarta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 7
    ElseIf Me.txtDiaSema = "sexta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "quinta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 8
    ElseIf Me.txtDiaSema = "sexta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = txtDiaSema Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 4
    ElseIf Me.txtDiaSema = "sexta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "segunda-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 5
    ElseIf Me.txtDiaSema = "sexta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "sexta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 8
    ElseIf Me.txtDiaSema = "sexta-feira" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito


    ElseIf Me.txtDiaSema = "sábado" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "segunda-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 4
    ElseIf Me.txtDiaSema = "sábado" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "terça-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 5
    ElseIf Me.txtDiaSema = "sábado" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "quarta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 6
    ElseIf Me.txtDiaSema = "sábado" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "quinta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 7
    ElseIf Me.txtDiaSema = "sábado" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "sexta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 8
    ElseIf Me.txtDiaSema = "sábado" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = txtDiaSema Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 3
    ElseIf Me.txtDiaSemaCredita = "sábado" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 3
    ElseIf Me.txtDiaSemaCredita = "sábado" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "sábado" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 10


    ElseIf Me.txtDiaSema = "domingo" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "segunda-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 3
    ElseIf Me.txtDiaSema = "domingo" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "terça-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 4
    ElseIf Me.txtDiaSema = "domingo" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "quarta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 5
    ElseIf Me.txtDiaSema = "domingo" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "quinta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 6
    ElseIf Me.txtDiaSema = "domingo" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "sexta-feira" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 8
    ElseIf Me.txtDiaSema = "domingo" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = txtDiaSema Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2
    ElseIf Me.txtDiaSemaCredita = "domingo" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 2
    ElseIf Me.txtDiaSemaCredita = "domingo" And Me.cboTipoBandeira = "TICKET ELETRONICO" And Me.selecDataFeriado = -1 And Me.txtCreditaApartir = "domingo" Then
    Me.dtEntrCredita = Me.dtAtualCaixa + Me.numDiasCredito + 9
    End If

    If Me.txtDiaSemaCredita = "sábado" Then
    Me.dtEntrCredita = Me.dtEntrCredita + 2
    ElseIf Me.txtDiaSemaCredita = "domingo" Then
    Me.dtEntrCredita = Me.dtEntrCredita + 1
    ElseIf Me.selecDataFeriado = -1 Then
    Me.dtEntrCredita = Me.dtEntrCredita + 1
    End If
    Me.VlrLanctoBruto.SetFocus
    End Sub

    -------

    Então, ficou legal, mais por exemplo, se a data de credito cai em um sábado ou domingo ele posterga para a segunda, mais não aplica mais um dia caso a segunda venha ser um feriado.

    Eu criei uma tabela de feriados para consulta. Outro exemplo que está funcionando bem, é quando a data de credito começa a valer a partir de um determinado dia da semana, mas o que pega mesmo é a questão do feriado pós sábado e domingo.

    Tem algo mais que eu possa fazer?

    Olha desde já agradeço, e que Deus continue te abençoando.

      Data/hora atual: Sex 09 Dez 2016, 03:48