[Resolvido]parcelamento com intervalo de dias

Boa tarde gostaria de saber se alguém pode me ajudar com esta questão, para adaptar um intervalo de dia no formulário frm vendas eu ate ja havia feito a pesquisa sobre o assunto eu apenas não consegui adaptar no meu gostaria de um intervalo de 7 dias e 30 dias.

usuário administrador
senha : 123


deste ja obrigado

o caminho das pedras é por aqui:
       rs("Dt_Vencimento") = DateAdd("d", Intervalo , Me.txtVenc_1_Parc) 'Calcula as datas de Vencto através da função DateAdd()

obrigado vou tentar para ver se consigo

abraço

bom dia RubensCouto eu fiz a alteração no código ele deu certo somente na primeira data as demais apenas repete a data que foi alterada

veja a mudança do código abaixo

Set db = CurrentDb()
Set rs = db.OpenRecordset("Tbl_ContasAreceber") 'Abre Tbl_ContasAreceber
valor_Parcela = Me.txt_TotalVenda / Me.QtdeParcelas 'Valor de cada Parcela
For i = 1 To Me.QtdeParcelas 'Insere as Parcela na Tbl_ContasAreceber
rs.AddNew
rs("Cod_TabVenda") = Me.CodVenda
rs("Parcelas") = i & "/" & Me.QtdeParcelas
rs("Valor_Parcela") = valor_Parcela
rs("Dt_Vencimento") = DateAdd("d", TXT_intervalo, Me.txtDataVenda) 'Calcula as datas de Vencto através da função DateAdd()
rs.Update
Next
rs.Close
db.Close
Me.frmSub_ContasAreceber.Requery 'Atualiza o SubForm
Me.bt_GerarParcelas.Enabled = False


desde ja obrigado e um abraço

bom dia a todos, alguém poderia dar uma olhada neste código da msg anterior onde esta errado e que no parcelamento so esta mudando somente a primeira data de vencimento as demais estão apenas repetindo a primeira.

desde ja obrigado

Tente assim amigo:

Private Sub bt_GerarParcelas_Click()


Dim dtVenc As Date
     
Set db = CurrentDb()
Set rs = db.OpenRecordset("Tbl_ContasAreceber") 'Abre Tbl_ContasAreceber
Valor_Parcela = Me.txt_TotalVenda / Me.QtdeParcelas 'Valor de cada Parcela
dtVenc = Me.Dt_1Parcela 'Pega a data do primeiro vencimento
For i = 1 To Me.QtdeParcelas 'Insere as Parcela na Tbl_ContasAreceber
rs.AddNew
rs("Cod_TabVenda") = Me.CodVenda
rs("Parcelas") = i & "/" & Me.QtdeParcelas
rs("Valor_Parcela") = Valor_Parcela
rs("Dt_Vencimento") = dtVenc
rs.Update
    'Calcula e passa para a variavel o proximo vencimento
dtVenc = DateAdd("d", Me.TXT_intervalo, dtVenc) 'Calcula as datas de Vencto através da função DateAdd()
Next
rs.Close
db.Close
Me.frmSub_ContasAreceber.Requery 'Atualiza o SubForm
Me.bt_GerarParcelas.Enabled = False
  

End Sub




Me.TXT_intervalo é onde vc digita o Intervalo do vencimento (30) irá calcular cada parcela com 30 dias entre elas.



dtVenc = Me.Dt_1Parcela Aqui eu coloquei para a primeira parcela o que vc digitar la no campo data primeira parcela.

Bom diaaaa Fabio,muito obrigado mais uma vez pela ajuda o tópico foi resolvido deu certinho

abraço Deus abençoe a todos

Grato pelo Retorno, até a próxima se Deus quiser!