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

    avatar
    wmantovani
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    bigfill
    bigfill
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    http://www.maximoaccess.com/t10060-gerar-parcelas-com-valores-diferentes-obedecendo-a-criterios-de-porcentagem-estabelecidos?highlight=Parcela
    avatar
    wmantovani
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Ajuda com VBA - Divisão de Parcelas Empty 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
    bigfill
    bigfill
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    http://www.maximoaccess.com/t32142p4-mapeamento-de-estoque#222922
    avatar
    wmantovani
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Ajuda com VBA - Divisão de Parcelas Empty 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
    avatar
    wmantovani
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

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

    Valeu a todos resolvido

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/5/2019, 06:18