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


    [Resolvido]Pesquisa em uma caixa de listagem

    Almeidar
    Almeidar
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 307
    Registrado : 03/03/2015

    [Resolvido]Pesquisa em uma caixa de listagem Empty [Resolvido]Pesquisa em uma caixa de listagem

    Mensagem  Almeidar em 16/4/2019, 18:55

    Olá meu amigos!
    Estou aqui tentando fazer uma pesquisa em uma caixa de listagem. Vi um vídeo de como fazer, fiz tudo como acho que deveria, eu abro o formulário e aparece lá os registro, quando vou no campo de busca e começo a digitar os registro somem. Teria digitado algo de errado nessas linhas ?


    Campobusca: [id_membro] & "" & [nome] & "" & [dtnascimento] & "" & [cel:]

    Como [forms]![frm_busca].[txtbusca] & "*"

    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 404
    Registrado : 05/12/2016

    [Resolvido]Pesquisa em uma caixa de listagem Empty Re: [Resolvido]Pesquisa em uma caixa de listagem

    Mensagem  caiosouza em 17/4/2019, 11:32

    Bom dia, sugiro que faça a filtragem via VBA.
    Algo do tipo:

    No evento "Ao apertar tecla":

    Código:
        If KeyCode = 13 Then
            Dim strTextBox As String
            strTextBox = Me.tbPesquisa.Text
            Me.SubForm.Form.Filter = "[Campo1] Like '*" & StrConv(strTextBox, 2, 1042) & "*' OR [Campo2] Like '*" & _
            StrConv(strTextBox, 2, 1042) & "*' OR [Campo3] Like '*" & StrConv(strTextBox, 2, 1042) & "*'"
            Me.SubForm.Form.FilterOn = True
            KeyCode = 0
        End If

    Onde o Me.SubForm.Form.Filter pode ser trocado por Me.Filter, caso seus dados não estejam em um subform.


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 11/12/2017

    [Resolvido]Pesquisa em uma caixa de listagem Empty Re: [Resolvido]Pesquisa em uma caixa de listagem

    Mensagem  Ismael Silva em 17/4/2019, 11:36

    Só pra acompanhar este tópico!
    Almeidar
    Almeidar
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 307
    Registrado : 03/03/2015

    [Resolvido]Pesquisa em uma caixa de listagem Empty Re: [Resolvido]Pesquisa em uma caixa de listagem

    Mensagem  Almeidar em 17/4/2019, 12:23

    Bom dia Caio, não entendo de vba por isso estou meio perdido com a sua orientação. Eu gostaria de quando escolhe-se o registro clicar nele e abrir o meu formulário de cadastro com o registro selecionado na caixa de listagem.

    Tentei entender o código que me mandou, e mudar para me atender, sem sucesso.

    Olá, o que eu gostaria de fazer nesta caixa de listagem é fazer a busca do registro nas 4 colunas. Gostaria de fazer a busca por ID, NOME,DTNASCIMENTO OU TELEFONE. Achando o registro desejado, clicando nele abriria o formulário de cadastro. Vendo uma aula eu concatenei as colunas e com isso eu consigo busca o registro somente pelas inicias da coluna concatenada.Quando tento digitar o nome todos os registro se apagam.


    Olá meu amigos, essa questão de pesquisa consegui resolver, agora só preciso que ao achar o registro desejado eu clique nele e abra o formulário de cadastro com o respectivo registro.
    Almeidar
    Almeidar
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 307
    Registrado : 03/03/2015

    [Resolvido]Pesquisa em uma caixa de listagem Empty Re: [Resolvido]Pesquisa em uma caixa de listagem

    Mensagem  Almeidar em 17/4/2019, 15:39

    Achei aqui no foram
    esse código porem esta dando erro na segunda linha, erro de operador faltando

    Algum amigo pode me ajudar ?

    If Not IsNull(Me.listapesquisa) Then
    DoCmd.OpenForm "for_cadastro", , , "txtnome = " & Me!listapesquisa.Column(1)
    End If

    On Error GoTo Err_listapesquisa_Click

    If IsNull(Me.listapesquisa) Then

    MsgBox "Selecione um nome válido na lista", vbCritical, "Atenção"

    Else

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "for_cadastro"

    stLinkCriteria = "[ID_membro]=" & Me![listapesquisa]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

    End If

    Exit_listapesquisa_Click:
    Exit Sub

    Err_listapesquisa_Click:
    MsgBox Err.Description
    Resume Exit_listapesquisa_Click
    End Sub
    Almeidar
    Almeidar
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 307
    Registrado : 03/03/2015

    [Resolvido]Pesquisa em uma caixa de listagem Empty Re: [Resolvido]Pesquisa em uma caixa de listagem

    Mensagem  Almeidar em 17/4/2019, 15:59

    O código é do amigo Dilson, muito obrigado.
    Resolvido!

    Conteúdo patrocinado

    [Resolvido]Pesquisa em uma caixa de listagem Empty Re: [Resolvido]Pesquisa em uma caixa de listagem

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/6/2019, 09:44