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]Soma do listBox com criterios

    Compartilhe
    avatar
    irmessiasrf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 22/04/2016

    [Resolvido]Soma do listBox com criterios

    Mensagem  irmessiasrf em Dom 04 Set 2016, 02:37

    Boa noite a todos os Mestres.

    Estou tentando aplicar o código repassado pelo Mestre JPaulo, segue abaixo. A função está executando perfeitamente, porem gostaria de saber se teria como acrescentar um critério na função, pois na minha listbox existe um campos Sim/Não e eu gostaria que fossem somadas apenas os valores onde o campo estivesse marcado como "Sim".
    Tentei incluir o seguinte comando na função, "if .column(5)=-1, tanto antes como dentro do For, porem não obtive o resultado esperado.
    Como sempre gostaria de contar com a ajuda dos Mestres.
    Desde já agradeço a atenção prestada.

    Código:
    Function fncSomaListBox(lst As Access.ListBox, intColuna As Integer) As Double
        'By JPaulo ® Maximo Access Outubro/2013
        'Função soma listbox numa caixa de texto no seu formulário
        Dim intLinha As Long
        Dim intTotal As Double
        'Inicia soma com valor zero
        intTotal = 0
        'Percorre linha a linha na sua lista
           With lst
               For intLinha = Abs(.ColumnHeads) To (.ListCount - 1)
                    intTotal = intTotal + Val(.Column(intColuna, intLinha))
               Next intLinha
           End With
        'Insere a soma total na função
        fncSomaListBox = intTotal
    End Function
    avatar
    irmessiasrf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 22/04/2016

    Re: [Resolvido]Soma do listBox com criterios

    Mensagem  irmessiasrf em Seg 05 Set 2016, 19:29

    Boa tarde, Mestres.

    Realmente preciso da ajuda dos amigos, pois dependo desse procedimento para finalizar uma etapa do meu projeto.

    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2284
    Registrado : 09/04/2012

    Re: [Resolvido]Soma do listBox com criterios

    Mensagem  Kaynan em Seg 05 Set 2016, 21:48

    Posta pra gente,será mais fácil ajudar.
    Abç.
    avatar
    irmessiasrf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 22/04/2016

    Re: [Resolvido]Soma do listBox com criterios

    Mensagem  irmessiasrf em Qua 07 Set 2016, 23:37

    Consegui resolver o a dificuldade. cheers
    Segue abaixo o código com a  modificação:

    Código:
    Function fncSomaListBox(lst As Access.ListBox, intColuna As Integer) As Double
        'By JPaulo ® Maximo Access Outubro/2013
        'Função soma listbox numa caixa de texto no seu formulário
        Dim intLinha As Long
        Dim intTotal As Double
        'Inicia soma com valor zero
        intTotal = 0
        'Percorre linha a linha na sua lista
           With lst
               For intLinha = Abs(.ColumnHeads) To (.ListCount - 1)
                    intTotal = intTotal + IIf(.Column((5), intLinha) = -1, Val(.Column(intColuna, intLinha)), 0)
               Next intLinha
           End With
        'Insere a soma total na função
        fncSomaListBox = intTotal
    End Function

    Agradeço a atenção de todos.
    avatar
    João Ricardo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 515
    Registrado : 20/01/2013

    Re: [Resolvido]Soma do listBox com criterios

    Mensagem  João Ricardo em Ter 04 Jul 2017, 04:45

    Amigos postei aqui porque é o que preciso, porém com um ajuste.

    Minha listbox tem um campo sim/não que foi convertido em texto SIM e NÃO. Preciso contar os SIM.

    Seria isso. No lugar do -1 usei "sim" dentro do for

    Function fncSomaListBox(lst As Access.ListBox, intColuna As Integer) As Double
    'By JPaulo ® Maximo Access Outubro/2013
    'Função soma listbox numa caixa de texto no seu formulário
    Dim intLinha As Long
    Dim intTotal As Double
    'Inicia soma com valor zero
    intTotal = 0
    'Percorre linha a linha na sua lista
    With lst
    For intLinha = Abs(.ColumnHeads) To (.ListCount - 1)
    intTotal = intTotal + IIf(.Column((5), intLinha) = "sim", Val(.Column(intColuna, intLinha)), 0)
    Next intLinha
    End With
    'Insere a soma total na função
    fncSomaListBox = intTotal
    End Function


    .................................................................................
     [Você precisa estar registrado e conectado para ver esta imagem.] Busco aprendizado e gostaria de contato com pessoas de Campo Grande - MS  [Você precisa estar registrado e conectado para ver esta imagem.]   [Você precisa estar registrado e conectado para ver esta imagem.] 

      Data/hora atual: Sex 18 Ago 2017, 02:23