[Resolvido] Contar maior que zero, via VBA !!!

Bom dia a todos, 

tenho uma tabela com registros de saídas, mês a mês e gostaria de contar, em quantos meses o material saiu, desconsiderando os meses com zero, ou meses com valor negativos.

    Material        Mes1        Mes2       Mes3        Ocorr.

XXXXDDDCC	0	1	5	2
AAXBHHKKK	1	5	2	3

Tentei usar o Dcount, via VBA, mas esta retornando os registros da tabela inteira, e não linha a linha.


Podem me ajudar ?


Desde ja, agradeço

Boa tarde a todos,


@Avelino, obrigado pela ajuda. Minha ideia era evitar o uso de consultas, pois imagino que esse bd vá ficar com uma quantidade enorme de dados, por isso pretendia usar o máximo de VBA possível. Mas se for a melhor solução, será a que irei usar. Muito obrigado

@Alexandre, estou colocando aqui, os bd que estou usando com uma quantidade pequena de dados.



Aproveitando, após a criação de quantidade de ocorrências, precisarei criar o campo de Percentual e Acumulado, afim de fazer uma Curva ABC. Coisa que também estou encontrando bastante dificuldade, mesmo com a ajuda desse artigo Formula na Consulta - Curva ABC (usandoaccess.com.br)

Até peço desculpas, mas fiquei alguns anos longe do Access, Excel e afins....
Estou com um pouco de dificuldade de lembrar como as coisas funcionam

Leandro,

Eu usaria o campo calculado na consulta.  Para ficar mas enxuto e rápido você pode utilizar a função abs() ao invés da SeImed().  Veja na consulta do arquivo exemplo.

Bom, se deseja atualizar o campo Ocorrencias da tabela, segue o código VBA, que também está no exemplo.

Private Sub Comando1_Click()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("AuxMC_6")
rs.MoveFirst
Do While Not rs.EOF
   With rs
       .Edit
           !Ocorrencias = Abs(!mes_ref_1 > 0) + Abs(!mes_ref_2 > 0) + Abs(!mes_ref_3 > 0) + Abs(!mes_ref_4 > 0) + Abs(!mes_ref_5 > 0) _
           + Abs(!mes_ref_6 > 0) + Abs(!mes_ref_7 > 0) + Abs(!mes_ref_8 > 0) + Abs(!mes_ref_9 > 0) + Abs(!mes_ref_10 > 0) + Abs(!mes_ref_11 > 0) + Abs(!mes_ref_12 > 0)
       .Update
       .MoveNext
   End With
Loop
rs.Close
Set rs = Nothing
MsgBox "Atualização concluída...", vbInformation, "Informativo"
End Sub

Sucesso!

Bom dia,

@Avelino, perfeito, vou seguir sua sugestão e usar o campo calculado na consulta.

Quanto ao percentual acumulado, ainda não consegui resolver. Lembro que a muito anos atrás, eu consegui fazer, usando o artigo que citei (se não me engano, de sua autoria). Mas o tempo fora dessa área, tem me atrapalhado bastante.

A ideia é criar o acumulado, afim de realizar uma Curva ABC.


Desde já, agradeço.

Bom dia a todos,

obrigado @Avelino e @Alexandre, o problema foi resolvido.


Grato