[Resolvido]Parcelas

Caros colegas, tenho um formulario que gera parcelas em um sub-form.continuo, acontece que as vezes preciso editar, alterar essas parcelas e ai tenho que apagar uma por vez para depois estar gerando novas parcelas pois senão elas acumulam. O que preciso e que quando gerar novas parcelas ela substitua aquelas anteriormente geradas.

Segue o codigo que estou utilizando;

Dim db As Database, rs As Recordset
Dim ValorPac As Currency, I As Long

Set db = CurrentDb()
Set rs = db.OpenRecordset("tbl2") 'Abre tbl2
ValorPac = Me.[valor aluguel imovel] '/ Me.parcelas 'Valor de cada Parcela

For I = 1 To Me.[prazo locaçao imovel] 'Insere as Parcela na tbl2
rs.AddNew
rs("codTabCadastro") = Me.[novo codigo CADASTRO]
rs("Parcela") = I
rs("ValorAluguel") = ValorPac
'Calcula as datas de Vencto através da função DateAdd()
rs("Vencimento") = DateAdd("m", I - 1, Me.data)
rs.Update

Next
rs.Close
db.Close
Me.tbl2_subformulário.Requery 'Atualiza o SubForm
Me.parcelas.Locked = False


grato.

Amigão existem varias possibilidades.

Não sei qual delas vai funfar, mas temos de alterar esse código para editar, ou deletar primeiro e depois ae sim fazer o AddNew

rs.Edit
rs("codTabCadastro") = Me.[novo codigo CADASTRO]
rs("Parcela") = I
rs("ValorAluguel") = ValorPac
'Calcula as datas de Vencto através da função DateAdd()
rs("Vencimento") = DateAdd("m", I - 1, Me.data)
rs.Update

Ou

rs.Edit
rs("codTabCadastro") = Me.[novo codigo CADASTRO]
rs("Parcela") = I
rs("ValorAluguel") = ValorPac
'Calcula as datas de Vencto através da função DateAdd()
rs("Vencimento") = DateAdd("m", I - 1, Me.data)
rs.Delete

Neste ultimo depois terá de correr o AddNew

Ola JPaulo, mais uma vez grato por atenção, tentei sua sugestao e nao obtive muito sucesso pois o maximo que consegui foi excluir e gerar apenas uma parcela por vez, precisaria a exclusao e inclusao de todas em uma unica vez.

Estou disponibilizando o bd para sua possivel analise.

Abraço e muito obrigado.


http://www.4shared.com/document/0wvm5WMj/Parcelas.html

Ola Luis, não leve a mal, mas eu pessoalmente não gostei dessa modelagem de dados.

Veja este exemplo e se quiser pode adaptar;

http://www.dropbox.com/s/i0fmv8e454qbtdx/Parcelas_2008.rar?dl=0

Muito obrigado JPaulo, o exemplo que enviou funcionou perfeitamente. Valeu

um abraço.

ok

JPaulo.... usei esse tópico, assim como muitos outros no Fórum, para desenvolver meu banco de dados, esse seu exemplo (Parcelas 2008) foi de grande ajuda, porém me deu um tanto de dor de cabeça (positivamente).

As parcelas eram sim gerados e até ai tudo bem... o seu exemplo só deixa a desejar no momento de listar as parcelas do serviço... sendo assim temos que quando geramos um serviço com 10 ou mais parcelas, as parcelas que começam (da esquerda para a direita) com "1" como primeiro dígito válido acabam ficando numa ordem separada, desordenando todo o cronograma de pagamento!!

Após uns dias me matando veio a luz, criar um consulta e então basear o formulário através dela, e não diretamente da tabela de parcelas como está no seu exemplo!!

Se você, JPaulo, concordar comigo, por favor, atualize o seu exemplo para ajudar os próximos leigos... por que eu já passei por esse obstáculo!!

Obrigado a todos do Fórum... sim esse é o melhor Fórum sobre MS Access!!

Tenho um BD, configurado pra gerir Contas a pagar e a receber, no formulario inclusão de despesa, tem o campo dividir em parcelas, mas ele só gera as novas parcelas com os campos datas, valores e descrição, não estou conseguindo que gere também o nome do fornecedor.