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


3 participantes

    Pesquisar dados numa lista ao digitar os em uma edit text

    Elis Angel
    Elis Angel
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 2
    Registrado : 14/06/2016

    Pesquisar dados numa lista ao digitar os em uma edit text Empty Pesquisar dados numa lista ao digitar os em uma edit text

    Mensagem  Elis Angel 28/12/2016, 06:03

    Olá Pessoal ajudem-me com urgência por favaor!!!! pale pale pale

    Estou criando uma BD de gestão escolar, e eu tenho uma tela que contêm um lista de alunos e uma Edit text, que quando começo a digitar ela filtra os resultados na lista, só que após inserir mais de dois caracteres ela dá um erro, vou colocar aqui o código que estou utlizando

    Private Sub txtPesquisarNome_Change()

    'Cria uma váriável do tipo String
    Dim vSearchString As String

    'Preenche a variável com o texto digitado na txtPesquisarNome
    vSearchString = txtPesquisarNome.Text

    'Pass the value contained in the string variable to the hidden text box SrchText,
    'that is used as the sear4ch criteria for the Query QRY_SearchAll
    SrchText.Value = vSearchString

    'Requery the List Box to show the latest results for the text entered in Text Box SearchFor
    Me.listAluno.Requery


    'Tests for a trailing space and exits the sub routine at this point
    'so as to preserve the trailing space, which would be lost if focus was shifted from Text Box SearchFor
    If Len(Me.SrchText) <> 0 And InStr(Len(SrchText), SrchText, " ", vbTextCompare) Then
    Exit Sub
    End If

    'Set the focus on the first item in the list box
    Me.listAluno.SetFocus
    Me.listAluno = Me.listAluno.ItemData(1)

    'Requery the form to refresh the content of any unbound text box that might be feeding off the record source of the List Box
    DoCmd.Requery

    'Returns the cursor to the the end of the text in Text Box SearchFor
    Me.txtPesquisarNome.SetFocus

    If Not IsNull(Len(Me.txtPesquisarNome)) Then
    Me.txtPesquisarNome.SelStart = Len(Me.txtPesquisarNome)
    End If

    End Sub
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Pesquisar dados numa lista ao digitar os em uma edit text Empty Re: Pesquisar dados numa lista ao digitar os em uma edit text

    Mensagem  FabioPaes 28/12/2016, 16:56

    Posta aqui o seu aplicativo somente com as partes envolvidas para facilitar o entendimento...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Administrador
    Administrador
    Administrador
    Administrador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 432
    Registrado : 02/11/2009

    Pesquisar dados numa lista ao digitar os em uma edit text Empty Re: Pesquisar dados numa lista ao digitar os em uma edit text

    Mensagem  Administrador 29/12/2016, 09:36

    REGRAS DO FÓRUM

    1. Tenha paciência com quem coloca aqui as suas duvidas.
    2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
    3. Não colocar diversas vezes a mesma dúvida.
    4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
    5. Retorne sempre se deu certo, esse retorno é muito importante.
    6. Respeite toda a equipe Staff e demais membros deste fórum.
    7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
    8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
    9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
    10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
    11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
    12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
    13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
    14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks").
    15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.


    .................................................................................
    Admin

    Conteúdo patrocinado


    Pesquisar dados numa lista ao digitar os em uma edit text Empty Re: Pesquisar dados numa lista ao digitar os em uma edit text

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 02:15