MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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: Qui 19 Out 2017, 21:06