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 participantes

    Soma ListBox numa Caixa de Texto no Formulário

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Soma ListBox numa Caixa de Texto no Formulário Empty Soma ListBox numa Caixa de Texto no Formulário

    Mensagem  JPaulo 31/10/2013, 11:54


    Function fncSomaListBox(lst As Access.ListBox, intColuna As Integer) As Double
    'By JPaulo ® Maximo Access Outubro/2013
    'Função soma listbox numa caixa de texto no seu formulário
    Dim intLinha As Long
    Dim intTotal As Double
    'Inicia soma com valor zero
    intTotal = 0
    'Percorre linha a linha na sua lista
       With lst
           For intLinha = Abs(.ColumnHeads) To (.ListCount - 1)
           intTotal = intTotal + Val(.Column(intColuna, intLinha))
           Next intLinha
       End With
    'Insere a soma total na função
    fncSomaListBox = intTotal
    End Function


    Chamar a função por VBA;

    '3 é numero da coluna na sua lista, onde se encontra o valor a somar
    'As listas iniciam pela coluna zero (0)


    Me.SuaCaixaTexto.Value = fncSomaListBox(Me.SuaListBox, 3)

    'Se for na origem da SuaCaixaTexto
    = fncSomaListBox(SuaListBox; 3)


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

    Soma ListBox numa Caixa de Texto no Formulário Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Soma ListBox numa Caixa de Texto no Formulário Folder_announce_new 102 Códigos VBA Gratuitos...
    Soma ListBox numa Caixa de Texto no Formulário Folder_announce_new Instruções SQL como utilizar...
    avatar
    hheverson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 24/07/2015

    Soma ListBox numa Caixa de Texto no Formulário Empty Re: Soma ListBox numa Caixa de Texto no Formulário

    Mensagem  hheverson 6/12/2015, 02:18

    João Paulo,

    Tudo joia?

    Na minha list box não está somando corretamente. Tenho cabeçalho na lista. Seria isso? Como faço para resolver?

    Outro detalhe é que converti minha db em mysql e a hospedei em servidor online. Como lista a velocidade das consultas é bem maior. Mas agora esbarro neste detalhe da soma que não vem corretamente. Seria também o tipo de dados? A soma é para números duplos (metros cúbicos), 0,00.

    Sds,

    Héverson
    avatar
    hheverson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 24/07/2015

    Soma ListBox numa Caixa de Texto no Formulário Empty Re: Soma ListBox numa Caixa de Texto no Formulário

    Mensagem  hheverson 7/12/2015, 04:55

    JP,

    A função não considera os números decimais (após à vírgula). Por gentileza, onde devo alterar?

    Sds,

    Héverson
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Soma ListBox numa Caixa de Texto no Formulário Empty Re: Soma ListBox numa Caixa de Texto no Formulário

    Mensagem  JPaulo 7/12/2015, 10:37

    Ola;

    Basta alterar esta linha, de "Val" para "CDbl":

    Código:
    intTotal = intTotal + CDbl(.Column(intColuna, intLinha))


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

    Soma ListBox numa Caixa de Texto no Formulário Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Soma ListBox numa Caixa de Texto no Formulário Folder_announce_new 102 Códigos VBA Gratuitos...
    Soma ListBox numa Caixa de Texto no Formulário Folder_announce_new Instruções SQL como utilizar...
    avatar
    hheverson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 24/07/2015

    Soma ListBox numa Caixa de Texto no Formulário Empty Re: Soma ListBox numa Caixa de Texto no Formulário

    Mensagem  hheverson 7/12/2015, 15:22

    Perfeito!!!

    Valeu pela atenção.

    Pelo tanto que já me ajudaram, passou da hora de eu fazer um "donate" =). O farei logo!

    Beijo nas crianças!!!

    Héverson
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Soma ListBox numa Caixa de Texto no Formulário Empty Re: Soma ListBox numa Caixa de Texto no Formulário

    Mensagem  JPaulo 7/12/2015, 15:38

    Fico feliz que funcionou.

    Obrigado pelo retorno, o forum agradece.


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

    Soma ListBox numa Caixa de Texto no Formulário Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Soma ListBox numa Caixa de Texto no Formulário Folder_announce_new 102 Códigos VBA Gratuitos...
    Soma ListBox numa Caixa de Texto no Formulário Folder_announce_new Instruções SQL como utilizar...
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    Soma ListBox numa Caixa de Texto no Formulário Empty Re: Soma ListBox numa Caixa de Texto no Formulário

    Mensagem  Lupércio 8/12/2015, 17:52

    Parabéns JPaulo.


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.lol!Rolling Eyes

    Conteúdo patrocinado


    Soma ListBox numa Caixa de Texto no Formulário Empty Re: Soma ListBox numa Caixa de Texto no Formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 12:27