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


2 participantes

    Expressão para somar baseado em duas condições.

    lgdelai
    lgdelai
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 146
    Registrado : 31/03/2012

    Expressão para somar baseado em duas condições. Empty Expressão para somar baseado em duas condições.

    Mensagem  lgdelai 25/9/2013, 21:41

    Olá amigos do fórum.

    Vejam o que estou passando.

    Tenho uma relação de pagamentos e quero exibir a soma de apenas alguns que satisfaçam duas condições ao mesmo tempo:

    Que o campo NF seja = a 0
    e que o campo Forma de pagamento seja diferente de "Permuta"

    Poderiam me dizer se meu código está ok?

    -----------------------------------------------------------------
    =Soma(SeImed ( [Nf_tbpag] = 0 e [Forma_pagamento_tbpag] <> "Permuta" ;[Valor_pago] ; 0 ) )
    -----------------------------------------------------------------

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Expressão para somar baseado em duas condições. Empty Re: Expressão para somar baseado em duas condições.

    Mensagem  criquio 25/9/2013, 23:49

    Uma forma, criando-se uma função:

    Código:
    Function Soma() As Double
        Dim rs As Recordset
        Set rs = Me.RecordsetClone

        Do While Not rs.EOF
            If rs!NomeDoCampo = "condição 1" And rs!NomeOutroCampo <> "condição 2" Then
                Soma = Soma + rs!NomeDoCampoASomar
            End If
            rs.MoveNext
        Loop

        Set rs = Nothing
    End Function
    Agora, na origem do campo: =Soma()


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    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: 21/11/2024, 22:25