Se borra el espacio en blanco
Publicado por David (23 intervenciones) el 09/05/2017 09:40:21
Hola
Tengo un formulario para encontrar clientes en una tabla.
En el cuadro donde pongo el nombre a buscar ("CuadroBuscador") voy escribiendo el nombre y va apareciendo una lista de los clientes encontrados.
En el evento "Al cambiar", tengo escrito lo siguiente:
El problema es que cuando escribo un espacio en blanco (entre dos apellidos) se borra inmediatamente.
Por ejemplo, quiero buscar a ver si hay alguien llamado "García Pérez". Pues bien, cuando pongo el espacio para seguir con la P de Pérez, se me borra ese espacio y me quedaría: "GarcíaPérez". Una vez escrito, sí que puedo ir hacia atrás e insertar el espacio en blanco.
¿Alguien sabe alguna solución?
Gracias
Tengo un formulario para encontrar clientes en una tabla.
En el cuadro donde pongo el nombre a buscar ("CuadroBuscador") voy escribiendo el nombre y va apareciendo una lista de los clientes encontrados.
En el evento "Al cambiar", tengo escrito lo siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CuadroBuscador_Change()
Dim vTexto As String
vTexto = Nz(Me.CuadroBuscador.Text, "")
If vTexto = "" Then
Me.FilterOn = False
Else With Me
.Filter = "[Apellidos] LIKE '*" & vTexto & "*'"
.FilterOn = True
.CuadroBuscador.SetFocus
.CuadroBuscador.SelStart = Len(vTexto)
End With
End If
End Sub
El problema es que cuando escribo un espacio en blanco (entre dos apellidos) se borra inmediatamente.
Por ejemplo, quiero buscar a ver si hay alguien llamado "García Pérez". Pues bien, cuando pongo el espacio para seguir con la P de Pérez, se me borra ese espacio y me quedaría: "GarcíaPérez". Una vez escrito, sí que puedo ir hacia atrás e insertar el espacio en blanco.
¿Alguien sabe alguna solución?
Gracias
Valora esta pregunta
0