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

    [Resolvido]Parcelas pulando sábado e domingo

    Compartilhe

    rpaiva_lon
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 11/04/2012

    [Resolvido]Parcelas pulando sábado e domingo

    Mensagem  rpaiva_lon em Qui 02 Jul 2015, 19:21

    Precisando de ajuda para solucionar este problema, tenho um código pra gerar parcelas , ele pula de mês em mês , como faço para quando for fim de semana ou feriado ele pular para o próximo dia útil, o código que eu uso é este...
    São duas tabelas que eu uso, a de parcela seria um subformulario


    Private Sub btParcelas_Click()
               
       Dim db
       Dim rs
       Dim i As Integer
       
           
       Set db = CurrentDb()
       Set rs = db.OpenRecordset("tbl_Parcelas")
       
       For i = 1 To Me.txt_Mov_NParcelas
           rs.AddNew
           rs("MovD_Mov") = Me.txt_Mov_ID
           rs("MovD_Parcela") = i & "/" & Me.txt_Mov_NParcelas
           rs("MovD_Valor") = txt_Mov_Valor / txt_Mov_NParcelas
           rs("MovD_Venc") = DateAdd("m", i - 1, Forms!frm_Movimento!txt_Mov_Vencimento) 'Gera as parcelas de Mês em mês
           rs.Update
       Next
       
       rs.Close
       db.Close
       
       End If
     
    End Sub


    Última edição por rpaiva_lon em Sex 03 Jul 2015, 12:21, editado 1 vez(es)

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Parcelas pulando sábado e domingo

    Mensagem  Assis em Qui 02 Jul 2015, 20:06

    Boa tarde

    Teste

    Private Sub btParcelas_Click()
    Dim db
    Dim rs
    Dim i As Integer

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("tbl_Parcelas")

    For i = 1 To Me.txt_Mov_NParcelas
    rs.AddNew
    rs("MovD_Mov") = Me.txt_Mov_ID
    rs("MovD_Parcela") = i & "/" & Me.txt_Mov_NParcelas
    rs("MovD_Valor") = txt_Mov_Valor / txt_Mov_NParcelas
    rs("MovD_Venc") = DateAdd("m", i - 1, Forms!frm_Movimento!txt_Mov_Vencimento) 'Gera as parcelas de Mês em mês

    If Weekday(RS("MovD_Venc")) = 1 Or Weekday(RS("MovD_Venc")) = 7 Then
    Do
    IncrementaData:
    RS("MovD_Venc") = DateAdd("d", 1, RS("MovD_Venc"))
    If Weekday(RS("MovD_Venc")) = 1 Or Weekday(RS("MovD_Venc")) = 7 Then
    GoTo IncrementaData
    Else
    Exit Do
    End If
    Loop
    End If

    rs.Update
    Next

    rs.Close
    db.Close

    End If

    End Sub


    Última edição por Assis em Qui 02 Jul 2015, 22:30, editado 1 vez(es)


    .................................................................................
    *** Só sei que nada sei ***

    gutobrotas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 16/02/2013

    Re: [Resolvido]Parcelas pulando sábado e domingo

    Mensagem  gutobrotas em Sex 03 Jul 2015, 14:09

    Os numeros 1 e 7 sao respectivamente domingo e sabado?
    Posso fazer isso para 2=segunda????
    Obrigado

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Parcelas pulando sábado e domingo

    Mensagem  Assis em Sex 03 Jul 2015, 17:57

    Claro que pode.


    .................................................................................
    *** Só sei que nada sei ***

    gutobrotas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 16/02/2013

    Re: [Resolvido]Parcelas pulando sábado e domingo

    Mensagem  gutobrotas em Sex 03 Jul 2015, 19:28

    Obrigado, vou tentar adaptar pro meu sisteminha aqui!

      Data/hora atual: Dom 04 Dez 2016, 12:15