MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Localizar registro específico baseado em uma informação em uma caixa de texto (BUSCA)

    Compartilhe

    auegantz
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 11/09/2016

    Localizar registro específico baseado em uma informação em uma caixa de texto (BUSCA)

    Mensagem  auegantz em Sex Mar 23, 2018 8:46 pm

    Boa tarde a todos,

                 Estou montando um BD e nele há um campo chamado sequencial que é único para cada registro. Eu criei uma caixa de texto e um botão no topo. A ideia é o usuário escrever o número da sequencial em uma caixa de texto e clique no botão ao lado ai o formulário vai para o registro que onde a sequencial indicada pelo usuário existe, semelhante ao que é feito com a "botões de navegação" do formulário.
                 Eu desabilitei os botões de navegação porque eu quero que o usuário pesquise tão somente este campo.
                 Se alguém puder me ajudar ficarei grato.
                 Estou mandando um exemplo para facilitar.
                  Desde já agradeço a atenção de todos.
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1962
    Registrado : 13/04/2012

    Re: Localizar registro específico baseado em uma informação em uma caixa de texto (BUSCA)

    Mensagem  Fernando Bueno em Sab Mar 24, 2018 12:46 am

    Boa noite Felipe, veja se era isso que queria..


    Coloquei para pesquisar digitando na textbox e também por um botão abaixo no form

    Fica a seu critério como usar e adaptar.

    Aguardamos.
    Anexos
    Exemplo Busca_New.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (32 Kb) Baixado 49 vez(es)


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    auegantz
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 11/09/2016

    Re: Localizar registro específico baseado em uma informação em uma caixa de texto (BUSCA)

    Mensagem  auegantz em Ter Mar 27, 2018 4:38 pm

    Bom dia Fernando

         Grato pela atenção, o exemplo funcionou perfeitamente, porém na hora que fui repassar para o meu BD original infelizmente a busca não funciona, ela simplesmente não acha nada ele abre um registo inexistente.
          Assim se puder dar uma olhada por favor no código, fiz uma alteração no código para colocar um IF e ELSE, e apenas com click do botão para fazer a pesquisa, porém mesmo sem isso o campo busca não estava funcionando.
          Segue abaixo o BD também


    OBS: nome da Tabela é "A_TP_PROCEDIMENTO", nome do campo é 09_Sequencial_Final, O campo onde é digitado a pesquisa é o Me.Pesq_sequ_V.

    On Error GoTo Erro
    Dim strSQL As String
    Dim xlocalizar As Variant
    xlocalizar = Me.Pesq_sequ_V
    If IsNull(Pesq_sequ_V) Then
    MsgBox ("O campo sequencial está vazio e é necessário ser preenchido")
    Me.Pesq_sequ_V.SetFocus
    Else
    strSQL = "SELECT * FROM [A_TP_PROCEDIMENTOS] WHERE [09_Sequencial_Final]='" & xlocalizar & "'"
    Me.Form.RecordSource = strSQL
    End If
    Exit Sub
    Erro:
    End Sub
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1962
    Registrado : 13/04/2012

    Re: Localizar registro específico baseado em uma informação em uma caixa de texto (BUSCA)

    Mensagem  Fernando Bueno em Sex Mar 30, 2018 3:58 am

    Boa noite Felipe;

    Retire os colchetes

    On Error GoTo Erro
    Dim strSQL As String
    Dim xlocalizar As Variant
    xlocalizar = Me.Pesq_sequ_V
    If IsNull(Pesq_sequ_V) Then
    MsgBox ("O campo sequencial está vazio e é necessário ser preenchido")
    Me.Pesq_sequ_V.SetFocus
    Else
    strSQL = "SELECT * FROM [A_TP_PROCEDIMENTOS] WHERE [09_Sequencial_Final]='" & xlocalizar & "'"
    Me.Form.RecordSource = strSQL
    End If
    Exit Sub
    Erro:
    End Sub


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    auegantz
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 11/09/2016

    Re: Localizar registro específico baseado em uma informação em uma caixa de texto (BUSCA)

    Mensagem  auegantz em Sex Mar 30, 2018 5:13 am

    Boa noite Fernando,


              Mesmo retirando os colchetes não funcionou. Você pode olhar por favor a aplicação em si que eu coloquei, ja tentei mudar o nome,fiz de tudo e não funciona, realmente não sei o que fiz de errado.

    BD no link abaixo

    [Você precisa estar registrado e conectado para ver este link.]


    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1962
    Registrado : 13/04/2012

    Re: Localizar registro específico baseado em uma informação em uma caixa de texto (BUSCA)

    Mensagem  Fernando Bueno em Ter Abr 03, 2018 3:28 am

    Boa noite Felipe;

    Estive vendo seu banco e o filtro não funciona porque sua tabela A_TP_PROCEDIMENTOS

    não tem ligação nenhuma com a tabela B_TA_PROCEDIMENTOS_01_LEI_ARTIGO

    No formulário em questao existe um subformulario onde a fonte de registro é da tabela

    B_TA_PROCEDIMENTOS_01_LEI_ARTIGO.

    Grave todos os dados na tabela principal ai então seu filtro funcionará.

    Esses dias esta meio corrido pra mim mais qualquer duvida vamos tentando te ajudar ok.


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Sab Ago 18, 2018 4:41 pm