Vayamos por partes: porque sigue sin funcionar aunque ahora ya lo entiendo.
esta es mi consulta guardada como
Cons Incidencia BusquedaAvanzada
Código:
SELECT Incidencias.id_incidencia AS idIncidencia, Administradores.nombre AS nombre, Sites.nombre AS site, Categorias.descripcion AS categoria, Incidencias.titulo, Incidencias.descripcion, IncidenciasUsuariosApp.fecha, Incidencias.fecha_creacion, Incidencias.fecha_finalizacion, Impactos.descripcion AS impacto, Prioridades.Descripción AS prioridad, [Incidencias Estados].descripcion AS estado, IncidenciasUsuariosApp.tarea
FROM Sites INNER JOIN (Prioridades INNER JOIN ((Impactos INNER JOIN ([Incidencias Estados] INNER JOIN (Categorias INNER JOIN Incidencias ON Categorias.id_categoria=Incidencias.id_categoria) ON [Incidencias Estados].id_estado=Incidencias.id_estado) ON Impactos.id_impacto=Incidencias.id_impacto) INNER JOIN (CategoriasAdministradores INNER JOIN (Administradores INNER JOIN IncidenciasUsuariosApp ON Administradores.id_administrador=IncidenciasUsuariosApp.id_administrador) ON CategoriasAdministradores.id_categoriaAdministrador=Administradores.id_categoriaAdministrador) ON Incidencias.id_incidencia=IncidenciasUsuariosApp.id_incidencia) ON Prioridades.id_prioridad=Incidencias.id_prioridad) ON Sites.id_site=Incidencias.id_site
ORDER BY Incidencias.id_incidencia, IncidenciasUsuariosApp.fecha DESC;
y esto es lo que hago en el evento onchange del textbox
Código:
Private Sub txtbxFilter_Change()
Dim querySELECT, queryFROM, queryWHERE, queryORDER, query As String
querySELECT = "SELECT *"
queryFROM = " FROM [Cons Incidencia BusquedaAvanzada]"
queryWHERE = " WHERE nombre LIKE '%" & Me.txtbxFilter.Text & "%' OR Incidencias.titulo LIKE '%" & Me.txtbxFilter.Text & "%' OR Incidencias.descripcion LIKE '%" & Me.txtbxFilter.Text & "%' OR IncidenciasUsuariosApp.tarea LIKE '%" & Me.txtbxFilter.Text & "%'"
queryORDER = " ORDER BY idIncidencia, IncidenciasUsuariosApp.fecha DESC"
query = querySELECT & queryFROM & queryWHERE & queryORDER
Me.Frm_Incidencias_BusquedaAvanzada.Form.RecordSource = query
End Sub
que me falla?
cuando escribo algo me vacía el contenido del subform y cuando dejo el textbox vacío , no me recarga el subform con todos los datos.
Gracias!