[Resolvido]Condição If não apresenta resultado esperado mesmo o resultado sendo valido

Boas pessoal,

Estou quebrando a cabeça o dia todo aqui tentando resolver uma sequencia que bate mas não me da a resposta que quero.
Segue:

Código:

For A = Me.FreqInicial To Me.FreqFinal
    Dim seq As String, k
    seq = "[Unidade] & '|' & [Peso] & '|' & [Altura]"
    seq = DLookup(seq, "tblProdutos", IdProd = " & A & "")
    k = Split(seq, "|")
        For i = 0 To 5
            For j = 1 To 10
[color=#ff0000]                If j = k(i) Then
                    Y = Y + 1
                End If[/color]
            Next j
        Next i
Next A


Me.txt01 = Y

O Resultado que me responde é sempre "0"
Já coloquei uma msgBox para verificar se esta igual os campos mas mesmo 15 = 15 o meu Y não é somado

Tente a seguinte alteração:

seq = DLookup(seq, "tblProdutos", "[IdProd] = " & A)

Boa tarde,

Teste atribuir um valor inicial pra Y (suponho que seja um integer, faça Y = 0) antes do primeiro For.

Abraço.

Boas a todos,

Claudio, grato pela resposta mas o erro não esta no dlookup.
Cássio, grato pela resposta, tentei efetuar o procedimento, mas aparentemente não deu resultado.
Ainda quebrando a cabeça, solicito o a ajuda de quem possa dar uma olhada. Estarei deixando link de um exemplo bem básico.

Exemplo

Grato a todos.

Bom dia,

Qual exatamente é a ideia do que precisa fazer?

Abraço.

Tenta transformar ambos para número usando a função VAL.

Pode uma variável estar como numérica e outra como carácter, então, para o access vão ser diferentes.

Thiago, grato pela ajuda, tentei utilizar a função mas não me gerou resultados, mas o caminho é por ai, visto que, quando substituo "j" por "1" por exemplo me é apresentado o valor que desejo.
Cassio, o que preciso é do seguinte:

Percorrer a tabela a e verificar todos os campos consultados. Então faço uma comparação e caso o valor exista somar até ter o resultado total de ocorrencia de um valor.
Por exemplo

CAMPO1; CAMPO2; CAMPO3
1; 5; 10
6; 1; 5
9; 3; 6
4; 7; 1

No caso o caracter 1 ocorre 3 vezes então meu resultado seria (1 = 3; 5 = 2; 10 = 1; 6 = 2....)

Aplique VAL em ambas as variavies.

Boa tarde,

Bom, tem uma maneira muito mais facil de fazer isso:

Código:

Dim rs As Recordset
    Dim y As Integer
    
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblProdutos")
    
    y = 0
    
    Do While Not rs.EOF  
        If rs!unidade = Me.txtValorProcurado Then
            y = y + 1
        End If
        
        If rs!peso = Me.txtValorProcurado Then
            y = y + 1
        End If
        
        If rs!altura = Me.txtValorProcurado Then
            y = y + 1
        End If
        
        rs.MoveNext
    Loop
    
    txt01 = y

Sem dúvidas não é tão bonito quanto o que voce estava tentando, mas funcioná que é um chuchu.

No seu exemplo coloquei um campo txtValorProcurado para voce especificar qual valor quer fazer a contagem. Se colocar 1, o txt01 vai retornar 4, conforme o que voce precisa.

Abraço.

Cássio, Grato pela ajuda e prontidão.
Funcionando a 100% aqui, muito obrigado.
Thiago, grato, tentei utilizar todos os tipos de função de conversão mas mesmo assim não funcionou. o problema com certeza é o "j"

Agradeço a ajuda de todos.