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 participantes

    Procura formulário atualização 1 letra

    avatar
    artifact
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 11/06/2013

    Procura formulário atualização 1 letra Empty Procura formulário atualização 1 letra

    Mensagem  artifact 30/11/2018, 12:58

    Bom dia

    Estou com um erro na pesquisa de caixa de texto em um formulário, ao usar o filtro em VBA está atualizando e aceitando apenas uma letra no campo

    Queria apenas que ao digitar automaticamente pesquisa conforme for escrevendo

    Ficaria muito grato se alguem puder verificar o que há de errado

    É um banco de dados que apenas fiz as estruturas das tabelas, e estou começando a ajustar a programação, nunca mexi com acess, mas parece ser muito fácil, somente n entendi o erro que está dando

    Segue em anexo o modelo do banco de dados

    Obrigado

    *OBS: está no formulário fContato, que carregas dadados da consulta qContatoTodos que obtem dados da tabela tCliente e tContato

    Código pesquisa:

    Código:
    Private Sub cxPesquisar_Change()
    Me.Filter = "nome like '*" & Me.cxPesquisar.Text & "*'"
    Me.FilterOn = True

    Dim filtro As String
    If Len(Me.cxPesquisar.Text & "") = 0 Then
        Me.Form.Filter = ""
        Me.Form.FilterOn = False
        Exit Sub
    Else
    filtro = "[nome] like '*" & Me.cxPesquisar.Text & "*'"
    Me.Form.Filter = filtro
    Me.Form.FilterOn = True
    End If
    End Sub
    Anexos
    Procura formulário atualização 1 letra Attachmentmodelo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (391 Kb) Baixado 9 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Procura formulário atualização 1 letra Empty Re: Procura formulário atualização 1 letra

    Mensagem  Alexandre Neves 1/12/2018, 11:42

    Bom dia
    Está a seleccionar o campo inteiro porque assim está escolhido nas opções do Access
    Para alterar vá a Ficheiro > Opções > Definições do Cliente > Comportamento ao entrar no campo e mude a escolha


    .................................................................................
    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

      Data/hora atual: 22/11/2024, 18:31