** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Cargar Formulario por un registro especifico
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Cargar Formulario por un registro especifico

 Responder Responder
Autor
Mensaje
morbera Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 29/Mayo/2024
Localización: Madrid
Estado: Sin conexión
Puntos: 9
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita morbera Cita  ResponderRespuesta Enlace directo a este mensaje Tema: Cargar Formulario por un registro especifico
    Enviado: 20/Febrero/2025 a las 14:21
Buenos días.
quisiera saber si veis algún problema en el siguiente código

Private Sub Form_Load()
 ' Si el cuadro de texto está vacío (Null) o su contenido no es "revisado" 
 If IsNull(Me.cuadro_Estado) Or Me.cuadro_Estado.Value <> "revisado" Then 
 ' Aplica un filtro: muestra solo registros donde Estado NO sea "revisado" 
 Me.Filter = "[Estado] <> 'revisado'" 
 Me.FilterOn = True 
 Else 
 ' Si el cuadro de texto contiene "revisado", no se aplica filtro (o se quita el filtro) 
 Me.FilterOn = False 
 End If 
End Sub

Lo que quiero es que al cargar un formulario, lo haga por los registros que sean <> a "revisado". El valor lo toma de un cuadro de texto. El formulario extrae los datos de una consulta.

Muchas gracias
Un saludo
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14926
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita xavi Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 20/Febrero/2025 a las 14:53
Hola,

Ese código filtrará el formulario en función del primer valor que se cargue en el formulario.

Si lo que quieres es que, al abrir, muestre solo los "no-revisados", quita toda la parte del If.
Me.Filter = "[Estado]<>'revisado'"
Me.FilterOn = True

Si lo que quieres es filtrar el formulario en base al contenido de un cuadro de texto del propio formulario, entonces deberás utilizar otro evento: el AfterUpdate del cuadro de texto dónde escribes el estado.

Eso si te he entendido bien.

Un saludo

Xavi, un minyó de Terrassa

Mi web
Arriba
morbera Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 29/Mayo/2024
Localización: Madrid
Estado: Sin conexión
Puntos: 9
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita morbera Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 21/Febrero/2025 a las 09:46
Hola Xavi

Muchas gracias por tu respuesta.
Sigue sin funcionar del todo bien. Si que filtra por Estado<> a 'revisado' pero solo contempla un par de registros sin valor (nulos), y hay muchos más en la tabla.

Un saludo
Arriba
morbera Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 29/Mayo/2024
Localización: Madrid
Estado: Sin conexión
Puntos: 9
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita morbera Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 21/Febrero/2025 a las 09:57
Ya lo he resuelto.
 Con un OR en:

Me.Filter = "[Estado]<>'revisado'OR [Estado] IS NULL"
   Me.FilterOn = True


Muchas gracias
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14926
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita xavi Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 21/Febrero/2025 a las 09:57
Hola,

Sin ver datos es muy complicado dar respuestas pero me arriesgaré a sugerirte que revises que no tengas algo puesto en origen del registro que te esté ya limitando los registros.

Un saludo
Xavi, un minyó de Terrassa

Mi web
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable