[Resolvido]Parcela diária sem sábado e domingo

Código:


   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  
       rs.AddNew
       rs("Cod_TabVenda") = Me.CodVenda
       rs("Parcelas") = I & "/" & Me.QtdeParcelas
       rs("Valor_Parcela") = Valor_Parcela
       rs("Dt_Vencimento") = DateAdd("d", I - 1, Me.txtVenc_1_Parc)
       rs.Update
   Next
   rs.Close
   db.Close
   Me.frmSub_ContasAreceber.Requery

Olá!

minha dica é que vc se utilize da função Eval() para analisar se esta caindo no sabado e/ou domingo.   Veja se este meu artigo te ajuda:

usandoaccess.com.br/blog/contar-apenas-dias-uteis-consulta.asp
Copie e cole o endereço no seu navegador

Sucesso!