Uma construtora usa um banco de dados que eu criei para inserir lotes de um condomínio vendidos. A partir de dados do formcontratos são inseridas todas as parcelas a vencer até a liquidação da compra.
Utilizo o código abaixo para inserir parcelas de um contrato:
Private Sub Comando83_Click()
On Error GoTo Err_Comando83_Click
Dim I As Integer
For I = 1 To Parcelas_Quantidade
CurrentDb.Execute "INSERT INTO tab_Parcelas([Contrato],[Versão],[Cliente],[Tipo],[Empreendimento],[Objeto],[Vencimento],[Valor],[OBS],[Parcela],[De]) VALUES ('" & Número & "','" & Versão & "','" & Cliente & "','" & Tipo1 & "','" & Empreendimento & "','" & Objeto & "','" & DateAdd("m", I - 1, Parcelas_DataInicial) & "'," & Parcelas_Valor & ",'" & OBS & "'," & I & "," & Parcelas_Quantidade & ")"
Next
Me.Requery
MsgBox "Prestações Inseridas", vbOKOnly, "OK"
Exit_Comando83_Click:
Exit Sub
Err_Comando83_Click:
MsgBox Err.Description
Resume Exit_Comando83_Click
End Sub
Até aí tudo funciona. agora preciso, todo mês, abrir as parcelas que estão vencendo e aplicar uma correção (índice divulgado pelo governo). teria como criar um código, provavelmente adaptar deste, para que ele abra as prestações com vencimento no mês que vou informar e insira um número no campo correção?
PS: quando o BD ficar pronto irei postá-lo na íntegra no Repositório.
Grato
Utilizo o código abaixo para inserir parcelas de um contrato:
Private Sub Comando83_Click()
On Error GoTo Err_Comando83_Click
Dim I As Integer
For I = 1 To Parcelas_Quantidade
CurrentDb.Execute "INSERT INTO tab_Parcelas([Contrato],[Versão],[Cliente],[Tipo],[Empreendimento],[Objeto],[Vencimento],[Valor],[OBS],[Parcela],[De]) VALUES ('" & Número & "','" & Versão & "','" & Cliente & "','" & Tipo1 & "','" & Empreendimento & "','" & Objeto & "','" & DateAdd("m", I - 1, Parcelas_DataInicial) & "'," & Parcelas_Valor & ",'" & OBS & "'," & I & "," & Parcelas_Quantidade & ")"
Next
Me.Requery
MsgBox "Prestações Inseridas", vbOKOnly, "OK"
Exit_Comando83_Click:
Exit Sub
Err_Comando83_Click:
MsgBox Err.Description
Resume Exit_Comando83_Click
End Sub
Até aí tudo funciona. agora preciso, todo mês, abrir as parcelas que estão vencendo e aplicar uma correção (índice divulgado pelo governo). teria como criar um código, provavelmente adaptar deste, para que ele abra as prestações com vencimento no mês que vou informar e insira um número no campo correção?
PS: quando o BD ficar pronto irei postá-lo na íntegra no Repositório.
Grato