[Resolvido]Como fazer, que ao gerar as parcelas a primeira parcela fique com o valor maior.

Boa noite, galera.

Estou com uma pequena dificuldade ao gerar as parcelas no access, montei um formulário de pedido, com um botão para gerar as parcelas.
No pedido tem, o valor total dos produtos, mais o valor do frete e imposto separado, ao clicar para gerar as parcelas, queira que o imposto ficasse somado na primeira parcelas, e o frete divido junto com o valor do produto.

Segue o código que montei.

Set db = CurrentDb()
       Set rs = db.OpenRecordset("Tb_ContasReceber") 'Abre a Tb_ContasReceber
       
       ' Avaliar o filtro antes ser passado para a função DLookup.
       strFiltro = "Código = " & Me!Txt_Cond_Pagto.Column(0)
       QuantParcelas = DLookup("N_Parcelas", "Tb_FormaPagamentos", strFiltro)
       
       ValorTotalVenda = Me.Txt_TotalProdutos + Me.Txt_Frete + Txt_ICMS
       ValorParcela = ValorTotalVenda / QuantParcelas 'Valor de cada parcela"
       
   For I = 1 To QuantParcelas 'Insere as parcelas na Tb_ContasReceber
       rs.AddNew
       rs("CódigoPedido") = Txt_Código
       rs("Parcelas") = I & "/" & QuantParcelas
       rs("Vlr_APagar") = ValorParcela
       rs("Especificacao") = "Nota Fiscal"
       rs("DataVencimento") = DateAdd("m", I, Me.Txt_Data) 'Calcula as datas de vencimento atraves da função DateAdd()
       rs.Update
   Next
   rs.Close
   db.Close

Boa tarde.
Utilize

Código:


Set db = CurrentDb()
Set rs = db.OpenRecordset("Tb_ContasReceber") 'Abre a Tb_ContasReceber

' Avaliar o filtro antes ser passado para a função DLookup.
strFiltro = "Código = " & Me!Txt_Cond_Pagto.Column(0)
QuantParcelas = DLookup("N_Parcelas", "Tb_FormaPagamentos", strFiltro)

ValorTotalVenda = Me.Txt_TotalProdutos + Me.Txt_Frete
ValorParcela = ValorTotalVenda / QuantParcelas 'Valor de cada parcela"

For I = 1 To QuantParcelas 'Insere as parcelas na Tb_ContasReceber
rs.AddNew
rs("CódigoPedido") = Txt_Código
rs("Parcelas") = I & "/" & QuantParcelas
if I=1 then
    rs("Vlr_APagar") = ValorParcela + Txt_ICMS
else
    rs("Vlr_APagar") = ValorParcela
end if
rs("Especificacao") = "Nota Fiscal"
rs("DataVencimento") = DateAdd("m", I, Me.Txt_Data) 'Calcula as datas de vencimento atraves da função DateAdd()
rs.Update
Next
rs.Close
db.Close

Deu certo. Alexandre Neves.


Muito obrigado.