[Resolvido]Parcelas dias úteis

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

Boa tarde!
Veja uma forma de solucionar essa questão neste tópico que ajudei a resolver:

https://www.maximoaccess.com/t33895-resolvidoparcelas-diarias#232447

Espero que lhe ajude!

Att, Delson

Bom dia! Fiz desta forma mais continua gerando com sábado e domingos.

Obs: Parcelas diárias

Dim dtVencimento As Date
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
       dtVencimento = DateAdd("d", I - 1, Me.txtDt_1Parcela)
       If Weekday(dtVnecimento) = 7 Then
         dtVencimento = DateAdd("d", -1, dtVencimento)
       ElseIf Weekday(dtVnecimento) = 1 Then
         dtVencimento = DateAdd("d", 1, dtVencimento)
       End If
       rs("VencCheque") = dtVencimento
       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

Boa noite
Será porque não tem a opção Option Explicit e está a trabalhar com variáveis que não existem

Código:

Dim dtVencimento As Date
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
      dtVencimento = DateAdd("d", I - 1, Me.txtDt_1Parcela)
      If Weekday(dtVencimento) = 7 Then
        dtVencimento = DateAdd("d", -1, dtVencimento)
      ElseIf Weekday(dtVencimento) = 1 Then
        dtVencimento = DateAdd("d", 1, dtVencimento)
      End If
      rs("VencCheque") = dtVencimento
      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

Muito Obrigado!