text box don´t accept caracter space

[Tchelo]

in this code don´t accept caracter space on textbox Pesquisar:

Private Sub Pesquisar_Change()
Me.Pesquisar.AllowAutoCorrect = False
Dim filtro As String
filtro = "[ENDERECO] like '*" & Me.Pesquisar.Text & "*' Or [CNPJ] like '*" & Me.Pesquisar.Text & "*' or [IE] like '*" & Me.Pesquisar.Text & "*' or [IM] like '*" & Me.Pesquisar.Text & "*' or [TELEFONE] like '*" & Me.Pesquisar.Text & "*' or [CONTACORRENTE] like '*" & Me.Pesquisar.Text & "*' or [BANCOEAGENCIA] like '*" & Me.Pesquisar.Text & "*' or [RAZAOSOCIAL] like '*" & Me.Pesquisar.Text & "*' or REPRESENTANTE like '*" & Me.Pesquisar.Text & "*' or [CPF] like '*" & Me.Pesquisar.Text & "*' or [EMAIL] like '*" & Me.Pesquisar.Text & "*' or [VALIDADE] like '*" & Me.Pesquisar.Text & "*'"
Me.Form.filter = filtro
Me.Form.FilterOn = True
Me.Pesquisar.SelStart = Len(Me.Pesquisar.Text)


'Me.Pesquisar.SelStart = 255 'permite digitar mais de uma letra no textbox
End Sub

[moke123]

You need to add code to deal with the space key.

see this link... https://access-programs.com/ms-acces...h-as-you-type/

Private Sub txtSearch_Change()
If blnSpace = False Then
 Me.Requery
 Refresh
 txtSearch.SetFocus
 txtSearch.SelStart = Len(Me.txtSearch.Text)
End If
End Sub



Private Sub txtSearch_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
  blnSpace = True
Else
  blnSpace = False
End If
End Sub

[Tchelo]

Don´t work, it´s same way
Actual codes:

Private Sub Pesquisar_Change()
If blnSpace = False Then
Me.Requery
Refresh
Pesquisar.SetFocus
Pesquisar.SelStart = Len(Me.Pesquisar.Text)
End If


Me.Pesquisar.AllowAutoCorrect = False
Dim filtro As String
filtro = "[ENDERECO] like '*" & Me.Pesquisar.Text & "*' Or [CNPJ] like '*" & Me.Pesquisar.Text & "*' or [IE] like '*" & Me.Pesquisar.Text & "*' or [IM] like '*" & Me.Pesquisar.Text & "*' or [TELEFONE] like '*" & Me.Pesquisar.Text & "*' or [CONTACORRENTE] like '*" & Me.Pesquisar.Text & "*' or [BANCOEAGENCIA] like '*" & Me.Pesquisar.Text & "*' or [RAZAOSOCIAL] like '*" & Me.Pesquisar.Text & "*' or REPRESENTANTE like '*" & Me.Pesquisar.Text & "*' or [CPF] like '*" & Me.Pesquisar.Text & "*' or [EMAIL] like '*" & Me.Pesquisar.Text & "*' or [VALIDADE] like '*" & Me.Pesquisar.Text & "*'"
Me.Form.filter = filtro
Me.Form.FilterOn = True
Me.Pesquisar.SelStart = Len(Me.Pesquisar.Text)
'Me.Pesquisar.SelStart = 255 'permite digitar mais de uma letra no textbox
End Sub


Private Sub Pesquisar_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyAscii = 32 Then
blnSpace = True
Else
blnSpace = False
End If
End Sub

[Micron]

That code shouldn't even run
(KeyCode As Integer, Shift As Integer)

If KeyAscii = 32 Then

If you put break points at the start of change and keydown events and step through the code you might find that the change event doesn't run.

[CJ_London]

Think the issue is that by setting the filter the text box temporarily loses the focus - and in doing so strips off any trailing spaces.

Use debug.print len(Pesquisar.text) before and after the filteron line to test

[moke123]

Private Sub Pesquisar_KeyDown(KeyCode As Integer, Shift As Integer)

Private Sub txtSearch_KeyPress(KeyAscii As Integer)

Different events.

[Tchelo]

now event is correct (ok)


see the code when i type space, it´s exactly like CJ_London say "Think the issue is that by setting the filter the text box temporarily loses the focus - and in doing so strips off any trailing spaces."
but how to solve this ?:

Private Sub Pesquisar_Change()
MsgBox (Len(Pesquisar.Text)) 'HERE MSGBOX SHOW LEN IS 1
If blnSpace = False Then
'Me.Requery
'Refresh
Pesquisar.SetFocus
MsgBox (Len(Pesquisar.Text)) 'HERE MSGBOX SHOW LEN IS 1
Pesquisar.SelStart = Len(Me.Pesquisar.Text)
MsgBox (Len(Pesquisar.Text)) 'HERE MSGBOX SHOW LEN IS 1
End If


Me.Pesquisar.AllowAutoCorrect = False
Dim filtro As String
filtro = "[ENDERECO] like '*" & Me.Pesquisar.Text & "*' Or [CNPJ] like '*" & Me.Pesquisar.Text & "*' or [IE] like '*" & Me.Pesquisar.Text & "*' or [IM] like '*" & Me.Pesquisar.Text & "*' or [TELEFONE] like '*" & Me.Pesquisar.Text & "*' or [CONTACORRENTE] like '*" & Me.Pesquisar.Text & "*' or [BANCOEAGENCIA] like '*" & Me.Pesquisar.Text & "*' or [RAZAOSOCIAL] like '*" & Me.Pesquisar.Text & "*' or REPRESENTANTE like '*" & Me.Pesquisar.Text & "*' or [CPF] like '*" & Me.Pesquisar.Text & "*' or [EMAIL] like '*" & Me.Pesquisar.Text & "*' or [VALIDADE] like '*" & Me.Pesquisar.Text & "*'"
Me.Form.filter = filtro
MsgBox (Pesquisar.Text) ' HERE MSGBOX BRING NOTHING
MsgBox (Len(Pesquisar.Text)) 'HERE MSGBOX SHOW LEN IS 0
Me.Form.FilterOn = True
MsgBox (Len(Pesquisar.Text)) 'HERE MSGBOX SHOW LEN IS 0
Me.Pesquisar.SelStart = Len(Me.Pesquisar.Text)
End Sub

[moke123]

Works for me. See attached example.

try putting a debug.print after your filter string so you can see what it resolves to.

[Tchelo]

Don´t work. See my project.

[CJ_London]

would help if you disabled all the startup stuff, and clarified how we get to the problem - what do we type? where? do we click a button

[moke123]

First thing to do is add your declarations. You have none.

Option Compare Database
Option Explicit

"Private blnSpace As Boolean" needs to be in the forms module not a standard module as it is declared private.

I added a debug.print which produced this filter string

[ENDERECO] Like "*a*" or [CNPJ] like "*a*"
[ENDERECO] Like "*ab*" or [CNPJ] like "*ab*"
[ENDERECO] Like "*abc*" or [CNPJ] like "*abc*"
[ENDERECO] Like "*abcd*" or [CNPJ] like "*abcd*"
[ENDERECO] Like "*abcde*" or [CNPJ] like "*abcde*"
[ENDERECO] Like "*abcdef*" or [CNPJ] like "*abcdef*"
[ENDERECO] Like "*abcdefg*" or [CNPJ] like "*abcdefg*"

[Tchelo]

The problem was the declarations, now it work´s !!!!
Thanks a lot !!!!!
SOLVED !!!!!!!!!!