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 : 16
    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 : 16
    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 : 2277
    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 : 16
    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.

      Data/hora atual: Ter 27 Jun 2017, 21:40