[Resolvido]Como gerar parcelas de 15 dias em uma tabela de agendamento

Bom dia!

Preciso Gerar lançamentos de 15 dias em uma tabela que representa agendamentos de um cliente.

Exemplo:

Data atual 03/05/2017

agendar ate o final de ano de 15 em 15 dias o mesmo registro duplicando.

Um agendamento para o cliente copiando o atual.

Não achei material de gerar lançamentos de 15 dias somente na função Dateadd ou tem dia, mes e ano mas quinzena não consegui.

Alguém pode me ajudar?

Boa noite,

Creio que o exemplo do amigo Uilson Brasil faz aquilo que pretende.

Link: Parcelamento

Cumprimentos

Ola Pcnet!

Agradeço a resposta e com certeza o exemplo poderá ser bem útil, porem para eu adaptar ao meu caso preciso visualizar o modulo
e o mesmo não permite pedindo uma senha.

Você por acaso sabe a senha para visualizar o modulo para eu saber o conteúdo da função?

Agradeço

Bom dia,

Estive a verificar o exemplo e entrei em todos os módulos sem restrição.
Onde lhe pediu senha?

Cumprimentos

Bom dia!

Ao entrar no formulário formparcelamento em modo design gostaria de ver o que o botão btnGerar " F2-Gerar Parcelas" esta executando ao clicar então
vou no evento ao clicar.
Quando clico para ver me pede uma senha e remete ao modulo SysParc(GeraParcelas2003), impossibilitando assim de ver o script de execução.

Agradeço pelo retorno.

Bom dia,

No meu caso abro sem qualquer restrição.

O código que se encontra no botão que referiu é este:

Código:

Private Sub btnGerar_Click()
On Error Resume Next
btFoco.SetFocus
Dim Correct As Variant
If txtContar > 1 Then
    MsgBox "As parcelas já foram geradas.", vbInformation, "Aviso"
    DoCmd.CancelEvent
Else
    If MsgBox("Confirma a geração do parcelamento?", vbYesNo + vbDefaultButton1 + vbQuestion, "OrthOffice") = vbYes Then
        DoCmd.OpenForm "formProcesso"
        If IsNull(txtQuant) Or txtQuant = "" Or txtQuant = 0 _
        Or IsNull(txtData) Or txtData = "" _
        Or IsNull(txtValor) Or txtValor = "" _
        Or IsNull(txtInter) Or txtInter = "" Or txtInter = 0 Then
            Forms!formProcesso!imgExclamation.Visible = True
            Forms!formProcesso!imgOK.Visible = False
            Forms!formProcesso!info.Caption = "Verifique os campos..."
            Forms!formProcesso!info.ForeColor = 999
            Pause 1
            DoCmd.Close acForm, "formProcesso"
            txtQuant.SetFocus
            DoCmd.CancelEvent
        Else
            Forms!formProcesso!imgOK.Visible = True
            Forms!formProcesso!info.Caption = "Geração iniciada ..."
            Pause 1
            Dim DB As Database, rs As DAO.Recordset
            Correct = txtInter - 1
            'Dim ValorPac As Currency, i As Long
            Set DB = CurrentDb()
            Set rs = DB.OpenRecordset("tblExemplo") 'Abre a tabela
            For i = 1 To txtQuant  'Insere as Parcelas na tabela
            rs.AddNew
            rs("CPVALOR") = txtValor
            If intervMes = True Then
                rs("CPDATA") = DateAdd("m", i - 1, txtData)
            ElseIf itervDias = True Then
                rs("CPDATA") = DateAdd("d", (i - 1) * Correct, txtData)
            End If
            rs("COMPRA") = "Parcela " & i & " de " & txtQuant
            rs.Update
            Next
            rs.Close
            DB.Close
            Recalc
            Forms!formProcesso!info.Caption = "Parcelas geradas"
            Pause 2
            Forms!formProcesso!info.Caption = "Verificando vencimentos"
            Pause 1
            Forms!formProcesso!info.Caption = "Ajustando vencimentos"
            Pause 1
            'Ajustando data de vencimento (finais de semana)
            DoCmd.SetWarnings False
            If aSeg = True Then 'Ajusta data vcto para segunda-feira
                DoCmd.OpenQuery "SabToSeg"
                DoCmd.Close acQuery, "SabToSeg"
                DoCmd.OpenQuery "DomToSeg"
                DoCmd.Close acQuery, "DomToSeg"
            ElseIf aSex = True Then 'Ajusta data vcto para sexta-feira
                DoCmd.OpenQuery "SabToSex"
                DoCmd.Close acQuery, "SabToSex"
                DoCmd.OpenQuery "DomToSex"
                DoCmd.Close acQuery, "DomToSex"
            End If
            DoCmd.SetWarnings True
            Recalc
            Forms!formProcesso!info.Caption = "Processo concluído"
            Pause 1
            DoCmd.Close acForm, "formProcesso"
            Call Form_Current
        End If
    End If
End If
End Sub

Cumprimentos

Perfeito!

Consegui resolver com

rs("Data") = DateAdd("d", (I - 1) * Correct, Me.DataInicial), onde Corrent e a variavel correspondente ao numero de dias e Me.DataInicial corresponde a data inicial de agendamento.

Muitíssimo obrigado.

Ótimo que tenha conseguido resolver (,")
O forum agradece o seu feedback.

Cumprimentos