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

    ListBox - Calculos Diversos - Desvio Padrao, PesoMed Min e Max, Soma Coluna, Soma Coluna com Criterios..etc..

    Compartilhe
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    ListBox - Calculos Diversos - Desvio Padrao, PesoMed Min e Max, Soma Coluna, Soma Coluna com Criterios..etc..

    Mensagem  HARYSOHN em Sab 17 Set 2011, 17:41

    Por sugestão do Amigo Criquio, segue pequeno exemplo de form de cadastro utilizando:

    Para consulta

    1 - Cálculos entre horas em consulta
    2 - Cálculos de porcentagem em consulta
    3 - Peso Médio em consulta


    Para ListBox


    1- Soma de colunas obtendo diversos resultados
    1.1 - peso Medio
    1.2 - Peso Medio Mim/Max
    1.3 - Desvio padrão


    Observem que na segunda aba.. tem dois calculos de peso medio

    Peso medio = Peso médio da soma de todas as linhas da listBox
    Peso mnedio frango = Peso médio da soma das linha da list obedecendo o critério "Frango"


    2 - Filtros na listBox entre datas, placa, granja...
    ** este filtro utilizando SQL... podendo filtrar apenas por um criterio bem como por ambos.

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

    Enjoy!!


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


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

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Re: ListBox - Calculos Diversos - Desvio Padrao, PesoMed Min e Max, Soma Coluna, Soma Coluna com Criterios..etc..

    Mensagem  HARYSOHN em Sab 17 Set 2011, 17:43

    Post que originou a solução para soma de coluna da listBox obedecendo a um critério.

    [Você precisa estar registrado e conectado para ver este link.]
    Código:
    Function SomaColunaFiltro(Y As Integer, Optional N As Integer)
    On Error Resume Next
    Dim X, soma
    ContadorFrango = 0
    soma = 0
    For X = 1 To Me.lstConsulta.ListCount - 1
    If Me.lstConsulta.Column(N, X) = "Frango" Then
    ContadorFrango = ContadorFrango + 1
    soma = soma + Me.lstConsulta.Column(Y, X)
    End If
    Next
    SomaColunaFiltro = soma
    End Function

    Observem que no código criei uma variável (ContadorFrango) a ser aplicada nas declarações do módulo
    Esta variável comportará o numero que é a quantidade de registros na list com o critério "frango"

    Este variável será utilizada para o preencimento da caixa texto no form para dar a média do Peso MedioFrango:

    No Inicio do Módulo:
    Código:
    Option Compare Database
    Option Explicit
    Dim ContadorFrango As Integer

    Ao carregar a caixa texto no form:
    Perceba que há na função referencia as duas colunas que serão utilizadas no código
    1 - Coluna Soma
    2 - Coluna Criterio


    Me.txtPesoMedioFrango = SomaColunaFiltro(12, 9) / ContadorFrango


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


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

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Qui 14 Dez 2017, 13:05