Crear tabla temporal de una consulta

   Hola a todos. Tengo el siguiente código
Public Sub CONSULTA_EXCEL() 
    Dim db As Database
    Dim miSQL As String
    Dim qry As QueryDef

    Set db = CurrentDb

    miSQL = SUMA
    Set qry = db.CreateQueryDef("CTemp", miSQL)
    Dim miRED As String
    RUTA_BASE_DATOS
    miRED = RUTA_BD & RUTA_ESPECIFICA & "\Archivos Excel\"
    If Dir(miRED, vbDirectory) = "" Then MkDir miRED
    DoCmd.OutputTo acOutputQuery, "CTemp", "*.xlsx", miRED & "Consulta" & ".xlsx", True   
    'DoCmd.OpenReport "INFORME_PRODUCCION", acViewReport, , SUMA2
    db.QueryDefs.Delete "CTemp" 'borra la consulta

End Sub

Este código (que funciona perfectamente) me crea un excel pero lo que quisiera es que, adicionalmente me creara una tabla temporal en mi base de datos

En algún sitio he visto este código

strSQL = "SELECT temporal.* INTO temporal IN 'D:\Base de Datos\concursosRed.accdb' FROM temporal"
DoCmd.DeleteObject acQuery, "tempQry"
Set qdf = CurrentDb.CreateQueryDef("tempQry", strSQL)
DoCmd. OpenQuery ("tempQry"), acViewNormal, acReadOnly

pero no sé cómo meterlo en mi código
¿Me podeis echar una mano?
Muchas gracias

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
Azken Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 13/Febrero/2017 Localización: Madrid Estado: Sin conexión Puntos: 133	Opciones de entrada Responder Cita Azken Informar de mensaje Gracias(0) Cita Respuesta Tema: Crear tabla temporal de una consulta Enviado: 06/Septiembre/2023 a las 14:02
	Hola a todos. Tengo el siguiente código Public Sub CONSULTA_EXCEL() Dim db As Database Dim miSQL As String Dim qry As QueryDef Set db = CurrentDb miSQL = SUMA Set qry = db.CreateQueryDef("CTemp", miSQL) Dim miRED As String RUTA_BASE_DATOS miRED = RUTA_BD & RUTA_ESPECIFICA & "\Archivos Excel\" If Dir(miRED, vbDirectory) = "" Then MkDir miRED DoCmd.OutputTo acOutputQuery, "CTemp", ".xlsx", miRED & "Consulta" & ".xlsx", True 'DoCmd.OpenReport "INFORME_PRODUCCION", acViewReport, , SUMA2 db.QueryDefs.Delete "CTemp" 'borra la consulta End Sub Este código (que funciona perfectamente) me crea un excel pero lo que quisiera es que, adicionalmente me creara una tabla temporal en mi base de datos En algún sitio he visto este código strSQL = "SELECT temporal. INTO temporal IN 'D:\Base de Datos\concursosRed.accdb' FROM temporal" DoCmd.DeleteObject acQuery, "tempQry" Set qdf = CurrentDb.CreateQueryDef("tempQry", strSQL) DoCmd. OpenQuery ("tempQry"), acViewNormal, acReadOnly pero no sé cómo meterlo en mi código ¿Me podeis echar una mano? Muchas gracias