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]Casas decimais em soma de caixa de listagem

    Compartilhe

    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 597
    Registrado : 30/08/2010

    [Resolvido]Casas decimais em soma de caixa de listagem

    Mensagem  gilberlanio em Seg 01 Dez 2014, 21:43

    Tenho um campo chamado txtTotalGeral que recebe uma soma de uma coluna de uma caixa de listagem, não estou conseguindo que esse campo some com casas decimais.

    Estou usando esse código no evento ao abrir do formulário para fazer a soma:

    Private Sub Form_Open(Cancel As Integer)
    ' Soma valores
    Dim I, Soma As Double

    Soma = 0
    For I = 0 To Lista.ListCount - 1
    If Val(Lista.Column(1, I)) > 0 Then Soma = Soma + Val(Lista.Column(1, I))
    Next
    txtTotalGeral = Soma
    End Sub

    Segue o arquivo em anexo:


    .................................................................................
    VIDEO CURSO DE ACCESS - Criando um sistema de vendas

    [Você precisa estar registrado e conectado para ver este link.]

    Loja virtual - Gilberlânio Rocha

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Casas decimais em soma de caixa de listagem

    Mensagem  criquio em Seg 01 Dez 2014, 22:03

    Tente tirar os "Vals" e mude o "0" do "For I" para "1" uma vez que a listbox tem cabeçalho e os dados começam na segunda linha "Row(1)".


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 597
    Registrado : 30/08/2010

    Re: [Resolvido]Casas decimais em soma de caixa de listagem

    Mensagem  gilberlanio em Seg 01 Dez 2014, 22:24

    Resolveu, obrigado pela ajuda.


    .................................................................................
    VIDEO CURSO DE ACCESS - Criando um sistema de vendas

    [Você precisa estar registrado e conectado para ver este link.]

    Loja virtual - Gilberlânio Rocha

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Casas decimais em soma de caixa de listagem

    Mensagem  criquio em Seg 01 Dez 2014, 23:35

    Grato pelo retorno.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


      Data/hora atual: Qui 08 Dez 2016, 10:43