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

    Compartilhe

    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.



    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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




    .................................................................................
    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.]

    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?

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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.



    .................................................................................
    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.]

    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.


    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Somar coluna de ListBox

    Mensagem  JPaulo em Sex 25 Jun 2010 - 9:36

    Valew.
    Precisando estamos aqui.


    .................................................................................
    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 - 2: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 1 Mar 2014 - 3: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!

    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

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

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    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 7 vez(es)

      Data/hora atual: Qui 8 Dez 2016 - 14:06