Jump to content
Sign in to follow this  
ferminote

Cuadro de busqueda desaparecido

Recommended Posts

Buenos dias.

Me ha desaparecido el cuadro de busqueda de la pestaña "SALIDAS"

En la pestaña "ENTRADA" existe un cuadro de busqueda

Private Sub Texto_Change()[/CODE]

Y en la pestaña "SALIDA" creo que deberia estar el

[CODE]Private Sub Texto2_Change()[/CODE]

Lo he intentado crear y asociar a la Sub Texto2, pero no consigo que busque como lo hace en la pestaña "ENTRADA"

Por otro lado creo que tendre que modificar en:

[CODE]Private Sub MultiPage1_Change()
If MultiPage1.Value = 0 Then
Texto.Visible = True
lTexto.Visible = True
Texto2.visible = False ------ AÑADIR
Orden_Change
End If
If MultiPage1.Value = 1 Then
Orden_Change
Texto.Visible = False
lTexto.Visible = False
Texto2.visible = True ------- AÑADIR
End If
End Sub[/CODE]

Gracias!

gestion4.rar

Share this post


Link to post
Share on other sites

Hola ferminote

Yo he añadido un texbox con nombre texto2 y lo he colocado justo encima del texbox texto1

Luego en el código he puesto lo siguiente:

Private Sub MultiPage1_Change()
If MultiPage1.Value = 0 Then
Texto.Visible = True
lTexto.Visible = True
Texto2.Visible = False
Orden_Change
End If
If MultiPage1.Value = 1 Then
Texto2.Visible = True
Texto.Visible = False
lTexto.Visible = True
Orden_Change
End If
End Sub[/CODE]

La funcionalidad de búsqueda del texbox Texto2 no se si tengas que revisar

pero en lo referente al textbox estria resuelto, abisame cualquier cosa.

Es interesante tu formulario, pero la funcionalidad no le veo que hacer

Share this post


Link to post
Share on other sites

OK. debe haber algo mal el TEXTO2_change,

lo que debe hacer es al empezar a escribir el nombre o telefono o numero de socio es marcar la linea que cuadre con los parametros de busqueda.

si nos situamos en la pestaña entrada y empezamos a biscar en TEXTO_CHANGE .... "AN", nos marca la linea de ANA, si buscamos "ANT" nos marca ANTONIO

gracias

Share this post


Link to post
Share on other sites

A ver, cuento progresos

he conseguido que me ordene el ambas pestañas "ENTRADA" y "SALIDA"

pero aun no consigo que la busqueda funcione en "SALIDA"

TEXTO_CHANGE funciona

TEXTO2_CHANGE no funciona

Private Sub Texto_Change()
On Error Resume Next

If MultiPage1.Value = 1 Then
Texto2_Change
Exit Sub
End If

Buscar = True
Nuevo_Click
Lista.ListIndex = -1
If Texto = "" Then
Buscar = False
Exit Sub
End If

If Lista.BoundColumn = 3 Then as1 = "*": as2 = "*"
If Lista.BoundColumn = 4 Then as2 = "*"

For x = 0 To Lista.ListCount - 1
If Textificar(UCase(Lista.List(x, Lista.BoundColumn - 1))) Like _
as1 & Textificar(UCase(Texto)) & as2 Then
Lista.ListIndex = x
Exit Sub
End If
Next
Buscar = False
End Sub

Private Sub Texto2_Change()
On Error Resume Next

Jaula.ListIndex = -1
If Texto = "" Then Exit Sub

If Jaula.BoundColumn = 2 Then as1 = "*": as2 = "*"
If Jaula.BoundColumn = 3 Then as2 = "*"
If Jaula.BoundColumn = 4 Then as1 = "*": as2 = "*"

For x = 0 To Lista.ListCount - 1
If UCase(Jaula.List(x, Lista.BoundColumn - 1)) Like as1 & UCase(Texto) & as2 Then
Jaula.ListIndex = x
Exit Sub
End If
Next
End Sub[/CODE]

alguna idea???

gestionbeta.rar

Share this post


Link to post
Share on other sites

Aqui sigo dandole vueltas y no consigo hacerlo funcionar.

Necesito que alguien me explique que hace exactamente BoundColumn, ya que tras leer varias paginas de informacion no me queda muy claro.

Aparte, creo que no me funciona porque la pestaña "SALIDAS" (multipage1) tiene habilitada la seleccion multiple de filas y aparece un checkbox en cada una de ellas. Creo que al ser así no me permite la busqueda . Es la unica diferencia que he encontrado con la busqueda de "Entradas"

Gracias por adelantado.

Share this post


Link to post
Share on other sites


Por partes, he modificado la búsqueda en SALIDAS, porqué estaba mal desde un principio. Ahora creo que funciona como debe.

En cuanto al tema de BoundColumn, en este formulario uso esta propiedad como una variable cualquiera que podía haber definido con Dim.

Ahora vamos a ver como funciona la propiedad BoundColumn.

Normalmente se usa conjuntamente con la propiedad TextColumn.

BoundColumn indica el nº de columna por el que queremos que nos realice la búsqueda en el control al cambiar la propiedad Value.

TextColumn indica el nº de columna cuyo valor será devuelto a la propiedad Value/Text una vez encontrado o seleccionado el elemento del control.

Cuando mueves un valor a la propiedad Value del listbox, si no existe, se produce un error. Si existe, la propiedad ListIndex toma el valor de la fila y se ejecuta el evento Change. No usar BoundColumn ni TextColumn con selección multiple o extendida.

Cuando mueves un valor a la propiedad Value del combobox, si no existe, la propiedad ListIndex se iguala a -1, tanto si existe como si no, se ejecuta el evento Change y/o Click, no lo recuerdo con exactitud.

Te subo un archivo con una demo.


BoundColumn.xls

Gestión Beta 20150916.xls

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png