MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


+3
rchahn
JPaulo
Jr.Wano
7 participantes

    [Resolvido]Somar coluna de ListBox

    avatar
    Jr.Wano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar coluna de ListBox Empty Somar coluna de ListBox

    Mensagem  Jr.Wano 24/6/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
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar coluna de ListBox Empty Re: [Resolvido]Somar coluna de ListBox

    Mensagem  JPaulo 24/6/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 nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Somar coluna de ListBox Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Somar coluna de ListBox Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Somar coluna de ListBox Folder_announce_new Instruções SQL como utilizar...
    avatar
    Jr.Wano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar coluna de ListBox Empty Re: [Resolvido]Somar coluna de ListBox

    Mensagem  Jr.Wano 24/6/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
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar coluna de ListBox Empty Re: [Resolvido]Somar coluna de ListBox

    Mensagem  JPaulo 24/6/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 nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Somar coluna de ListBox Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Somar coluna de ListBox Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Somar coluna de ListBox Folder_announce_new Instruções SQL como utilizar...
    avatar
    Jr.Wano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar coluna de ListBox Empty Re: [Resolvido]Somar coluna de ListBox

    Mensagem  Jr.Wano 24/6/2010, 19:24

    JPaulo,

    Entendi agora a colocação da primeira linha.

    Mais uma vez ti agradeço.

    Abraços.

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar coluna de ListBox Empty Re: [Resolvido]Somar coluna de ListBox

    Mensagem  JPaulo 25/6/2010, 09:36

    Valew.
    Precisando estamos aqui.


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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Somar coluna de ListBox Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Somar coluna de ListBox Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Somar coluna de ListBox Folder_announce_new Instruções SQL como utilizar...
    avatar
    rchahn
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar coluna de ListBox Empty Re: [Resolvido]Somar coluna de ListBox

    Mensagem  rchahn 21/9/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,

    avatar
    Diego Rosilan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar coluna de ListBox Empty Re: [Resolvido]Somar coluna de ListBox

    Mensagem  Diego Rosilan 1/3/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!
    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

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

    [Resolvido]Somar coluna de ListBox Empty Re: [Resolvido]Somar coluna de ListBox

    Mensagem  Ney Santos 26/1/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.
    avatar
    semear2
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar coluna de ListBox Empty Re: [Resolvido]Somar coluna de ListBox

    Mensagem  semear2 24/10/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
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar coluna de ListBox Empty Re: [Resolvido]Somar coluna de ListBox

    Mensagem  Silvio 24/10/2016, 12:54

    Bom dia...

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar coluna de ListBox Empty Re: [Resolvido]Somar coluna de ListBox

    Mensagem  semear2 24/10/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
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar coluna de ListBox Empty Re: [Resolvido]Somar coluna de ListBox

    Mensagem  Silvio 24/10/2016, 13:26

    Bom, não vou ficar adivinhando...

    Poste aqui as partes envolvidas para lhe ajudarmos.

    Grato.
    avatar
    semear2
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar coluna de ListBox Empty Re: [Resolvido]Somar coluna de ListBox

    Mensagem  semear2 24/10/2016, 13:48

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar coluna de ListBox Empty Re: [Resolvido]Somar coluna de ListBox

    Mensagem  Silvio 24/10/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.
    avatar
    semear2
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar coluna de ListBox Empty Re: [Resolvido]Somar coluna de ListBox

    Mensagem  semear2 24/10/2016, 14:18

    Beleza amigo, segue...
    Anexos
    [Resolvido]Somar coluna de ListBox AttachmentMargem e Cobertura - Cópia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (542 Kb) Baixado 64 vez(es)

    Conteúdo patrocinado


    [Resolvido]Somar coluna de ListBox Empty Re: [Resolvido]Somar coluna de ListBox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 19:20