[Resolvido]Localizar dados

Gostaria que este código, de J Paulo, fizesse mais localizações de dados, isto é: que numa caixa de mensagem tivesse uma opção "Next"

'By JPaulo ® Maximo Access
Dim strX
strX = InputBox("Digite o que pretende filtrar", "Filtrar")
'Se pressionar o Cancel, a instrução morre aqui
If StrPtr(strX) = 0 Then Exit Sub
'Se pressionar o Ok sem digitar valores morre aqui
If strX = "" Then Exit Sub
'se digitar algo e pressionar Ok, irá fazer uma busca em qualquer parte do seu formulário
DoCmd.FindRecord strX, acAnywhere, False, , True, acAll, True

Luís Antunes

Ola;

O que isto faz é um filtro com o DoCmd.FindRecord, mediante o que digitar na inputbox.

Se quer o resultado por mensagem, será diferente e terá de nos dizer o que realmente necessita.

J Paulo Agradeço a sua disponibilidade.
Dando um exemplo explico-me melhor.
Se fizer uma pesquisa pelo nome "João e eu tenho na tabela vários nomes João x João Y João Z ect: o código só me mostra um deles, o que pode não ser o pretendido. Se hover um Next, no código, eu percorro todos os João da tabela.

Grato

Luís Antines

Sou novo no fórum, mas entusiasta do access. Gostaria se possível, se alguém pudesse seguir, com o pedido do amigo, que é também justamente o que preciso, seguir localizando palavras parecidas no formulário atual (uma tabela apenas)... o botão NEXT, realmente viria a calhar nesse hora.

Boa tarde e bem-vindo ao fórum
Forneçam o que já têm feito para se tentar ajudar

Boas

Não consegui resolver esta questão.

Luís Antunes

Boa tarde Luís Antunes,

Tente o seguinte:

1 - Crie uma nova txtBox no seu formulário e dê o nome de ValuePass (pode colocar como oculta)

2 - Acrescente uma linha no final do código que mencionou na msg nº1  

Código:

Me.ValuePass = strX

3 - Adicione um botão no seu form para procurar próximo registo com o seguinte código ao clicar:

Código:

Dim strFind As Variant

Dim strCampo As String

If Len(Me.ValuePass & "") = 0 Then
    MsgBox "Sem Dados para Pesquisar!!", , "Atenção!"
    Exit Sub
    
Else

    strCampo = Me.ValuePass

    
    strFind = "NOMEdoCAMPOquePROCURA Like '*' & '" & strCampo & "' & '*'"

    Me.RecordsetClone.FindNext strFind
    
    Me.Bookmark = Me.RecordsetClone.Bookmark
    
    If Me.RecordsetClone.NoMatch = True Then
        
        MsgBox "Não há mais Registos Para Esta Pesquisa! A Pesquisa vai Reiniciar!!", , "Atenção"
            
        Me.RecordsetClone.FindFirst strFind
        
        Me.Bookmark = Me.RecordsetClone.Bookmark
                            
    Else
        Me.Bookmark = Me.RecordsetClone.Bookmark
    End If
End If

4 - Neste último código altere NOMEdoCAMPOquePROCURA pelo nome do seu campo onde faz a pesquisa.

Olá Pessoal

Creio que seja ISSO que

o amigo está querendo.

{}'s

Balem

Boa Tarde Carlos Lopes
Funcionou, perfeito

Fico-lhe grato

Luís Antunes

Luis

Se foi resolvido, favor colocar o resolvido no tópico.

Boa sorte!

Balem

Peço desculpa pesei que tinha dado o temo com resolvido

Luís Antunes