[Resolvido]Erro em lançamento de registros parcelados

Olá,
Tenho uma tabela chamada => tbl_FluxoCaixa

Criei um formulario e coloquei como FONTE DE REGISTRO a citada tabela - tbl_FluxoCaixa

criei os campos ;

DataParcela
ValorAdiantado
QtdMeses
ValorTotal

E o btnGeraParcelamento -> Gerar parcelas onde coloquei este cod. no evento ao clicar !

Código:

 NA MENSAGEM Nº 3

======>    POREM não esta fazendo nd, clico no btn e é mesma coisa de não ter clicado , não lança nada nos registros da tabela tbl_FluxoCaixa .
Tinha que lançar um numero de registros igual ao numero de parcelas - Meses ,  ex. se parcelei em 5 vezes - tem que lançar 5 registros na tabela.
Tenho um campo de valor adiantado, que significa , se a pessoa gastou Ex. R$ 150,00 ela deu R$ 50,00 em dinheiro e parcelou os outros R$ 100,00 no cartão , e esse valor tem que entrar tbm junto com os lançamentos como um novo registro. Obs, as parcelas devem ser geradas de 30 em 30 dias , ou seja um vencimento por mês. contando da data inicial do form que é data de Hj Atual , Format(Now(), "dd/mm/yyyy") .

*O db é BackEnd - as tabelas estão vinculadas, inclusive a citada .

O que esta errado neste cod. Encontrei esse cod. aqui no Forum, .


https://www.maximoaccess.com/t26967-resolvidogera-parcelas?highlight=Parcelas+2008

Alguem ?

Tentei assim e tbm nada ainda !

Código:

Private Sub btnGera_Click()
Dim dtVenc As Date
Dim Valor_Parcela As Integer

Set db = CurrentDb()

Valor_Parcela = Me.ValorTotal / Me.QtdMeses
dtVenc = Me.Dt_1Parcela

For I = 1 To Me.Qtdses
rs("ccDocto") = I & " de " & Me.QtdMeses
rs("cdData") = dtVenc
rs("ccMovimento") = Me.QtdMeses
rs.Update
    'Calcula e passa para a variavel o proximo vencimento
dtVenc = DateAdd("d", 30, dtVenc) 'Calcula as datas de Vencto através da função DateAdd()
Next  
rs.Close
db.Close
Beep
MsgBox "OK, já foram geradas e cadastradas as parcelas deste Cliente !", vbInformation, "Aviso de Conclusão"
End Sub

Olá,

Esta pedindo para digitar alguma coisa no campo cvCodLan , só que ele é chave primaria e a numeração sai automática,

OK, Consegui fazer lançar na tabela, coloquei um campo no forme e usei o Dmax para a chave primaria e inseri a sequencia junto fom o For I do loop.

Só que , lança tudo certinho na tabela mas no subform não mostra os lançamentos, apesar de terem sido gravados na tabela certinho.

Como fazer para o subform mostrar os novos registros gerados, ?


Grato !

ao final do codigo tem que inserir um comando para atualizar aqueles que foram recentementes lançados na tabela.
se não me engano é me.refresh ou me.seusubform.refresh.

acrescente isto
Dim dtVenc As Date
Dim Valor_Parcela As Integer
dim I as integer
dim db as database
dim rs as recordset

se você consegui anexar apenas os objetos envolvidos para a gente entender melhor o que quer podemos te dar um auxilio mais aprofundado.

Paulo Maia,

Realmente fica complicado se vc não postar o seu database.
Estou te mandando um exemplo de um outro usuário aqui do fórum, que tinha dúvidas de como calcular o parcelamento de valores.
consiste em um cadastro de cliente(faz a busca de CEP pelos Correiros) e pedido de venda com parcelamento.
Espero que te ajude.

Att,

ok, consegui fazer sim, como disse , colocando uma contagem de max registros e acrescentando com o loop.

esta funcionando,


Porem notei que o calculo ( Valor_Parcela = Me.ValorTotal / Me.QtdMeses 'Valor de cada Parcela )

salva na tabela os valores arredondados.
exemplo ;

se um resultado desse calculo dá por exemplo 3,35 ele salva na tabela como 3,00

se um resultado desse calculo dá por exemplo 3,85 ele salva na tabela como 4,00

ou seja não salva nada quebrado ou é a mais ou a menos.

até 3,60 ele salva arredondando para 4,00

enfim , como concertar isso ?

Olá PauloMaia,

No exemplo que te mandei, na tabela "TB_PEDIDO_PARC", a coluna "vlrprc" está configurada conforme imagem.
No teu sistema, altere a coluna para as propriedades abaixo:




Acredito que desta forma, o teu sistema armazenará dos dados corretamente.

Um abraço

OK, MUITO OBRIGADO !

Resolvido

--------------------------
Considerações e Agradecimentos à ;

rubenscouto
Alexandre Fim