[Resolvido]Criar numeração para baixa parcial

Boa Noite

Em 10/05 abri um tópico ref. ao assunto e já tinha dado por resolvido,
mas solicitaram uma alteração e nâo tenho conhecimento para solucionar.

uso um código do Mestre Jpaulo para gerar parcelas que adaptei para meu bd e um código do outro Mestre Alexandre Neves para efetuar baixa parcial que ambos funcionam perfeitamente.
No código do Alexandre Neves gera quantas baixa parciais necessárias, Oque preciso é numerar estas baixas parciais.
ex: tenho um parcelamento como abaixo;

Parcela   valor Parcela     Vencimento
 1/4       1000,00            30/05/2014
 2/4       1000,00            15/06/2014
 3/4       1000,00            30/06/2014
 
Preciso que na Baixa Parcial crie a Numeração como abaixo  

Parcela   valor Parcela     Vencimento       Data Pagto     Valor Pago     Saldo
 1/4       1000,00            30/05/2014       20/05/2014     500,00        500,00
 1/4-1      500,00            30/05/2014       25/05/2014     250,00        250,00
 1/4-2      250,00            30/05/2014
 2/4       1000,00            15/06/2014
 3/4       1000,00            30/06/2014

Toda Rotina de parcelamento e baixa esta perfeito, Só não consegui gerar esta Numeração na Baixa Parcial.
Vi vários exemplos no forum para numeração mas não consegui adaptar em meu bd, porque tem que gerar nova parcela parcial e numerar na própria coluna.

Conto com a Ajuda dos Amigos do Fórum

Segue o bd

Abraços

Desculpe...
Substitui o anexo por ter postado o anterior
Agora o anexo acima esta correto

Abraços

Bom dia,
O parcelamento está para acontecer com uma parcela a cada período de tempo.
Reparo que pode querer mais que uma parcela na mesma data e, neste caso colocar numeração diferente.
Explique melhor para vermos o que pretende e a mecância

Bom Dia Alexandre Neves, Obrigado pelo retorno

O parcelamento esta correto, como exemplo acima foi criado um com 3 parcelas com vencimentos para cada 15 dias.
A Dificuldade esta quando um certo vencimento é efetuado baixa parcial, Se voce ver no meu bd anexo no frmRecebimentosBaixa e efetuar a baixa parcial de uma parcela (Valor menor que valor da parcela), Vai gerar nova parcela do saldo com mesmo numero da parcela original.
Oque preciso é que este numero seja acrecido do -1 entâo ficaria 1/4-1 e se houveu outra baixa parcial no mesmo então seja  1/4-2 até quitar o total da parcela.
Se valor do pagto for igual a valor da parcela voce vera que não gera nova parcela de saldo(Isto voce sabe porque voce é o criador da rotina).
É Lógico que depois vou criar a baixa a partir do próprio form que cria as parcelas e criar rotina para que se o pagto do saldo Parcial seja diferente da data original do vencimento, mas isto são outros detalhes.
O importante é gerar parcelas do saldo parcial como explicado  
Parcelas geradas no parcelamento é uma coisa
ex: 1/4 , 1/2, 1/3
Parcelas parciais é outra
ex: 1/4-1 , 1/4-2 , 1/4-3

Nota: Desconsidere o Botão Atualizar Parcelas no frmRecebimentosBaixa, oque vou usar é o Botão Baixar na linha das parcelas

Para Refazer ou gerar novo parcelamento use o frmRecebimentos

Espero ter explicado um pouco melhor

Abraços

Olá Celso,
Fiz com uma "gambiarra" com uma variável do tipo String.
Dê uma olhada:

Bom Dia rdrck..
Vou dar uma verificada e te retorno

Obrigado
Abraços

Boas rdrck...

Agradeço a sua intençaõ de ajudar, mas algo parecido com sua solução eu já tinha.
Se voce ver em meu exemplo no código do botão "atualizar parcela" ele executa o que na realidade era para ser, mas pediram para alterar para novo modelo e estou apanhando bastante.
Já consegui fazer dar todos tipos de resultados "Menos" oque preciso.
Ainda aguardo Ajuda...

Abraços e obrigado

Boa tarde,
Coloque
Private Sub Comando52_Click()

Dim Rst As DAO.Recordset
If Me.ValorSaldo > 0 And Me.ValorSaldo <> Me.ValorDasParcelas Then
If MsgBox("O valor pago não corresponde ao valor em débito." & vbCr & vbCr & "Quer criar nova parcela com a diferença?", vbYesNo) = vbYes Then

Set Rst = CurrentDb.OpenRecordset("SELECT * FROM tblRecebimentosParcelas")

Rst.AddNew
Rst("NúmeroDoLançamento") = Me.NúmeroDoLançamento
If InStr(Me.NºDeParcelas, "-") = 0 Then
Rst("NºDeParcelas") = Me.NºDeParcelas & "-1"
Else
Rst("NºDeParcelas") = Mid(Me.NºDeParcelas, 1, InStr(Me.NºDeParcelas, "-")) & Mid(Me.NºDeParcelas, InStr(Me.NºDeParcelas, "-") + 1) + 1
End If
Me.NºDeParcelas = Me.NºDeParcelas
Rst("ValorDasParcelas") = Me.ValorSaldo
Rst("DataDoVencimento") = Format(Me.DataDoVencimento, "dd-mm-yyyy")
Rst("ValorSaldo") = CCur(Me.ValorDasParcelas - Me.ValorPago)
Rst.Update
Set Rst = Nothing
Me.ValorDasParcelas = Me.ValorPago
End If
End If

Me.Form.Recalc
End Sub

Boa Tarde Alexandre Neves

Não Tenho palavras para te agradecer
Só vou dizer que ficou "Perfeito" !!!!!

Obrigado pelo seu Profissionalismo e pelas Grandes ajudas que já me deu.

Um Grande e forte Abraço

A intenção é sempre ajudar.
Se estiver concluído, marque o Resolvido

Só faltou o resolvido

Desculpe enviei junto e não assumiu "Resolvido"

Abraços