Filtrar un recordset abierto

[xavi]

Palabras clave: DAO, recordset, filtrado, filter
Autor: ¿Ayuda de Microsoft?
Objetivo:
Utilizar un recordset previamente abierto como base de otro.

Método
Teniendo un recordset abierto, tener un segundo recordset dónde sólo se muestren los datos filtrados. Ejemplo:

Código: [Seleccionar]

    Dim rst As DAO.Recordset
    Dim rstFiltrado As DAO.Recordset
   

    Set rst = CurrentDb.OpenRecordset("SELECT * FROM unaTabla WHERE UnCampo = '" & unValor & "'")
    rst.Filter = "OtroCampo = 'otroValor'"
    Set rstFiltrado = rst.OpenRecordset
    ' Acciones
    rstFiltrado.Close
    Set rstFiltrado = Nothing