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]Ajuda com VBA - Divisão de Parcelas

    Compartilhe

    wmantovani
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 06/09/2011

    [Resolvido]Ajuda com VBA - Divisão de Parcelas

    Mensagem  wmantovani em 1/10/2018, 21:06

    Boa tarde pessoal, tenho um formulario onde terei que controlar ate 15 parcelas. atualmente ha uma procedimento apos atualizar um determinado campo ele rola o vba:

    'Calcula de divide as parcelas conforme plano

    If Me.PlanoPgto.Value = 1 Then

    Me.Rótulo382.visible = True
    Me.Rótulo397.visible = True
    Me.Rótulo413.visible = True
    Me.Rótulo431.visible = True
    Me.Rótulo447.visible = True
    Me.Rótulo463.visible = True
    Me.Rótulo464.visible = True
    Me.Comando506.visible = True


    ##PARCELA 01

    Me.R_Parcela_1.visible = True
    Me.Parcela_Mens_1.visible = True
    Me.Parcela_MD_1.visible = True
    Me.Venc_Parcela_1.visible = True
    Me.Venc_Sit_1.visible = True
    Me.Pagto_1.visible = True
    Me.Total_1.visible = True
    Recebido_1.visible = True

    Me.R_Parcela_2.visible = False
    Me.Parcela_Mens_2.visible = False
    Me.Parcela_MD_2.visible = False
    Me.Venc_Parcela_2.visible = False
    Me.Venc_Sit_2.visible = False
    Me.Pagto_2.visible = False
    Me.Total_2.visible = False
    Recebido_2.visible = False

    Me.R_Parcela_3.visible = False
    Me.Parcela_Mens_3.visible = False
    Me.Parcela_MD_3.visible = False
    Me.Venc_Parcela_3.visible = False
    Me.Venc_Sit_3.visible = False
    Me.Pagto_3.visible = False
    Me.Total_3.visible = False
    Recebido_3.visible = False

    Me.Parcela_Mens_1 = (Me.Vl_Curso) / Me.PlanoPgto
    Me.Parcela_MD_1 = (Me.VL_MD) / Me.PlanoPgto

    '####PARCELA 2
    ElseIf Me.PlanoPgto.Value = 2 Then

    Me.R_Parcela_1.visible = True
    Me.Parcela_Mens_1.visible = True
    Me.Parcela_MD_1.visible = True
    Me.Venc_Parcela_1.visible = True
    Me.Venc_Sit_1.visible = True
    Me.Pagto_1.visible = True
    Me.Total_1.visible = True
    Recebido_1.visible = True

    Me.R_Parcela_2.visible = True
    Me.Parcela_Mens_2.visible = True
    Me.Parcela_MD_2.visible = True
    Me.Venc_Parcela_2.visible = True
    Me.Venc_Sit_2.visible = True
    Me.Pagto_2.visible = True
    Me.Total_2.visible = True
    Recebido_2.visible = True

    Me.Parcela_Mens_1 = (Me.Vl_Curso) / Me.PlanoPgto
    Me.Parcela_MD_1 = (Me.VL_MD) / Me.PlanoPgto
    Me.Parcela_Mens_2 = (Me.Vl_Curso) / Me.PlanoPgto
    Me.Parcela_MD_2 = (Me.VL_MD) / Me.PlanoPgto

    Me.R_Parcela_3.visible = False
    Me.Parcela_Mens_3.visible = False
    Me.Parcela_MD_3.visible = False
    Me.Venc_Parcela_3.visible = False
    Me.Venc_Sit_3.visible = False
    Me.Pagto_3.visible = False
    Me.Total_3.visible = False
    Recebido_3.visible = False

    '####PARCELA 3
    ElseIf Me.PlanoPgto.Value = 3 Then

    Me.R_Parcela_1.visible = True
    Me.Parcela_Mens_1.visible = True
    Me.Parcela_MD_1.visible = True
    Me.Venc_Parcela_1.visible = True
    Me.Venc_Sit_1.visible = True
    Me.Pagto_1.visible = True
    Me.Total_1.visible = True
    Recebido_1.visible = True

    Me.R_Parcela_2.visible = True
    Me.Parcela_Mens_2.visible = True
    Me.Parcela_MD_2.visible = True
    Me.Venc_Parcela_2.visible = True
    Me.Venc_Sit_2.visible = True
    Me.Pagto_2.visible = True
    Me.Total_2.visible = True
    Recebido_2.visible = True

    Me.R_Parcela_3.visible = True
    Me.Parcela_Mens_3.visible = True
    Me.Parcela_MD_3.visible = True
    Me.Venc_Parcela_3.visible = True
    Me.Venc_Sit_3.visible = True
    Me.Pagto_3.visible = True
    Me.Total_3.visible = True
    Recebido_3.visible = True

    Me.Parcela_Mens_1 = (Me.Vl_Curso) / Me.PlanoPgto
    Me.Parcela_MD_1 = (Me.VL_MD) / Me.PlanoPgto
    Me.Parcela_Mens_2 = (Me.Vl_Curso) / Me.PlanoPgto
    Me.Parcela_MD_2 = (Me.VL_MD) / Me.PlanoPgto
    Me.Parcela_Mens_3 = (Me.Vl_Curso) / Me.PlanoPgto
    Me.Parcela_MD_3 = (Me.VL_MD) / Me.PlanoPgto

    so que terei que fazer isso ate o limite de 15 parcelas, ha algum modo de simplificar tudo isso?

    avatar
    bigfill
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 344
    Registrado : 27/03/2015

    Re: [Resolvido]Ajuda com VBA - Divisão de Parcelas

    Mensagem  bigfill em 1/10/2018, 21:23

    Boa tarde wmantovani

    Existem vários tópicos com este assunto aqui no fórum. veja se o link abaixo lhe atende.

    [Você precisa estar registrado e conectado para ver este link.]

    wmantovani
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 06/09/2011

    Re: [Resolvido]Ajuda com VBA - Divisão de Parcelas

    Mensagem  wmantovani em 1/10/2018, 23:39

    Arquivo inexistente...:-(


    Voce teria para postar ai por favor
    avatar
    bigfill
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 344
    Registrado : 27/03/2015

    Re: [Resolvido]Ajuda com VBA - Divisão de Parcelas

    Mensagem  bigfill em 2/10/2018, 00:44


    wmantovani, este arquivo eu não tenho, mais tenho um exemplo que faz a mesma função divide de acordo um o numero na caixa de texto.

    Segue link

    [Você precisa estar registrado e conectado para ver este link.]

    wmantovani
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 06/09/2011

    Re: [Resolvido]Ajuda com VBA - Divisão de Parcelas

    Mensagem  wmantovani em 2/10/2018, 12:31

    Valeu, esse exemplo é bem legal pois joga as parcelas para dias uteis, vou estudar ele e ver como aplicar, obrigado

    wmantovani
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 06/09/2011

    Re: [Resolvido]Ajuda com VBA - Divisão de Parcelas

    Mensagem  wmantovani em 3/10/2018, 00:57

    Valeu a todos resolvido

      Data/hora atual: 15/10/2018, 20:51