boas tenho um campo que pesquisa uma LisBox através de consulta onde pretendo que consulte ( Consulta ) tenho o seguinte critério :
Como [forms]![CONSULTA_DE_FORMACOES].[txtpesquisaFormacoes] & "*"
Sendo que o Código que tenho no campo onde digito é o seguinte :
Private Sub txtpesquisaFormacoes_Change()
If VarEspaco = 1 Then
VarEspaco = 0
Else
Me.Recalc
SendKeys "{F2}"
End If
End Sub
Pretendia poder dar espaço quando digito 2 nomes de pesquisa. Obrigado
Como [forms]![CONSULTA_DE_FORMACOES].[txtpesquisaFormacoes] & "*"
Sendo que o Código que tenho no campo onde digito é o seguinte :
Private Sub txtpesquisaFormacoes_Change()
If VarEspaco = 1 Then
VarEspaco = 0
Else
Me.Recalc
SendKeys "{F2}"
End If
End Sub
Pretendia poder dar espaço quando digito 2 nomes de pesquisa. Obrigado