Boa tarde, Venho mais uma vez pedir a ajuda. tenho um formulário e uso esse código abaixo para gerar parcelas. Só que gera 1/10 2/10,
quero que gere assim 01/10 - 02/10 -10/10 assim por diante e não estou conseguindo.
Desde já Agradeço a ajuda!
Set db = CurrentDb()
Set rs = db.OpenRecordset("tbl_LancChequeDet") 'Abre Tbl_ContasAreceber
ValorCheque = Me.txtTotalRecebe / Me.QtdeParcelas 'Valor de cada Parcela
For I = 1 To Me.QtdeParcelas 'Insere as Parcela na Tbl_ContasAreceber
rs.AddNew
rs("Cod_Lançamento") = Me.Cod_Lance
rs("NumTitulo") = I & "/" & Me.QtdeParcelas
rs("ValorCheque") = Me.txtTotalRecebe / Me.QtdeParcelas
rs("VencCheque") = DateAdd("d", I - 1, Me.txtDt_1Parcela) 'Calcula as datas de Vencto através da função DateAdd()
rs("DataLanc") = Me.txtDataLanc
rs("Taxa") = Me.txtTaxa
rs.Update
Next
rs.Close
db.Close
Me.frm_LancChequeDetSub.Requery 'Atualiza o SubForm
Me.btn_Diário.enabled = False
quero que gere assim 01/10 - 02/10 -10/10 assim por diante e não estou conseguindo.
Desde já Agradeço a ajuda!
Set db = CurrentDb()
Set rs = db.OpenRecordset("tbl_LancChequeDet") 'Abre Tbl_ContasAreceber
ValorCheque = Me.txtTotalRecebe / Me.QtdeParcelas 'Valor de cada Parcela
For I = 1 To Me.QtdeParcelas 'Insere as Parcela na Tbl_ContasAreceber
rs.AddNew
rs("Cod_Lançamento") = Me.Cod_Lance
rs("NumTitulo") = I & "/" & Me.QtdeParcelas
rs("ValorCheque") = Me.txtTotalRecebe / Me.QtdeParcelas
rs("VencCheque") = DateAdd("d", I - 1, Me.txtDt_1Parcela) 'Calcula as datas de Vencto através da função DateAdd()
rs("DataLanc") = Me.txtDataLanc
rs("Taxa") = Me.txtTaxa
rs.Update
Next
rs.Close
db.Close
Me.frm_LancChequeDetSub.Requery 'Atualiza o SubForm
Me.btn_Diário.enabled = False