Filtros en formularios

Hola buen día, tengo un formulario con 5 cuadros independientes que al escribir sobre alguno de ellos, filtra en un subformulario lo escrito en ese cuadro, pero al borrar lo que se escribió me debería quitar el filtro y no lo hace, me aparece en los botones de desplazamiento 1 de tantos (Filtado). Como puedo hacer para que al momento de borrar el contenido en cualquiera de estos cuados, no me aparezca (filtrado)

1 respuesta

Respuesta
1
Una opción seria usar el evento al perder el enfoque de estas cajas de texto y ejecutar la instrucción para quitar el filtro
Private sub CajaDeText_LostFocus()
if trim(me.CajaDeText) = "" then me.filteron=false
end sub
Para cada uno de los objetos
Hola buen día, ya incorpore este evento en cada cuadro de texto y no funciono, el evento que se encuentra para activar los filtros, esta en después de actualizar y es el siguiente:
Private Sub F1_AfterUpdate()
Me.SubFormFiltros.Form.FilterOn = False
If IsNull(F1) = True Or Me.F1 = "" Then Me.F1 = "*"
If IsNull(F2) = True Or Me.F2 = "" Then Me.F2 = "*"
If IsNull(F3) = True Or Me.F3 = "" Then Me.F3 = "*"
If IsNull(F4) = True Or Me.F4 = "" Then Me.F4 = "*"
If IsNull(F5) = True Or Me.F5 = "" Then Me.F5 = "*"
Me.SubFormFiltros.Form.FilterOn = True
If Me.F1 = "*" Then
Me.F1 = ""
End If
If Me.F2 = "*" Then
Me.F2 = ""
End If
If Me.F3 = "*" Then
Me.F3 = ""
End If
If Me.F4 = "*" Then
Me.F4 = ""
End If
If Me.F5 = "*" Then
Me.F5 = ""
End If
End Sub
donde F1,F2,F3,F4 Y F5 son los nombres de cada cuadro de texto y este evento esta en cada cuadro de texto dependiendo del nombre del cuadro, estara bien?? si es asi, como se podria realizar para desactivar los filtros en el formulario
Para quitar el filtro filteron debe quedar en false, entonces el procedimiento podría ser el siguiente, para que si cualquier F este en blanco quite el filtro
Private Sub F1_AfterUpdate()
Me.SubFormFiltros.Form.FilterOn = False
dim sw as boolean
sw=true
If trim(F1 & "") = "" Then sw=false 'Otra forma de validar
If IsNull(F2) = True Or Me.F2 = "" Then sw=false
If IsNull(F3) = True Or Me.F3 = "" Then sw=false
If IsNull(F4) = True Or Me.F4 = "" Then sw=false
If IsNull(F5) = True Or Me.F5 = "" Then sw=false
if sw then Me.SubFormFiltros.Form.FilterOn = True
...
End Sub
Este evento se coloca antes o después del que te envíe
Prueba, en vez de...
Hola buen día, mira soy novato en esto del access, he intentado hacerlo por lado y lado pero no me funciona adecuadamente, no se activa el filtro y la verdad no se por donde más hacerle
Volvamos al principio, a partir del procedimiento que ya te funciona, haré unas modificaciones que no deberían afectar el estado actual
Private Sub F1_AfterUpdate()
dim sw as integer
sw=0
Me.SubFormFiltros.Form.FilterOn = False
If IsNull(F1) = True Or Me.F1 = "" Then Me.F1 = "*": sw=sw + 1
If IsNull(F2) = True Or Me.F2 = "" Then Me.F2 = "*": sw=sw + 1
If IsNull(F3) = True Or Me.F3 = "" Then Me.F3 = "*": sw=sw + 1
If IsNull(F4) = True Or Me.F4 = "" Then Me.F4 = "*": sw=sw + 1
If IsNull(F5) = True Or Me.F5 = "" Then Me.F5 = "*": sw=sw + 1
if sw<5 tren Me.SubFormFiltros.Form.FilterOn = True
If Me.F1 = "*" Then
Me.F1 = ""
End If
If Me.F2 = "*" Then
Me.F2 = ""
End If
If Me.F3 = "*" Then
Me.F3 = ""
End If
If Me.F4 = "*" Then
Me.F4 = ""
End If
If Me.F5 = "*" Then
Me.F5 = ""
End If
End Sub
if sw<5 tren
hace que se se quite el filtro solo si todos estan en blanco
para que se quite el filtro se alguno esta en blanco tendrias que cambiar solo esa linea
if sw=0 tren ...
Sin embargo, no veo en tu procedimiento donde le pasas los criterios del filtro, es decir una instrucción filter que tendría que ser más o menos así
Me.SubFormFiltros.Form.Filter "campo1=""" & me.f1 & """ and campo2= """ & me.f2 & """ and ......
Pero como dices que el procedimiento funciona, imagino que debe estar en otro evento

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Código VBA para crear un botón y guardar en PDF

Tengo un archivo word con 7 capturas, una en cada página (1-7), cual seria el código para crear un botón en la barra de herramientas de acceso rápido para convertir en PDF cada página. El resultado seria 7 pdf.
2 respuestas

Ejecutar la base de datos sin que se muestre el entorno de Access.

Ya he terminado mi base de datos. Ahora quiero abrirla pero que no se vea nada del entorno de Access, ni pestañas. Que el formulario de inicio se vea, por ejemplo, sobre la pantalla del escritorio. Alguien me da el paso a paso
2 respuestas

Generar tres números al azar para una rifa

1. Pregunta Estoy elaborando una aplicación de una rifa y necesito crear una función para llenar una tabla con 3 números generados al azar, ningún número se puede repetir en la tabla, si el vendedor tiene activo el campo juegacuatro se le asignarán...
3 respuestas

Intentando sumar campos moneda de totales en informe de Access.

Estoy tratando de sumar dos campos de sumas totales en un informe de Access y no lo logro. Creo que he agotado todas las variantes. La situación es la siguiente: El informe es para emitir una factura al cliente. A un cliente se les puede hacer mas de...
2 respuestas

Base de datos Access se bloquea al trabajar en simultaneo

En contexto tengo una base de datos donde se ingresan datos en un formulario y este a su vez tiene un subformulario. Al inicio solo era utilizada por un usuario. Pero ahora es usada por 4 usuarios más. Tengo una computadora principal donde tengo la...
3 respuestas

Añadir búsqueda al azar en formularios de Access

Tengo un archivo de Access que quiero modificar y actualizar para añadir nuevas preguntas a una base de datos. He visto que en el formulario hay una casilla como de verificación para seleccionar al azar las preguntas de toda la base de datos pero...
2 respuestas

Como puedo añadir registros desde un formulario de búsqueda a un subformulario de otro formulario de registros de artículos

Tengo un formulario [Entrada_almacen] con un subformulario [Subformulario entradas almacen] en el que quiero que se vallan añadiendo los registros; Código (es un campo calculado), Artículo (combobox, porque también lo puedo seleccionar y si lo hago...
2 respuestas

Suma continua aparece en todos los demás registros

Tengo 2 tablas relacionadas,,,,, la tabla 1 la uso con el formulario principal,,,, la segunda para un subformulario,,,,,, y tango una consulta basada en la tabla 2 Con consulta contiene los campos entrada salida saldo (saldo ya esta con su fórmula...
2 respuestas

Cantidad mayor y menor en campos calculados

Tengo un formulario principal con tres subformularios y cada uno con una serie de campos de tipo numero sin decimales, Campo 1, Campo 2, Campo 3... Todos tienen 1 campo calculado del totales, basado en la suma de todos los campos de cada formulario,...
2 respuestas

Botón búsqueda en formulario Access

Tengo diseñado un formulario sencillo para hacer registro de datos, al dar el botón guardar esta información se va a una tabla, hasta hay normal, pero 1. Esta información no se llena de una vez por ejemplo Se llena del orden de arriba hacia abajo...
5 respuestas