Pessoal bom dia.
Todos do forum sempre me ajudarão muito com apostilas e dicas.
Mas agora estou com uma dúvida enorme e não sei como resolver.
Criei uma tabela chamada PARCELA.
Campo:
EmpFantasia,NParcela,Valorunitario e DtParcela
E tenho um formulário com uma tabela de Clientes que contem o campo EmpFantasia,Valorcontrato, Nparcela, ValorParcela e Dtinicial
Gostaria de ao clicar para dividir, o valor fosse gerado na tabela PARCELA registrando o valor de cada parcela a data inicial e fosse repetindo isso de acordo com o número de parcela mudando apenas a data.
Montei o código assim mas não sei como ir multiplicando ele várias vezes e mudando a data e registrar no campo NParcela (parcela 1/12, parcela 2/12.....).
Private Sub Comando232_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm "PARCELA"
On Error GoTo Err_Comando232_Click
DoCmd.GoToRecord , , acNewRec
Forms!PARCELA.EmpFantasia = Me.EmpFantasia
Forms!PARCELA.ValorParcela = Me.Valorunitario
Forms!PARCELA.DtInicial = Me.DtParcela (Aqui gostaria que a cada nova parcela ele joga-se 30 dias e assim por diantes)
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_Comando232_Click:
Exit Sub
Err_Comando232_Click:
MsgBox Err.Description
Resume Exit_Comando232_Click
End Sub
Agradeço a Ajuda.
Todos do forum sempre me ajudarão muito com apostilas e dicas.
Mas agora estou com uma dúvida enorme e não sei como resolver.
Criei uma tabela chamada PARCELA.
Campo:
EmpFantasia,NParcela,Valorunitario e DtParcela
E tenho um formulário com uma tabela de Clientes que contem o campo EmpFantasia,Valorcontrato, Nparcela, ValorParcela e Dtinicial
Gostaria de ao clicar para dividir, o valor fosse gerado na tabela PARCELA registrando o valor de cada parcela a data inicial e fosse repetindo isso de acordo com o número de parcela mudando apenas a data.
Montei o código assim mas não sei como ir multiplicando ele várias vezes e mudando a data e registrar no campo NParcela (parcela 1/12, parcela 2/12.....).
Private Sub Comando232_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm "PARCELA"
On Error GoTo Err_Comando232_Click
DoCmd.GoToRecord , , acNewRec
Forms!PARCELA.EmpFantasia = Me.EmpFantasia
Forms!PARCELA.ValorParcela = Me.Valorunitario
Forms!PARCELA.DtInicial = Me.DtParcela (Aqui gostaria que a cada nova parcela ele joga-se 30 dias e assim por diantes)
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_Comando232_Click:
Exit Sub
Err_Comando232_Click:
MsgBox Err.Description
Resume Exit_Comando232_Click
End Sub
Agradeço a Ajuda.