** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Copiar filtro. Propiedas formulario>Datos>Filtro
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCopiar filtro. Propiedas formulario>Datos>Filtro

 Responder Responder
Autor
Mensaje
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Tema: Copiar filtro. Propiedas formulario>Datos>Filtro
    Enviado: 15/Mayo/2020 a las 09:24
Hola.
Una una que me a surgido y no se si se puede hacer o como hacerlo.
He creado un formulario en vista hoja de datos en access 2013. En ese formulario en cada campo el propio access deja aplicar una serie de filtros.
Una vez creado los filtros que que yo quiero, por ejemplo este, si vas a las propiedadesde formulario>Datos>Filtro sale esto  ((([qryTODO].[Parque] In ("Alsasua","Estella")))) AND ([qryTODO].[TipoRevision] In ("Calibracion","Estanqueidad","Membrana"))

Hay alguna forma mediante vba de copiar este filtro desde sus propiedades para poder aplicarlo a un informe??

Saludos
Arriba
Chea1 Ver desplegable
Moderador
Moderador


Unido: 20/Noviembre/2005
Localización: España
Estado: Sin conexión
Puntos: 4143
Enlace directo a este mensaje Enviado: 15/Mayo/2020 a las 09:29
Si no te he entendido mal, basta con abrir el informe con Docmd.OpenReport y pasarle el filtro en el argumento Where:

DoCmd.OpenReport "rptMiinformme", acViewPreview, , Me.Filter


Saludos
José Bengoechea Ibaceta
Mi página

Mi otra página
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Enviado: 15/Mayo/2020 a las 09:51
Por hay van los tiros si, me a resultado mas"facil" de lo esperado.

Lo he hecho asi

En el evento al cargar del formulario.
Me.Filter = Forms!Formulario1!frm_qryTODO.Form.Filter
Me.FilterOn = True

De tu forma tambien perfecto

Dim stDocName As String
Dim varFiltro As String
    
stDocName = "infProductosTODOS"
varFiltro = Forms!Formulario1!frm_qryTODO.Form.Filter
    

DoCmd.OpenReport stDocName, acPreview, , varFiltro



Se puede cerrar

Saludos y gracias
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable