Tengo una consulta, guardada con un nombre, por ejemplo "Clientes Buenos"
Lo + normal del  mundo.

¿Es posible sacarle su codigo SQL?

es para abrir un recordset con sus datos, quizá hay otra forma menos
rebuscada.


RESPONDE BUHO
=============

Function SacaSqlConsulta()
 'function del Búho

    Dim NombreConsulta As String
    NombreConsulta = "consulta2"
    Dim dbsSRC As DAO.Database
    Set dbsSRC = CurrentDb
    Dim ColeccionQuerys As QueryDef
    On Error GoTo ControlERROR
    For Each ColeccionQuerys In dbsSRC.QueryDefs
         If ColeccionQuerys.Name = NombreConsulta Then
            MsgBox ColeccionQuerys.Sql
         End If
    Next
    On Error GoTo 0
    Exit Function
ControlERROR:
    Resume Next
End Function

Esta funcion puedes generalizarla, pasandola como parametro el nombre de la
consulta, mas o menos algo asi:
Function SacaSqlConsulta(NombreConsulta As String) as String
    Dim dbsSRC As DAO.Database
    Set dbsSRC = CurrentDb
    Dim ColeccionQuerys As QueryDef
    On Error GoTo ControlERROR
    For Each ColeccionQuerys In dbsSRC.QueryDefs
         If ColeccionQuerys.Name = NombreConsulta Then
            SacaSqlConsulta=ColeccionQuerys.Sql
            exit For
         End If
    Next
    On Error GoTo 0
    Exit Function
ControlERROR:
    Resume Next
End Function

Mas o menos...sintaxis sin revisar