[Resolvido]Consulta por meses que um produto não vende em colunas

'=======================================================
'Confeccionado Por PILOTO
'Fórum Máximo Access
'Para o usuário Jsd em 27/05/2013
'=======================================================
Dim rs As Dao.Database
Dim NumCampos As Integer
Dim Z As Integer, x As Integer
Dim nCount As Integer

nCount = 0
    Set rs = CurrentDb.OpenRecordset("SELECT * From SuaTabela Were Código = " & StrCodigoCliente & ";")

rs.MoveFirst
Do While Not rs.EOF
            'Adiciono à variável o número de campos na tabela
            NumCampos = rs.Fields.Count
            'Adiciono a esta variável o numero  de campos da tabela
            x = NumCampos
                'Inicio o loop pelos campos excluindo o campo da chave primaria que é o campo 0
                For Z = 0 To (NumCampos - 1)
                    'Checo se o campo é nulo observe que utilizo o valor de x para iniciar pelo último campo
                    'Caso seja nulo incremento o contador em 1
                    If IsNull(rs.Fields(x)) Then nCount = nCount   1
                    'Aqui checo se o campo não é nulo caso positivo e o contador não estiver em 7
                    'Significa que teve venda antes dos 7 meses, depois vou salto ao rótulo continuar
                    'para saltar este produto
                    If IsNull(rs.Fields(x)) = False And nCount < 7 Then GoTo Continuar
                    'Como o loop pelos campos deve ser feito inverso vou diminuindo o valor de x a cada loop
                    x = NumCampos - 1
                Next Z
                   'Caso a variável nCount seja igual ou maior que 7 significa que o produto está a 7 ou mais meses sem venda
                   If nCount >= 7 Then MsgBox "Este Produto está 7 meses sem vender"
Continuar:
'Movo o recordset para o último registro
nCount = 0
rs.MoveNext
Loop

'=======================================================
'Confeccionado Por PILOTO
'Fórum Máximo Access
'Para o usuário Jsd em 27/05/2013
'=======================================================
Dim db As Database
Dim rs As Recordset
Dim NumCampos As Integer
Dim Z As Integer, x As Integer
Dim nCount As Integer
Dim StrCodigoCliente As String

StrCodigoCliente = Forms.Form_Clientes.CaixaCliente.Value

nCount = 0
Set db = CurrentDb()
Set rs = CurrentDb.OpenRecordset("SELECT Curva.CodCliente, Curva.CodProduto, Curva.Descricao, Curva.JaneiroVLR, Curva.FevereiroVLR, Curva.MarcoVLR, Curva.AbrilVLR, Curva.MaioVLR, Curva.JunhoVLR, Curva.JulhoVLR, Curva.AgostoVLR, Curva.SetembroVLR, Curva.OutubroVLR, Curva.NovembroVLR, Curva.DezembroVLR FROM Curva WHERE Curva.CodCliente = '" & StrCodigoCliente & "';")

rs.MoveFirst
Do While Not rs.EOF
'Adiciono à variável o número de campos na tabela
NumCampos = rs.Fields.Count
'Adiciono a esta variável o numero de campos da tabela
x = NumCampos
'Inicio o loop pelos campos excluindo o campo da chave primaria que é o campo 0
For Z = 0 To (NumCampos - 1)
'Checo se o campo é nulo observe que utilizo o valor de x para iniciar pelo último campo
'Caso seja nulo incremento o contador em 1
If IsNull(rs.Fields(x)) Then nCount = nCount + 1
'Aqui checo se o campo não é nulo caso positivo e o contador não estiver em 7
'Significa que teve venda antes dos 7 meses, depois vou salto ao rótulo continuar
'para saltar este produto
If IsNull(rs.Fields(x)) = False And nCount < 7 Then GoTo Continuar
'Como o loop pelos campos deve ser feito inverso vou diminuindo o valor de x a cada loop
x = NumCampos - 1
Next Z
'Caso a variável nCount seja igual ou maior que 7 significa que o produto está a 7 ou mais meses sem venda
If nCount >= 7 Then MsgBox "Este Produto está 7 meses sem vender"
Continuar:
'Movo o recordset para o último registro
nCount = 0
rs.MoveNext
Loop

rs.Close
Set rs = Nothing
Set db = Nothing