[Resolvido]Condições de teste e procura.

Boa tarde.

Encontro-me com uma duvida na elaboração de um programa.
Tenho uma tabela de nome "Alarmes" que tem diversas colunas (F1, F2, F3) e quero-a ir percorrendo testando umas determinadas condições.
Até aqui tudo bem ...

Set rst = CurrentDb.OpenRecordset("Alarmes") 'Nome da tabela
If rst.RecordCount = 0 Then
MsgBox "Não há registos na Tabela"
End If
rst.MoveFirst
Do While Not rst.EOF
MsgBox rst.Fields("F2") 'Campo data
rst.MoveNext
Loop

A minha dificuldade é que quero testar em cada campo da linha da tabela(que pode ter uma pequena frase) uma condição, p.e.:

> Saber que o campo (a frase) contem uma determinada sequência de letras ou numeros. Testar por exemplo se tem a sequência '*prot*'.

Não sei se consegui ser explicito

Muito obrigado ajuda.

Tente algo do tipo:

Dim txPesquisa As String, txResultado As String
txPesquisa = "Teste"
txResultado = " where codigo like '*" & txPesquisa & "*'"
If rst("NomeCampo") = txResultado Then
Ação em caso positivo
End If

Não resultou ...

A variável c tem a palavra 'Coluna' mas quando faço o teste para ver se ele detecta a presença da string 'olu' no campo ele não encontra.

Do While Not rst.EOF
c = rst.Fields("F1")
MsgBox rst.Fields("F1") 'Campo data
txPesquisa = "olu"
If c = " where codigo like '*" & txPesquisa & "*'" Then
MsgBox " Está a funcionar correctamente ... Detectei a String olu da palavra consulta"
End If
rst.MoveNext
Loop

Estou a fazer algo mal??

Já resolvi ...

Basta usar a instrução > Instr

De qualquer modos obrigado ajuda

Tente usar tal e qual está no exemplo, somente alterando o campo e o texto a pesquisar para ver se funfa.

Sim também resulta mas a instrução

InStr(1, rst.Fields("F1"), TxtTest)

Simplifica bastante código comparativamente

Então está resolvido? Podemos colocar [Resolvido]?

Sim podemos