Boa Tarde! Venho pedir a ajuda de vocês. Tenho um formulário que gero parcelas com este código. Só que preciso que ele gere as parcelas e retire os sábados e domingos, ficando somente dias úteis.
Desde já agradeço toda a ajuda que tenho adquirido neste forum!
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("NumCheque") = "0" & 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
Desde já agradeço toda a ajuda que tenho adquirido neste forum!
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("NumCheque") = "0" & 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