Usuário com melhor resposta
Erro em código

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
WendEnd 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