[Resolvido]comparação de campos

Olá mestres, estou aqui novamente para tentar resolver algo que aparentemente parece bem simples, mas como sou leigo ainda não consegui uma solução. Eu tenho um formulário que tem como fonte de dados uma tabela, eu estou querendo criar um botão que ao clicar ele faz a comparação entre dois campos, em um campo só pode ser preenchido com A,B,C,D,E e outro campo só pode ser preenchido com 1,2,3,4,5, eu queria que ao clicar nesse botão, se os dois campos tiverem dados dessa forma, 1 e A ou 2 e B ou 3 e C ou 4 e D ou 5 e E, aparecesse um texto de correto e se não ficasse dessa forma a comparação, acontecesse qualquer outra situação sem ser a que eu coloquei aparecesse o texto errado. Aguardo a ajuda de vocês

Será sempre assim?

Ou seja, sempre na ordem crescente ou pode ter variação?

os dois campos estão invisíveis, o que eu quero é que quando eu clicar em um botão se corresponderem as letras com os valores que você mesmo colocou, apareça um texto no formulário com a palavra correto ou errado se a correspondência não bater

Mas essa frase de certo ou errado deve aparecer uma única vez em um label ou seria um label para cada linha? Se for um único, pode ser algo assim:

If Me.CampoA = "A" And Me.Campo1 = 1 And Me.CampoB = "B" And Me.Campo2 = 2 And Me.CampoC = "C" And Me.Campo3 = 3 And Me.CampoD = "D" And Me.Campo4 = 4 And Me.CampoE = "E" And Me.Campo5 = 5 Then

Me.NomeDoLabel.Caption = "Correto"

Else

Me.NomeDoLabel.Caption = "Errado"

End If

Se for um label para cada linha, bastará adaptar. Uma outra forma mais eficaz para vários campos seria cada um ter apenas a letra como nome e então percorrer os campos e ver se todos tem como texto o mesmo nome do campo:

Dim cmp As Control

For Each cmp In Me.Controls
   If Len(cmp.Name) = 1 And cmp.Value = cmp.Name Then
      Me.NomeDoLabel.Caption = "Correto"
   Else
      Me.NomeDoLabel.Caption = "Errado"
   End If
Next cmp

Tou com o problema nessa label, eu coloquei uma caixa de texto e no "NomeDoLabel" o seu código coloquei o nome da caixa de texto, ai aparece erro de compilação método ou membro de dados não encontrado, sendo que o nome Caption fica destacado no depurador

Ok meu amigo, eu resolvi aqui, apenas exclui o caption deixando apenas o nome da caixa de texto e deu certo. Muito obrigado a todos vocês, esse forum é excelente. Agradeço você , pois não teria conseguido sem o seu código

O caption é para rótulo(label). Para campo é sem o caption.

Bom que resolveu. Grato pelo retorno.