MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Soma ListBox numa Caixa de Texto no Formulário

    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10605
    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 em Qui 31 Out 2013, 7:54 am


    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 100%

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

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

    Mensagem  hheverson em Sab 05 Dez 2015, 9:18 pm

    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 100%

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

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

    Mensagem  hheverson em Dom 06 Dez 2015, 11:55 pm

    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 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10605
    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 em Seg 07 Dez 2015, 5:37 am

    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 100%

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

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

    Mensagem  hheverson em Seg 07 Dez 2015, 10:22 am

    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 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10605
    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 em Seg 07 Dez 2015, 10:38 am

    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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1145
    Registrado : 06/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 em Ter 08 Dez 2015, 12:52 pm

    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

      Data/hora atual: Sex 04 Dez 2020, 5:27 am