Calcular 30 dias apartir da data venda

Ola amigos,

Tenho um codigo para parcelamento de vendas, funciona perfeito porem o cliente quer que ele gere o Valor do Vencimento apartir da data da compra e não mais que ele tenha digitar a data do 1º vencimento para gerar as demais parcelas , abaixo segue o codigo:

Código:


Set db = CurrentDb()
    Set rs = db.OpenRecordset("Areceber") 'Abre Tbl_ContasAreceber
    Valor_Parcela = Me.txttotal / Me.Parcelas 'Valor de cada Parcela
   
    For i = 1 To Me.Parcelas  'Insere as Parcela na Tbl_ContasAreceber
        rs.AddNew
        rs("CodVenda") = Me.CODVENDA
        rs("Parcelas") = i & "/" & Me.Parcelas
        rs("Valor_Parcela") = Valor_Parcela
        rs("CLIENTE") = Cliente
        rs("FormaPgto") = FormaPgto
        rs("Dt_Vencimento") = DateAdd("m", i - 1, Me.DATAVENDA) 'Calcula as datas de Vencto através da função DateAdd()
        rs.UPDATE
    Next
    rs.Close
    db.Close
    Me.Sub_Areceber.Requery  'Atualiza o SubForm

End Sub


Ele gera mas com a data do 1 vencimento o mesmo dia da compra , algume pode dar um ajuda.

Obrigado

Caro Fábio,

Será que daria certo se vc somasse 1 mês a datavenda. Exemplo: DtVencimento = DateAdd("m",1,datavenda), ou se vc somasse 30 dias a datavenda. Exemplo: DtVencimento = DateAdd("d",30,datavenda). Lembrando que essa função verifica ano bissexto, mês com 30/31 dias, etc. e nunca vai ficar 30 de determinado mês, 30 do mês seguinte.

Espero ter ajudado

Abraço

Fabio

É só tirar o -1 da frase:

rs("Dt_Vencimento") = DateAdd("m", i -1, Me.DATAVENDA)

[ ]'s

Balem