[Resolvido]Criação de Parcelas

Olá boa tarde.


Estou precisando de uma ajudar. Já pesquisei por muitos meios. Mas nenhum dos exemplos eu consegui importar para o meu.

Preciso que tenha um botão que o procedimento do evento, abre um janela pedindo a número de parcelas e após o enter ele gere o número das prestações com seus respectivos vencimentos.

Veja se ajuda

http://dl.dropbox.com/u/8157744/Parcelamento.rar

Não consigo montar no meu sistema. tá complicado.

Já tive este problema joãomarcos. Gostei do exemplo do vieira, bem completo, verifica até feriado na data do vencimento. Eu consegui fazer, mas a fórmula que usei foi outra, talvez mais simples de entender.

Teria como você passar esse código pra mim?

veja aqui

http://maximoaccess.forumeiros.com/t613-resolvidoparcelas?highlight=parcelas

Ou esse mesmo exemplo, porém, com algumas modificações....
Parcela 2008

joaomarcos tentei enviar o bd de exemplo que tenho, mas não consegui. vou ver se consigo colocar o código aqui...

Ok...Obrigado

Neste código que peguei de um exemplo eu fiz a seguinte modificação: O valor da primeira parcela será maior se a divisão não for exata. Ex.: 100 / 3 = 34,00 33,00 e 33,00
Dim DB As Database, rs As Recordset
Dim ValorPac As Long, i As Long
Dim vPrimeiraParcela As Double
Dim t as String
Set DB = CurrentDb()
Set rs = DB.OpenRecordset("Recebimentos") 'Abre Tabela Recebimentos
t = Total
ValorPac = t / Me.vendaParcela 'Valor de cada Parcela
vPrimeiraParcela = t - (ValorPac * (Me.vendaParcela - 1))
For i = 1 To Me.vendaParcela 'Insere as Parcela na tabela recebimentos
rs.AddNew
rs("vendaID") = Me.vendaID
rs("clienteID") = Me.clienteID
rs("recebimentoParcela") = i
If i = 1 Then
rs("recebimentoValor") = vPrimeiraParcela
Else
rs("recebimentoValor") = ValorPac
End If

'Calcula as datas de Vencto através da função DateAdd()
rs("recebimentoDtVencimento") = DateAdd("m", i - 1, Me.dataParcela)
rs.Update
Next
rs.Close
DB.Close