[Resolvido]Erro na função de criação de parcelas em Formulário

Pessoal, estou com um problema grave...
Tenho uma função que cria parcelas (exemplo disponibilizado por JPaulo), mas tem um erro nela que de tanto refazer até descobri coisas encríveis... (risos) ela é simples como o nosso amigo JPaulo gosta... e é por isso que esconde o X da questão.
Vejam bem:
-------------------------------
Private Sub btnGerar_Click()
Dim i As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim Parc As String
StrValorParc = Me.VRParcela
For i = 1 To Me.QTParcelas
StrDateAdd = DateAdd("m", i, Format(Me.DataS, "dd/mm/yyyy"))
StrParc = i & "/" & Me.QTParcelas
CurrentDb.Execute "INSERT INTO Serviço(Pessoa,CODGerado,Serviço,DataS,VRTotal,QTParcelas,VREntrada,VRParcela)" _
& " Values(""" & Me.Pessoa.Value & """,""" & Me.CODGerado.Value & """,""" & Me.Serviço.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#,""" & Me.VRTotal.Value & """,""" & Me.QTParcelas.Value & """,""" & Me.VREntrada.Value & """,""" & StrValorParc & """);"
Next i
Me.lstParcelas.Requery
End Sub
------------------------------
Ela cria parcelas em valores e datas, levando em conta o que o usuário preenche no Formulário... o usuário insere a data 01/01/12, a qntd de parcelas 3 e o valor R$900,00, a função faz: 01/02/12 = 300,00 - 01/03/12 = 300,00 - 01/04/12 = 300,00, tudo bem se o cliente vai parcelar sem entrada, mas se o cliente vai dar uma entrada é que "zanga" tudo... Eu adaptei o formulário e tabela para pegar a data 01/01/12 e um controle novo para pegar um valor de entrada, então fica:
01/01/12, qntd de parcelas 3, valor R$900,00 e entrada R$300,00; DEVERIA ficar:
01/01/12 = 300,00 - 01/02/12 = 300,00 - 01/03/12 = 300,00 e PÁRAR por aí, mas ela continua, 01/04/12 = 300,00... Ela está colocando uma parcela a mais...
Será que alguém pode me dar um auxílio?
Estou colocando um exemplo do DB aqui. (Deve pesquisar um cliente primeiro e depois clicar em Criar Serviço)
Agradeço desde já!
Paulo César

infosoft
bom dia caro colega...

Veja se esta como deseja.

Bom dia amigos!

Porque você não coloca outro campo com o nome de entrada, se o cliente der a entrada você digita o valor da entrada do cliente, se for sem entrada, você digita zero, ai você diminui pelo campo que o código está calculando as parcelas, desculpe se não foi importante a dica.
Um abraço!

Grande Lupércio

Faz tempo que nao o vejo por aqui, bom dia pra vc meu amigo.

Fernando optima correção.

Fiz uma pequena melhoria;

Grande mestre JPaulo,

ficou melhor ainda e aliás mais uma dica que aprendi.

Prezados Lupercio, Fernando e JPaulo, boa tarde!
Não funfou...
Lupercio, Eu já tenho o campo VRParcela.
Fernando e JPaulo, o cliente não pode escolher o quanto dar de entrada...
Se o VRTotal é R$900,00, são 3 parcelas e o cliente VAI dar entrada, OBRIGATORIAMENTE, ele tem que dar R$300,00 então o parcelamento tem que criar:
CODGerado = XXXXX - DataS = 30/08/2012 - R$300,00 (pq eu digitei o VREntrada)
CODGerado = XXXXX - DataS = 30/09/2012 - R$300,00
CODGerado = XXXXX - DataS = 30/10/2012 - R$300,00
Se o VRTotal é R$900,00, são 3 parcelas e o cliente NÃO vai dar entrada:
CODGerado = XXXXX - DataS = 30/09/2012 - R$300,00
CODGerado = XXXXX - DataS = 30/10/2012 - R$300,00
CODGerado = XXXXX - DataS = 30/11/2012 - R$300,00
O exemplo que me enviaram, eu já passei por isso... fica parcelando sem entrada (DATA) e diminui a parcela para R$200,00 (VRParcela), usando os dados de 900,00 e 3 parcelas.
É como sentir um massarico nos neurônios, não é? Tentei criar segundo botão "btnGerarParcela", mas está acontecendo a mesma coisa... a função sempre joga um mês pra frente (For i = 1 To Me.QTParcelas) e se é (For i = 0 To Me.QTParcelas), pega-se o mês atual, mas cria 4 parcelas, somando: R$1.200,00.
Grato por ainda tentarem me ajudar, mas por favor, se tiverem mais idéias...
Forte abraço!
Paulo César

infosoft
Boa tarde...

A maneira que encontrei foi criar outro botão, um com entrada

outro sem entrada, da uma analisada talvez vc queira alterar alguma coisa.

No caso a caixa de testo Valor de entrada não tera utilidade.

Obrigado Fernandão... mas ainda continua os R$200,00, caso:
total = 900,00 - qt Parcela = 300,00 - entrada = 300,00
Se o caso for:
total = 900,00 - qt Parcela = 300,00 - entrada = 0
dá certo mas somente para casos SEM entrada, gerando datas posteriores, como:
Data pgto = 30/08/12, então ficará: 30/09, 30/10 e 30/11,
mas o problema é qndo o cliente dá uma entrada.
Valeu, mas não funfou...
Paulo César

Grande Fernando, mestre JPaulo, tudo bem com vocês, um grande abraço á todos.

