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]Somar coluna de ListBox

    Compartilhe
    avatar
    Jr.Wano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 29/01/2010

    Somar coluna de ListBox

    Mensagem  Jr.Wano em Qui 24 Jun 2010, 18:16

    Como somar uma coluna de uma ListBox

    Uso o seguinte código para somar quando selecionados:
    Dim cValue As Double
    Dim vItem As Variant
    For Each vItem In Me!Lt1.ItemsSelected
    cValue = cValue + Me!Lt1.Column(5, vItem)
    Next vItem
    SelecaoListBox = cValue

    Mas preciso somar a Coluna Inteira, estando com os itens selecionados ou não.

    Antecipadamente agradeço por qualquer ajuda.


    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9260
    Registrado : 04/11/2009

    Re: [Resolvido]Somar coluna de ListBox

    Mensagem  JPaulo em Qui 24 Jun 2010, 18:31

    Ola;

    Tem de chamar a função no evento ao pressionar de um botão, coloque uma caixa de texto e dê o nome de txtResultado

    Private Sub SeuBotao_Click()
    Call SomaListBox
    End Sub


    Function SomaListBox() As Variant
    'By JPaulo ® Maximo Access
    Dim I As Integer, J As Integer, ctl As Control
    Set ctl = Me.Lt1
    J = ctl.ListCount - 1
    SomaListBox = 0
    For I = 1 To J
    SomaListBox = SomaListBox + ctl.Column(5, I)
    Next I
    SomaListBox = Format(SomaListBox, "currency")
    Me.txtResultado = SomaListBox
    End Function




    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Jr.Wano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 29/01/2010

    Re: [Resolvido]Somar coluna de ListBox

    Mensagem  Jr.Wano em Qui 24 Jun 2010, 18:45

    João Paulo,

    Não estava somando o valor da primeira linha, então alterei:
    For I = 1 To J para For I = 0 To J

    Pelos testes agora está somando certo, mas isto está correto?
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9260
    Registrado : 04/11/2009

    Re: [Resolvido]Somar coluna de ListBox

    Mensagem  JPaulo em Qui 24 Jun 2010, 19:19

    Exatamente, porque eu penso sempre que têm os nomes das colunas na primeira linha.

    Sendo assim, se funfa está resolvido.



    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Jr.Wano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 29/01/2010

    Re: [Resolvido]Somar coluna de ListBox

    Mensagem  Jr.Wano em Qui 24 Jun 2010, 19:24

    JPaulo,

    Entendi agora a colocação da primeira linha.

    Mais uma vez ti agradeço.

    Abraços.

    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9260
    Registrado : 04/11/2009

    Re: [Resolvido]Somar coluna de ListBox

    Mensagem  JPaulo em Sex 25 Jun 2010, 09:36

    Valew.
    Precisando estamos aqui.


    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    rchahn
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 21/09/2012

    Re: [Resolvido]Somar coluna de ListBox

    Mensagem  rchahn em Sex 21 Set 2012, 02:57


    Estou usando a função:


    Private Sub CommandButton3_Click()
    Call SomaListBox

    End Sub
    Function SomaListBox() As Variant
    Set ctl = Me.tipoj1
    J = ctl.ListCount - 1
    SomaListBox = 0
    SomaListBox = Format(SomaListBox, "hh:mm")
    For i = 0 To J
    SomaListBox = SomaListBox + ctl.Column(8, i)
    Next i
    Me.txtresultadoj1 = CStr(SomaListBox)

    End Function

    Mas em vez de somar as horas ele gera um texto: "00:0004:0012:0006:0010:00"
    Ele relaciona as horas e não soma.

    O que estou fazendo de errado?

    Obrigado,


    Diego Rosilan
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 03/08/2011

    Re: [Resolvido]Somar coluna de ListBox

    Mensagem  Diego Rosilan em Sab 01 Mar 2014, 03:39

    Olá! O tipo de variável que vc está usando tem que ser numérica pra que haja a soma, nesse caso vc deve estar usando uma variável do tipo string, com isso a apenas a junção dos valores e não uma soma.


    .................................................................................
    O homem sábio diante do homem tolo Faz-se de tolo para que o homem tolo se sinta sábio!
    avatar
    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 23/05/2011

    Re: [Resolvido]Somar coluna de ListBox

    Mensagem  Ney Santos em Seg 26 Jan 2015, 12:10

    Bom dia!
    Mestre J Paulo seria possível colocar um filtro nessa função de forme que ele somasse apenas um um determinado item?
    Exemplo: um campo num formulário receberia o código do item,
    ai a função executaria a soma do item selecionado tendo como base o valor no campo citado.

    semear2
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 09/02/2012

    Re: [Resolvido]Somar coluna de ListBox

    Mensagem  semear2 em Seg 24 Out 2016, 12:48

    Olá bom dia,

    Tentei usar esta função , mas não consegui. O erro: "Era esperado variável, procedimento ou módulo". Estou chamando a função no evento ao Carregar do formulário:

    Private Sub Form_Load()
      SomaListBox
    End Sub

    A função está num módulo com o mesmo nome da função (SomaListBox):

    Public Function SomaListBox() As Variant
    'By JPaulo ® Maximo Access
    Dim I As Integer, J As Integer, ctl As Control
    Set ctl = Me.ListEdu
    J = ctl.ListCount - 1
    SomaListBox = 0
    For I = 1 To J
    SomaListBox = SomaListBox + ctl.Column(1, I)
    Next I
    SomaListBox = Format(SomaListBox, "currency")
    Me.Texto21 = SomaListBox
    End Function

    A ideia é carregar o valor em uma caixa de texto. Será que é pq tenho campos textos?
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3486
    Registrado : 20/04/2011

    Re: [Resolvido]Somar coluna de ListBox

    Mensagem  Silvio em Seg 24 Out 2016, 12:54

    Bom dia...

    Semear2 veja as mensagens anteriores 7 e 8, você está cometendo o mesmo tipo de erro.

    semear2
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 09/02/2012

    Re: [Resolvido]Somar coluna de ListBox

    Mensagem  semear2 em Seg 24 Out 2016, 13:20

    Opa agradeço a ajuda, mas ao contrário do colega anterior o meu nem chega a fazer junção dos valores, dando a mensagem "Era esperado variável, procedimento ou módulo".
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3486
    Registrado : 20/04/2011

    Re: [Resolvido]Somar coluna de ListBox

    Mensagem  Silvio em Seg 24 Out 2016, 13:26

    Bom, não vou ficar adivinhando...

    Poste aqui as partes envolvidas para lhe ajudarmos.

    Grato.

    semear2
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 09/02/2012

    Re: [Resolvido]Somar coluna de ListBox

    Mensagem  semear2 em Seg 24 Out 2016, 13:48

    Desde já agradeço Silvio. Mandei em privado o link do projeto.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3486
    Registrado : 20/04/2011

    Re: [Resolvido]Somar coluna de ListBox

    Mensagem  Silvio em Seg 24 Out 2016, 14:05

    Anderson....eu tenho apenas o AC2007 aqui. Versões superiores a essa eu não abro.
    Seria interessante zipar o mesmo e postar aqui no fórum para que mais e mais colegas tenham acesso e assim ajudarmos.

    semear2
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 09/02/2012

    Re: [Resolvido]Somar coluna de ListBox

    Mensagem  semear2 em Seg 24 Out 2016, 14:18

    Beleza amigo, segue...
    Anexos
    Margem e Cobertura - Cópia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (542 Kb) Baixado 17 vez(es)

      Data/hora atual: Seg 26 Jun 2017, 21:44