Ajuda em parcelas no Formulário!

Amigos do forum, tenho um formulário de parcelas que funciona 100% mas agora preciso que quando eu gere parcelas para meu cliente exemplo: 3x100
se o mesmo cliente voltar a comprar mesmo com parcelas em aberto o sistema me avisasse que existem parcelas em aberto e se eu gostaria de gerar novar parcelas. Ai teria que pegar os valores das antigas parcelas e acrescentar nas novas e reparcelar. Teria como fazer isso?

Boa tarde Jp.

Ex:


If DLookup("STATUS", "cliente", "codCliente=" & Me.txtCodCliente) = "SIM" Then
MsgBox "Este Cliente Está em Débito! Apenas Venda Á Vista é Permitido!!!", vbOKOnly + vbCritical, "ATENÇÃO!!!"