locked
Erro em código RRS feed

  • Pergunta

  • 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

    domingo, 19 de setembro de 2010 11:32

Respostas

  • 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?

    • Marcado como Resposta aneves.expo terça-feira, 21 de setembro de 2010 00:10
    segunda-feira, 20 de setembro de 2010 01:21

Todas as Respostas

  • 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.

    domingo, 19 de setembro de 2010 18:39
  • 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

    domingo, 19 de setembro de 2010 20:33
  • 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?

    • Marcado como Resposta aneves.expo terça-feira, 21 de setembro de 2010 00:10
    segunda-feira, 20 de setembro de 2010 01:21
  • Boa!

    Resolveu sim senhor. Simples e eficiente!

    Muito obrigado.

    an

    terça-feira, 21 de setembro de 2010 00:12
  • De nada, disponha.
    terça-feira, 21 de setembro de 2010 02:25