Erro em código

Question

Viva!

Há uns tempos guardei o seguinte código para pesquisar strings e que agora tentei adaptar:

***************************************************************

Private Sub Form_Current()
Dim rst As DAO.Recordset
    Dim strCriteria As String
    strCriteria = "[Descritores] Like '*" & InputBox("Texto " _ & "a pesquisar") & "*'"

    Set rst = Me.RecordsetClone
    rst.FindFirst strCriteria
    If rst.NoMatch Then
        MsgBox "Não localizado.", vbInformation
        Set rst = Nothing
        Exit Sub
    Else
        Me.Bookmark = rst.Bookmark
    End If
    While M_SN("Continuar?") = True
        rst.FindNext strCriteria
    If rst.NoMatch Then
        MsgBox "Não foram localizadas mais hipóteses", vbInformation
        Set rst = Nothing
        Exit Sub
    Else
        Me.Bookmark = rst.Bookmark
    End If
    Wend

End Sub

*****************************************************

Ao corrê-lo dá erro Sub or Function not defined, na linha

    While M_SN("Continuar?") = True

e evidencia M_SN

Como não consigo localizar a origem, peço ajuda para tentar perceber se se trata de um campo de uma tabela, de uma varíável não definida ou outra situação?

Obrigado.

an

Answer 1

Aparentemente, M_SN() é uma função que no código citado está recebendo como parâmetro o texto "Continuar?" e que retorna True ou False.

De acordo com a mensagem de erro, provavelmente essa função não existe no seu banco de dados.

Answer 2

Obrigado pela resposta.

O que pretendo é pesquisar no campo [Descritores] em toda a tabela T_Relatorios, se existem as palavras que o utilizador pesquisar.

Não sei como fazer isso e pensei que o código acima me pudesse resolver o problema.

Se me puder dizer como fazer isso, muito agradeço.

an

Answer 3

Existem várias formas. Uma consulta sobre a tabela T_Relatorios usando o seguinte critério no campo [Descritores]:

Like "*" & [Texto a pesquisar] & "*"

não resolveria?

Answer 4

Boa!

Resolveu sim senhor. Simples e eficiente!

Muito obrigado.

an

Answer 5

De nada, disponha.