[Resolvido]Parcelas com 1.ª parcela diferente

Estou a tentar adaptar o sistema de parcelas do JPaulo, e até agora consegui, no entanto tinha necessidade de que á 1.ª parcela me somasse 51,00 (Moeda), isto será igual em todos os casos de parcelamento, tratando-se um um valor fixo
Se alguém poder ajudar
Obrigado

João

Esse exemplo é do Mestre JPaulo e o melhor era aguardar por ele. Será muito mais fácil ele alterar à sua medida. Provavelmente, só 2ª feira.

Obrigado
Aguardo

Boa tarde João,

Você quer que a primeira parcela seja de R$ 51,00 e o restante

seja dividido?

Sds,

João, não sei quem criou esse código que estou usando, mas eu adaptei ele pra dividir corretamente o valor. Fiz a modificação pra você ver onde colocar o 51,00.
Dim DB As Database, rs As Recordset
Dim ValorPac As Long, i As Long
Dim vPrimeiraParcela As Long
Dim t as String
Set DB = CurrentDb()
Set rs = DB.OpenRecordset("Recebimentos") 'Abre Tabela Recebimentos
t = Total
ValorPac = t / Me.vendaParcela 'Valor de cada Parcela
vPrimeiraParcela = ValorPac + 51
For i = 1 To Me.vendaParcela 'Insere as Parcela na tabela recebimentos
rs.AddNew
rs("vendaID") = Me.vendaID
rs("clienteID") = Me.clienteID
rs("recebimentoParcela") = i
If i = 1 Then
rs("recebimentoValor") = vPrimeiraParcela
Else
rs("recebimentoValor") = ValorPac
End If
'Calcula as datas de Vencto através da função DateAdd()
rs("recebimentoDtVencimento") = DateAdd("m", i - 1, Me.dataParcela)
rs.Update
Next
rs.Close
DB.Close

estou com um pouco de difilcdade e modificar o código.Dá para explicar mais um pouco com um exemplo das tabelas, para que e possa adaptar as minhas.
Obrigado

Qual é o meu exemplo que está utilizar ?

É Sim JPaulo

Ok não entendeu a minha pergunta....

Faça o seguinte que é simples:

Entre no VBA do formulario, e tente encontrar esta linha

'Define o valor da parcela
VlParcela = Me.ValorVenda / Me.Parcelas + 51#

Substitua por esta e teste;

'Define o valor da parcela+51,0
VlParcela = Me.ValorVenda / Me.Parcelas + 51#

Assim acrescenta os 51, mas em todas as parcelas e eu pretendia que acrescentasse apenas na 1.ª parcela.
Obrigado

Ok não percebi que era só na primeira.


Encontre esta parte do código e coloque lá esta alteração (ATENÇÃO: somente o que falta)


'Inclui parcela na tabela
If Contador = 1 Then
CurrentDb.Execute ("INSERT INTO tblParcelas (VendaID,NParc,Vencimento,ValorParcela) " & _
"VALUES (" & Me.VendaID & "," & Contador & ",'" & DtAjuste & "','" & VlParcela & "'+51)")
Else
CurrentDb.Execute ("INSERT INTO tblParcelas (VendaID,NParc,Vencimento,ValorParcela) " & _
"VALUES (" & Me.VendaID & "," & Contador & ",'" & DtAjuste & "','" & VlParcela & "')")
End If
'Retorna ao contador
Next Contador

Obrigado grande Mestre
Assunto resolvido
Um abraço

Obrigado pelo retorno o forum agradece.