MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Soma dentro da caixa Listagem

    Compartilhe

    fazerbem
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 05/03/2017

    [Resolvido]Soma dentro da caixa Listagem

    Mensagem  fazerbem em 14/6/2018, 04:29

    Tenho uma Form com uma Caixa de listagem contendo todas as vendas feitas. Coloquei um filtro na caixa de texto PEsquisa, onde e pesquisado a venda individual por cliente. Dentro da caixa de listagem e listado todas as vendas de todos os clientes, porem conforme digitado o nome do cliente especifico, aparece somente as vendas deste cliente. Agora queria fazer a sma apenas dos produtos que estao aparecendo na caixa de listagem neste caso so deste cliente. Queria que essa soma ficasse por fora da caixa de listagem. Como devo fazer isso ?

    Grato
    avatar
    Maicon
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 08/09/2012

    Re: [Resolvido]Soma dentro da caixa Listagem

    Mensagem  Maicon em 14/6/2018, 08:17

    Pode usar a função DSoma("[SeuCampoSomaR]";"nomesuatabela";"CritériosPesquisa")
    Exemplo :
    "https://support.office.com/pt-pt/article/fun%C3%A7%C3%A3o-dsoma-08f8450e-3bf6-45e2-936f-386056e61a32"[url=https:

    [Você precisa estar registrado e conectado para ver este link.][Você precisa estar registrado e conectado para ver esta imagem.][/url]


    Note que o primeiro campo seria sua Caixa de Combinação o Segundo somente uma referencia só para extrair o valor da caixa de combinação e o terceiro é para fazer a soma




    .................................................................................
    "Uma pessoa que nunca cometeu um erro, nunca tentou nada novo."
    Albert Einstein

    Bons Estudos.

    fazerbem
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 05/03/2017

    Re: [Resolvido]Soma dentro da caixa Listagem

    Mensagem  fazerbem em 14/6/2018, 13:30

    bom dia, nao entendi muito bem.
    Eu preciso colocar a soma nesta caixa fora da caixa de listagem
    Nome Formulario=A11_Historico
    Nome caixa= Lista0
    quero somar a coluna 9 da caixa de listagem em Me.Soma.value que esta fora da caixa de listagem


    [Você precisa estar registrado e conectado para ver esta imagem.]

    fazerbem
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 05/03/2017

    Re: [Resolvido]Soma dentro da caixa Listagem

    Mensagem  fazerbem em 14/6/2018, 14:20

    Pesquisando aqui mesmo no forum achei algo que serviu quase 100%, mas preciso que conforme a caixa de pesquisa va se atualizando, a caixa Me.TxtTotal atualize tb os valores totais.

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

    Por exemplo , se na caixa de listagem houver 2 clientes Alexandre, sendo um Alexandre Moorais e o outro Alexandre Neves, caso eu digitar somente Alexandre, na caixa txtTotal ira aparecer todas as vendas dos 2 Alexandres, porem se eu digitar Alexandre Neves, entao ira aparecer somente as vendas deste cliente.

    Isso ate acontece se eu escrever o nome completo do cliente e recolocar o Form em modo Design, dai quando coloco novamente em modo de Exibição, a soma ocorre somente no cliente descrito na caixa de pesquisa.

    Código:


    Private Sub Form_Current()

    Dim I, Soma As Double

    Soma = 0
    For I = 0 To Lista0.ListCount - 1
    If Val(Lista0.Column(9, I)) > 0 Then Soma = Soma + Val(Lista0.Column(9, I))
    Next
    Me.txttotal = Soma

    End Sub


    fazerbem
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 05/03/2017

    Re: [Resolvido]Soma dentro da caixa Listagem

    Mensagem  fazerbem em 14/6/2018, 14:34

    consegui aqui, coloquei todo o codigo em outro lugar.

    Código:


    Private Sub txtPesquisa_AfterUpdate()
    Me.Lista0.Requery

    Dim I, Soma As Double

    Soma = 0
    For I = 0 To Lista0.ListCount - 1
    If Val(Lista0.Column(9, I)) > 0 Then Soma = Soma + Val(Lista0.Column(9, I))
    Next
    Me.txttotal = Soma


    End Sub


      Data/hora atual: 19/8/2018, 00:33