MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Caixa de texto para filtrar não aceita digitar espaço

    Compartilhe

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 16/11/2012

    [Resolvido]Caixa de texto para filtrar não aceita digitar espaço

    Mensagem  ilvecchio em Seg 26 Maio 2014, 14:20

    Buenas!
    Em um formulário, tenho uma caixa de texto onde digito o nome do cliente. À medida que digito, os clientes são filtrados no subformulário.
    Funciona até digitar espaço: ao digitá-lo, o cursor não avança.
    Ou seja, ao buscar por um único nome, tudo bem. Mas se preciso digitar um nome composto, não funciona.
    Filtra até João, mas se precisar João Maria, o access elimina o espaço, e fica JoãoMaria, aí, não encontra ninguém.

    O código é este:

    Private Sub DigitarCLIENTE_Change()
     If VarTecla = 1 Then
       VarTecla = 0
     Else
       Me.Recalc
       Me.DigitarCLIENTE.SelStart = 255
     End If

    End Sub

    tem este também, mas ao excluí-lo, nada altera:

    Private Sub Form_KeyPress(KeyAscii As Integer)

     If KeyAscii = 32 Then
       VarTecla = 1
     End If
    End Sub

    Alguém pode me ajudar a resolver isso?

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

    Re: [Resolvido]Caixa de texto para filtrar não aceita digitar espaço

    Mensagem  Silvio em Seg 26 Maio 2014, 15:05

    Bom dia...

    Normalmente eu utilizo uma Lstbox para realizar esse tipo de pesquisa e nunca tive tal problema, mesmo com espaços e não um subformulário.
    Sem contar que em:

    Private Sub DigitarCLIENTE_Change()

    está faltando uma parte do código.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

    Re: [Resolvido]Caixa de texto para filtrar não aceita digitar espaço

    Mensagem  Silvio em Seg 26 Maio 2014, 15:08

    Deixo aqui, uma pequena ideia do que seria o código dito na minha mensagem anterior...

    Private Sub pesquisa_Change()
    If VarTecla = 1 Then
    VarTecla = 0
    Else
    Me.lstcliente.RowSource = "SELECT idcliente, cliente,endereco, numero, bairro, cep, cidade, estado, fone, celular,CPF, CNPJ, marca, modelo,cor, placa,comb,potmotor FROM qryclienteveic WHERE cliente LIKE '*" & Me.pesquisa.Text & "*' ORDER BY cliente;"
    Me.Recalc
    Me.pesquisa.SelStart = 255
    End If
    End Sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 16/11/2012

    Re: [Resolvido]Caixa de texto para filtrar não aceita digitar espaço

    Mensagem  ilvecchio em Seg 26 Maio 2014, 18:12

    Resolvido!
    Como eu tenho um formulário em que esse procedimento funciona, fiz uma cópia e adaptei-o ao que eu preciso. Nele, eliminei todos os controles exceto a caixa de texto para digitar e acrescentei os demais campos que precisava.

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

    Re: [Resolvido]Caixa de texto para filtrar não aceita digitar espaço

    Mensagem  Silvio em Seg 26 Maio 2014, 18:20

    O Fórum agradece o retorno.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    wsenna
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 470
    Registrado : 22/12/2009

    Re: [Resolvido]Caixa de texto para filtrar não aceita digitar espaço

    Mensagem  wsenna em Ter 27 Maio 2014, 03:47

    Olá Amigos, boa noite.

    Se me permitem, é muito fácil resolver esse tipo de problema nas caixas de textos.
    Basta alterar a propriedade "Permitir AutoCorreção" na aba Outra para "Não".

    Abraços, WSenna

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Caixa de texto para filtrar não aceita digitar espaço

    Mensagem  Caio em Ter 01 Mar 2016, 19:45

    Boa tarde silvio, poque no meu não esta funcionando?

    tenho um formulário normal, onde tenho uma caixa de texto que pesquisa pela tarefa desejada, mais na hora de da o espaço não aceita o espaço.

    Meu código:

    Private Sub txt_tarefa_change()
    If VarTecla = 1 Then
    VarTecla = 0
    Else
    Me.(Caixa de listagem).RowSource = "SELECT ID, tarefa,entrada, prazo, Status, Responsáveis, Setor, Origem FROM (Consulta) WHERE Tarefa LIKE '*" & Me.txt_tarefa.Text & "*' ORDER BY tarefa;"
    Me.Recalc
    Me.txt_tarefa.SelStart = 255
    End If
    End Sub


    Tem algo de errado?

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

    Re: [Resolvido]Caixa de texto para filtrar não aceita digitar espaço

    Mensagem  Silvio em Ter 01 Mar 2016, 22:06

    Boa noite.

    Use o seguinte comando no evento atual do formulário em questão

    me.KeyPreview =True

    Outra coisa declarar a variável

    Option Compare Database
    Dim VarTecla

      Data/hora atual: Dom 04 Dez 2016, 14:11