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]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 : 136
    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?
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3698
    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.]
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3698
    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 : 136
    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.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3698
    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.]
    avatar
    wsenna
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    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
    avatar
    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?
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3698
    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: Ter 12 Dez 2017, 17:50