[Resolvido]Valor Médio, Valor Máximo e Valor Mínimo de coluna em uma caixa de listagem com filtro

Boa noite , tenho um formulário com uma caixa de listagem com Filtro, eu consegui colocar a contagem dos registros gerados após o filtro, agora gostaria de pegar os valores de uma determinada coluna e separar entre "Valor Médio", "Valor Máximo" e "Valor Mínimo" para ser demonstrado separadamente no rodapé do formulário.


Esse é o código para contagem dos registros.

Private Sub txtdados_AfterUpdate()
   Me.Recalc
   Dim Registros As Integer
   Registros = Me.listadados.ListCount
   txtqtd = Registros - 1 & " Registros"
End Sub

Na minha "listadados" tem um campo "M³ DO LOTE" que gostaria de separar estes 3 dados, "Valor Médio", "Valor Máximo" e "Valor Mínimo"pela

Desde já agradeço pela ajuda e parabéns pelo Forum que me ajuda sempre.

Bom dia,

Crie 3 textbox no seu formulário: txtMed, txtMin, txtMax. Depois acrescente o trecho abaixo no evento Após Atualizar do campo txtdados:

Código:

    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT max([M³ DO LOTE]) AS mx, min([M³ DO LOTE]) as mn, AVG([M³ DO LOTE]) as md FROM [CEC Consulta Geral] WHERE [PLACA] LIKE '*" & txtdados & "*'")
    txtMed = Round(rs!md, 2)
    txtMax = rs!mx
    txtMin = rs!mn
    rs.Close

ps.: muito cuidado com o nome que dá aos elementos do seu sistema. O ideal é usar apenas letras e números e nunca ter espaços. Evita algum tipo de erro na leitura do código pelo vba.

Abraço.

Sensacional,

Muito obrigado @CassioFabre, o código funcionou perfeitamente e obrigado pelas dicas.

Não costumo muito trabalhar com código, por isso não me preocupo tanto com os nomes, mas quando preciso usar códigos, sempre tenho que sair renomeando os elementos, isso com certeza ajuda muito na construção dos códigos , vou me atentar mais.

De qualquer forma funcionou tudo direitinho e de primeira, deixo aqui meus agradecimentos e elogios pela ajuda dos integrantes do Fórum.

Valeu CassioFabre !!!

Boa tarde,

Não se esqueça de dar o tópico como resolvido.

Boa noite , tenho um formulário com uma caixa de listagem com Filtro, eu consegui colocar a contagem dos registros gerados após o filtro, agora gostaria de pegar os valores de uma determinada coluna e separar entre "Valor Médio", "Valor Máximo" e "Valor Mínimo" para ser demonstrado separadamente no rodapé do formulário.


Esse é o código para contagem dos registros.

Private Sub txtdados_AfterUpdate()
  Me.Recalc
  Dim Registros As Integer
  Registros = Me.listadados.ListCount
  txtqtd = Registros - 1 & " Registros"
End Sub

Na minha "listadados" tem um campo "M³ DO LOTE" que gostaria de separar estes 3 dados, "Valor Médio", "Valor Máximo" e "Valor Mínimo"pela

Desde já agradeço pela ajuda e parabéns pelo Forum que me ajuda sempre.

Resolvido!