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

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

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

 Con un OR en:

Muchas gracias

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