Postei uma hipótese, ficaria muito agradecido, caso vcs pudessem olhar para ver se é POSSÍVEL.
A imagem tbm está hospedada...
https://2img.net/r/ihimg/photo/my-images/703/honorriosgerarparcelaes.jpg

Só tem um probleminha... Quando o pagamento for à vista, isto é, 1 parcela, o controle QTParcela tem que ser automatizado para 1... rsrs, me esqueci disto!

Companheiros mais uma vez boa tarde!
Usando o código do mestre JPaulo fiz um programinha que gera parcelas!
infosoft de uma olhada talvez te ajude em algo!

É isso ai Lupércio, esse seu exemplo é show de bola

Bom final de semana.

Valeu Lupércio, mas não funfou...
Se:
Vr. Compra = R$900,00 - Parcelas = 3 - Entrada = R$300,00
O sisteminha deixa três parcelas colocadas as datas apartir do próximo mês e diminui o valor pra R$200,00
Mesmo assim, muito obrigado!

Pessoal, eu consegui resolver o problema dos valores das parcelas (em azul), mas a questão das datas eu ainda não compreendi... na verdade, eu não consigo interpretar a linha que está de vermelho:

Private Sub btnGerar_Click()
Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim StrVRParc As Double
Dim StrVRTotal As Double
Dim Parc As String
Dim VRParc As String
Dim VRTotalAdd As String
StrValorParc = Me.VRParcela
StrVRParc = Me.VREntrada
StrVRTotal = Me.VRTotal
For I = 1 To Me.QTParcelas
StrDateAdd = DateAdd("m", I, Format(Me.DataS, "dd/mm/yyyy"))
StrVRTotalAdd = (Me.VRTotal - Me.VREntrada)
StrParc = I & "/" & Me.QTParcelas
CurrentDb.Execute "INSERT INTO Serviço(Pessoa,CODGerado,Serviço,DataS,VRTotal,QTParcelas,VREntrada,VRParcela)" _
& " Values(""" & Me.Pessoa.Value & """,""" & Me.CODGerado.Value & """,""" & Me.Serviço.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#,""" & StrVRTotalAdd & """,""" & Me.QTParcelas.Value & """,""" & Me.VREntrada.Value & """,""" & StrValorParc & """);"
Next I
Me.lstParcelas.Requery
End Sub

É esta linha que está controlando as datas, será que alguém sabe interpretar esta linha e me explicar (rsrsrs)? Talvez o "mistério" não esteja aí, mas estou tentando
Agradecido!
(Será que tem problemas eu ficar postando o código de outra pessoa e ficar "fusando", no caso este código é do Mestre JPaulo... Não sei se isso faz referência nas regras deste Fórum, por favor, me avisem que eu apago tudo... rsrs)

Grande Fernando, para você tambem meu grande amigo, que Deus abençoe você e familia.
Um grande abraço.

RESOLVIDO:
Criei dois botões: Com Entrada e Sem Entrada

Código para COM Entrada:

Private Sub btnGerarEntrada_Click()
Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim StrVRParc As Double
Dim StrVRTotal As Double
Dim Parc As String
Dim VRParc As String
Dim VRTotalAdd As String
StrValorParc = Me.VRParcela
StrVRParc = Me.VREntrada
StrVRTotal = Me.VRTotal
For I = 0 To (Me.QTParcelas - 1)
StrDateAdd = DateAdd("m", I, Format(Me.DataS, "dd/mm/yyyy"))
StrVRTotalAdd = (Me.VRTotal - Me.VREntrada)
CurrentDb.Execute "INSERT INTO Serviço(Pessoa,CODGerado,Servico,DataS,VRTotal,QTParcelas,VREntrada,VRParcela)" _
& " Values(""" & Me.Pessoa.Value & """,""" & Me.CODGerado.Value & """,""" & Me.txtServico.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#,""" & StrVRTotalAdd & """,""" & Me.QTParcelas.Value & """,""" & Me.VREntrada.Value & """,""" & StrValorParc & """);"
Next I
Me.lstParcelas.Requery
End Sub

Código para SEM Entrada:

Private Sub btnGerar_Click()
Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim StrVRParc As Double
Dim StrVRTotal As Double
Dim Parc As String
Dim VRParc As String
Dim VRTotalAdd As String
StrValorParc = Me.VRParcela
StrVRParc = Me.VREntrada
StrVRTotal = Me.VRTotal
For I = 1 To Me.QTParcelas
StrDateAdd = DateAdd("m", I, Format(Me.DataS, "dd/mm/yyyy"))
StrVRTotalAdd = (Me.VRTotal - Me.VREntrada)
CurrentDb.Execute "INSERT INTO Serviço(Pessoa,CODGerado,Serviço,DataS,VRTotal,QTParcelas,VREntrada,VRParcela)" _
& " Values(""" & Me.Pessoa.Value & """,""" & Me.CODGerado.Value & """,""" & Me.Serviço.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#,""" & StrVRTotalAdd & """,""" & Me.QTParcelas.Value & """,""" & Me.VREntrada.Value & """,""" & StrValorParc & """);"
Next I
Me.lstParcelas.Requery
End Sub

O problema era o relatório, mas agora, com os valores de entrada e parcelas separados fica fácil e para somar o TotalGeral é só colocar: VRTotal + VREntrada

Obrigado a todos que tiveram paciência comigo CHAVES!
Até uma próxima, pois nunca sabemos qndo podemos precisar novamente... só sei que minha amiga vai ficar feliz com este banco de dados.
Forte abraço e muita luz para todos!

infosoft boa noite.

So vi agora as mensagens, mas fiquei contente que conseguiu

resolver seu problema..

Bom domingo.