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
    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 : 9085
    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.]
    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 : 9085
    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.]
    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 : 9085
    Registrado : 04/11/2009

    Re: [Resolvido]Somar coluna de ListBox

    Mensagem  JPaulo em Sex 25 Jun 2010, 09: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, 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 : 3417
    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 : 3417
    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 : 3417
    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 13 vez(es)

      Data/hora atual: Qui 27 Abr 2017, 19:33