MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    irmessiasrf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    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

    irmessiasrf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    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 : 2267
    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ç.

    irmessiasrf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    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: Sex 09 Dez 2016, 13:28