Olá amigos,
Mais uma vez estou aqui para solicitar a ajuda de vocês...
Estou fazendo um módulo para agregar a um sistema de clínica e surgiu a seguinte situação:
A clinica tem um controle de pagamentos mensais, e num determinado momento o cliente deve ficar ausento por uns 2 meses, e surge o seguinte impasse: Alterar os vencimentos para uma data futura.
Inicialmente fiz o seguinte: Criei no formulário um campo [Parcela Inicial], ou seja a partir de qual parcela devo alterar o vencimento. Criei um outro com a nova data de vencimento [Novo Vencimento], e fiz o seguinte código:
Dim DB As Database, rs As Recordset
Dim I, strParcelas As Integer
Dim Contrato As String
Dim NewData As Date
Dim strParc As String
Dim rsCli As Recordset
strParcelas = [Forms]![FrmCadastroServicos]![subfrm_Contratos]![Meses]
Contrato = [Forms]![FrmCadastroServicos]![subfrm_Contratos]![NumContrato]
strParc = [Forms]![FrmCadastroServicos]![subfrm_Contratos]![Parcela]
NewData = [Forms]![FrmCadastroServicos]![subfrm_Contratos]![NVenc]
Set DB = CurrentDb()
Set rsCli = CurrentDb.OpenRecordset("SELECT * FROM tbl_parcelas WHERE IsNull(Data_Pago) And Parcela >='& strParc &' And numcontrato=' & Contrato & '")
For I = strParc To strParcelas
CurrentDb.Execute "UPDATE tbl_Parcelas SET vencimento = #" & DateAdd("m", I - 1, NewData) & "# WHERE Parcela ='& I &' and NumContrato ='& Contrato &'"
Next
rs.Close
DB.Close
[Forms]![FrmCadastroServicos]![subfrm_Contratos]![subfrm_Parcelas].Requery
Mais uma vez estou aqui para solicitar a ajuda de vocês...
Estou fazendo um módulo para agregar a um sistema de clínica e surgiu a seguinte situação:
A clinica tem um controle de pagamentos mensais, e num determinado momento o cliente deve ficar ausento por uns 2 meses, e surge o seguinte impasse: Alterar os vencimentos para uma data futura.
Inicialmente fiz o seguinte: Criei no formulário um campo [Parcela Inicial], ou seja a partir de qual parcela devo alterar o vencimento. Criei um outro com a nova data de vencimento [Novo Vencimento], e fiz o seguinte código:
Dim DB As Database, rs As Recordset
Dim I, strParcelas As Integer
Dim Contrato As String
Dim NewData As Date
Dim strParc As String
Dim rsCli As Recordset
strParcelas = [Forms]![FrmCadastroServicos]![subfrm_Contratos]![Meses]
Contrato = [Forms]![FrmCadastroServicos]![subfrm_Contratos]![NumContrato]
strParc = [Forms]![FrmCadastroServicos]![subfrm_Contratos]![Parcela]
NewData = [Forms]![FrmCadastroServicos]![subfrm_Contratos]![NVenc]
Set DB = CurrentDb()
Set rsCli = CurrentDb.OpenRecordset("SELECT * FROM tbl_parcelas WHERE IsNull(Data_Pago) And Parcela >='& strParc &' And numcontrato=' & Contrato & '")
For I = strParc To strParcelas
CurrentDb.Execute "UPDATE tbl_Parcelas SET vencimento = #" & DateAdd("m", I - 1, NewData) & "# WHERE Parcela ='& I &' and NumContrato ='& Contrato &'"
Next
rs.Close
DB.Close
[Forms]![FrmCadastroServicos]![subfrm_Contratos]![subfrm_Parcelas].Requery