[Resolvido]Filtro não aceita espaços

colegas boa noite, estou fazendo uma pesquisa , e o filtro não está deixando eu dar espaços .
Option Compare Database
Dim TeclaDigitada
Private Sub campoDePesquisar_AfterUpdate()
listaConsultas.Requery
End Sub
Private Sub campoDePesquisar_Change()
Me.Recalc
Me.campoDePesquisar.SetFocus
SendKeys "{F2}"
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
TeclaDigitada = 1
End If
End Sub

Olá, retire o código abaixo e teste

Código:


Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
TeclaDigitada = 1
End If
End Sub


Abraço

Ele da espaços se eu retirar os 2 codigos , mas ele não se atualizar ao digitar , somente quando eu der enter.

Código:

Private Sub campoDePesquisar_Change()
Me.Recalc
Me.campoDePesquisar.SetFocus
SendKeys "{F2}"
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
TeclaDigitada = 1
End If
End Sub

Olá, se pretende à medida que vai introduzindo.
Corte o código do evento "change"
E cole no evento ao primir a tecla do campoDePesquisar

Abraço

Não entendi teixeira

Olá,

O código que postou está no evento "ao alterar"

Se pretende quando prime uma tecla, tem que colocar o codigo no evento "ao primir a tecla"

Se ainda ficar com dúvidas dê uma espreitáveis no separador "eventos"
Qualquer coisa estamos cá para esclarecer.

Abraço

Como que eu fiz isso em um BD aqui que criei...
Vi um vídeo no youtube ensinando como se faz
Aqui está um exemplo.

o txt_usuario é o campo aonde digito, que ao alterar ele faz esse comando.
eu tive um problema relacionado ao SendKeys que ele iria a cada digitação alterando o NUM LOCK do meu teclado
e achei em um outro local a solução.

Código:

Private Sub txt_usuario_Change()

Option Compare Database
'Nomeando VarEspaco como uma variável
Dim VarEspaco

Private Sub Form_KeyPress(KeyAscii As Integer)
'nesse comando eu estou dando a condição aonde vai funcionar o VarEspaco, quando receber o KeyCode 32 (espaço)

If KeyAscii = 32 Then
VarEspaco = 1
End If


End Sub

Private Sub txt_usuario_Change()
'nesse comando é no campo aonde vou escrever, a cada alteração esse processo se repete

If VarEspaco = 1 Then
   VarEspaco = 0
    Else
        Me.Recalc
        Me.txt_usuario.SetFocus
        
'estava tendo problemas com o SendKeys de ficar ligando e desligando o num look, achei essa solução que funcionou corretamente

        Dim ws As Object
        Set ws = CreateObject("WScript.shell")
        ws.SendKeys "{f2}"
        
    End If
End Sub

Olá Alisson Mathias,

Obrigado pela partilha da sua experiência e código.
Ficamos aguardar o retorno do colega que abriu o tópico.

Abraço