MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Consultas em uma Caixa de Texto, semelhante ao "Pesquisar" da parte inferior do formulário.

    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/11/2014

    [Resolvido]Consultas em uma Caixa de Texto, semelhante ao "Pesquisar" da parte inferior do formulário. Empty [Resolvido]Consultas em uma Caixa de Texto, semelhante ao "Pesquisar" da parte inferior do formulário.

    Mensagem  baldocchi em 29/2/2016, 15:58

    Gostaria de saber se alguém pode fornecer um exemplo de como pesquisar dados em um formulário do Access a partir de uma Caixa de Texto, semelhante ao item "Pesquisar" que fica na parte inferior do Formulário, ao lado dos botões de navegação de registros.

    Eu pesquisei no fórum mas não consegui localizar algo parecido com minha dúvida.

    Agradeço muito.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Consultas em uma Caixa de Texto, semelhante ao "Pesquisar" da parte inferior do formulário. Empty Re: [Resolvido]Consultas em uma Caixa de Texto, semelhante ao "Pesquisar" da parte inferior do formulário.

    Mensagem  JPaulo em 29/2/2016, 16:12



    .................................................................................
    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]Consultas em uma Caixa de Texto, semelhante ao "Pesquisar" da parte inferior do formulário. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Consultas em uma Caixa de Texto, semelhante ao "Pesquisar" da parte inferior do formulário. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Consultas em uma Caixa de Texto, semelhante ao "Pesquisar" da parte inferior do formulário. Folder_announce_new Instruções SQL como utilizar...
    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/11/2014

    [Resolvido]Consultas em uma Caixa de Texto, semelhante ao "Pesquisar" da parte inferior do formulário. Empty Uma dúvida

    Mensagem  baldocchi em 29/2/2016, 16:28

    JPaulo, muito obrigado pelo exemplo.

    Baixei e estou estudando.
    Tenho uma dúvida:
    If VarTecla = 1 Then
    VarTecla = 0
    Else
    Me.Recalc
    Me.txt_nome.SelStart = 255
    End If

    Esse comando Recalc é o comando que atualiza o formulário?
    Quando eu tentei fazer, eu criei uma query e me perdi. Agora, se eu entendi bem, o Formulário tem uma consulta como "dados" e esse comando recalc, é isso, certo?

    Desculpa incomodar, mas estou tentando aprender.

    Att
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Consultas em uma Caixa de Texto, semelhante ao "Pesquisar" da parte inferior do formulário. Empty Re: [Resolvido]Consultas em uma Caixa de Texto, semelhante ao "Pesquisar" da parte inferior do formulário.

    Mensagem  JPaulo em 1/3/2016, 09:33

    Respondi à sua mensagem privada.
    Passei para aqui a resposta para que algum usuário com a mesma duvida possa resolver.


    Ola;

    Está tudo bem feito, mas na função "LocalizaFacil" tem de invocar a sua consulta e não a tabela, por causa dos nomes dos campos do form estarem de acordo com a consulta;

    Private Sub LocalizaFacil()
    'By JPaulo ® Maximo Access
    'pode pesquisar por uma ou mais letras, e para devolver todos os
    'registro, basta digitar um asterisco * e bater Enter


    'se a caixa de texto estiver vazia, termina o processo de filtragem
    If Me.TxtLocaliza = "" Then Exit Sub

    Dim strSQL As String
    Dim strConta As Integer
    'coloca a tabela pretendida no sql
    strSQL = "SELECT * FROM C_end "


    .................................................................................
    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]Consultas em uma Caixa de Texto, semelhante ao "Pesquisar" da parte inferior do formulário. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Consultas em uma Caixa de Texto, semelhante ao "Pesquisar" da parte inferior do formulário. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Consultas em uma Caixa de Texto, semelhante ao "Pesquisar" da parte inferior do formulário. Folder_announce_new Instruções SQL como utilizar...
    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/11/2014

    [Resolvido]Consultas em uma Caixa de Texto, semelhante ao "Pesquisar" da parte inferior do formulário. Empty Re: [Resolvido]Consultas em uma Caixa de Texto, semelhante ao "Pesquisar" da parte inferior do formulário.

    Mensagem  baldocchi em 1/3/2019, 12:37

    tópico resolvido

      Data/hora atual: 21/10/2020, 10:46