MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Alterar vencimento de parcelas

    Compartilhe

    jpaulorh
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 04/02/2010

    [Resolvido]Alterar vencimento de parcelas

    Mensagem  jpaulorh em Qua 02 Jul 2014, 14:46

    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

      Data/hora atual: Qua 07 Dez 2016, 18:17