MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


+2
JPaulo
Luís Antunes
6 participantes

    [Resolvido]Localizar dados

    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    [Resolvido]Localizar dados Empty [Resolvido]Localizar dados

    Mensagem  Luís Antunes 9/8/2017, 12:57

    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
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Localizar dados Empty Re: [Resolvido]Localizar dados

    Mensagem  JPaulo 9/8/2017, 13:11

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Localizar dados Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Localizar dados Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Localizar dados Folder_announce_new Instruções SQL como utilizar...
    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    [Resolvido]Localizar dados Empty Localizar dados

    Mensagem  Luís Antunes 9/8/2017, 18:12

    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
    avatar
    Mabuus
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 18/06/2018

    [Resolvido]Localizar dados Empty Re: [Resolvido]Localizar dados

    Mensagem  Mabuus 21/6/2018, 16:42

    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.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    Registrado : 05/11/2009

    [Resolvido]Localizar dados Empty Re: [Resolvido]Localizar dados

    Mensagem  Alexandre Neves 21/6/2018, 16:49

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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    [Resolvido]Localizar dados Empty Re: [Resolvido]Localizar dados

    Mensagem  Luís Antunes 7/4/2021, 17:52

    Boas

    Não consegui resolver esta questão.

    Luís Antunes
    avatar
    zcarloslopes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 393
    Registrado : 28/10/2010

    [Resolvido]Localizar dados Empty Re: [Resolvido]Localizar dados

    Mensagem  zcarloslopes 13/4/2021, 15:06

    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.

    Mabuus gosta desta mensagem

    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Localizar dados Empty Re: [Resolvido]Localizar dados

    Mensagem  Noobezinho 13/4/2021, 15:27

    Olá Pessoal

    Creio que seja ISSO que

    o amigo está querendo.

    {}'s

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    [Resolvido]Localizar dados Empty Re: [Resolvido]Localizar dados

    Mensagem  Luís Antunes 21/4/2021, 17:41

    Boa Tarde Carlos Lopes
    Funcionou, perfeito

    Fico-lhe grato

    Luís Antunes
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Localizar dados Empty Re: [Resolvido]Localizar dados

    Mensagem  Noobezinho 21/4/2021, 17:46

    Luis

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

    Boa sorte!

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    [Resolvido]Localizar dados Empty Re: [Resolvido]Localizar dados

    Mensagem  Luís Antunes 29/4/2021, 18:48

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

    Luís Antunes

    Conteúdo patrocinado


    [Resolvido]Localizar dados Empty Re: [Resolvido]Localizar dados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 09:48