[Resolvido]Como Criar Parcelas a partir de uma data.

Bom dia.

A partir da data de compras e numero de parcelas que sera lançado no meu formPedidoDeCompra, eu quera sejam criadas as parcelas.
Tenho que criar uma tabela para armazenar estas parcelas?
Ou poço acrescentar na tabela pedido de compras mesmo?
Qual o código ou macro para criar as tabelas?

Desde ja Agradeço.

Samuel, eu criaria uma tabela para as parcelas.
Veja esse modelo.

Samuel, aproveite e veja também como se faz uma busca neste fórum;

Olhe para este resultado;

http://maximoaccess.forumeiros.com/search?mode=searchbox&search_keywords=parcelas&show_results=topics

E este;

http://www.google.com/search?hl=pt&as_q=&as_oq=Parcelas&as_sitesearch=maximoaccess.forumeiros.com

Boa tarde JPaulo e Leandro.

Conforme exemplos enviados por JPaulo deu certo.

Veja o código como ficou..

Código:

Option Compare Database

Private Sub btnGerar_Click()
Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim Parc As String
StrValorParc = Me.txtValor_Total / Me.txtParc

For I = 1 To Me.txtParc
StrDateAdd = DateAdd("m", 1 * I, Me.txtData)
StrParc = I & "/" & Me.txtParc
CurrentDb.Execute "INSERT INTO tblExemplo(Compra,CpData,CpValor,Parcela)" _
                & " Values(""" & Me.txtDescricao.Value & """,#" & StrDateAdd & "#, """ & StrValorParc & """, """ & StrParc & """);"
Next I
Me.lstParcelas.Requery
End Sub

Private Sub btnSairGerarParcelas_Click()
DoCmd.Close acForm, "FormGerarParcelaCompras"
End Sub

Private Sub cmdSalvarParcelas_Click()
If IsNull(Me.txtParc) Then
MsgBox "Não existe Parcelas para serem Salvas.", vbCritical + vbOKOnly, "Sistema de Automação Comercial - Aviso."
        Exit Sub
    End If
    DoCmd.Save
MsgBox "Parcelas Salvas com Sucesso", vbInformation + vbOKOnly, "Sistema de Automação Comercial - Aviso."
DoCmd.GoToRecord , , acNewRec
End Sub


E veja o Print Screen dos Formulários em anexo.

Fico feliz.

Obrigado pelo retorno o forum agradece.