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 com critério ser uma parte de um valor

    Compartilhe
    avatar
    Fz71
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 25/01/2017

    [Resolvido]Soma com critério ser uma parte de um valor

    Mensagem  Fz71 em 31/1/2018, 12:53

    Bom dia,

    Sou novo no Access, mas com a ajuda do forum estou me virando, mas infelizmente acabei travando em uma função de soma.
    Criei um critério para somar os valor de uma coluna de uma Listbox, mas os valores não tem sinal e eu preciso que diminuir certo valor de um registro, caso ele seja um imposto e somar caso seja um receita, segue abaixo o código que eu estava utilizando.

    Este código é para somar todos os valores, então eu adaptei esse código para só somar se tiver um critério.
    Código:
    Private Sub SomaLista()

        Dim soma As Double
        Dim k As Integer
        
        soma = 0
        For k = 0 To Me.List_LivroDiario.ListCount - 1

        soma = soma + Me.List_LivroDiario.Column(7, k)
        Next k

        Me.Txt_Soma = soma

    End Sub

    Este aqui eu criei um If para diminuir caso o valor da coluna 3 da ListBox contenha o valor de "2.", só que todas expressões não funcionam.
    O motivo de que eu queria selecionar apenas as linhas da Listbox que contenham 2 é por que elas representam despesas, caso eu quisesse somar apenas o que é receita eu teria que criar um critério que todas as linhas da coluna 3 tivesse 1 seria um valor positivo.
    Código:
    Private Sub NegativaLista()

        Dim soma As Double
        Dim k As Integer
        
        soma = 0
        For k = 0 To Me.List_LivroDiario.ListCount - 1

        If (Me.List_LivroDiario.Column(2, k)) = ***********CRITÉRIO NÃO DEFINIDO********* Then
        soma = soma - Me.List_LivroDiario.Column(7, k)
        End If
        Next k

        Me.Txt_Negativa = soma
        
    End Sub


    Desde já, agradeço!
    Procurei no fórum mas não encontrei nada parecido.
    Anexos
    ListBox.zip
    Imagem da minha ListBox
    Você não tem permissão para fazer download dos arquivos anexados.
    (71 Kb) Baixado 6 vez(es)


    Última edição por Fz71 em 31/1/2018, 15:10, editado 1 vez(es)
    avatar
    José Machado
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 13/09/2016

    Re: [Resolvido]Soma com critério ser uma parte de um valor

    Mensagem  José Machado em 31/1/2018, 13:23

    Amigo, tente isso:

    If (Left(Me.List_LivroDiario.Column(2, k), 1)) = "1" Then
    avatar
    Fz71
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 25/01/2017

    Re: [Resolvido]Soma com critério ser uma parte de um valor

    Mensagem  Fz71 em 31/1/2018, 15:09

    Muito Obrigado! Funcionou!!!

      Data/hora atual: 18/10/2018, 13:04