MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


    [Resolvido]Alterar vencimento de parcelas

    avatar
    jpaulorh
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Alterar vencimento de parcelas Empty [Resolvido]Alterar vencimento de parcelas

    Mensagem  jpaulorh 2/7/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: 28/3/2024, 23:47