Access y VBA - Crear tabla temporal de una consulta

Crear tabla temporal de una consulta

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86767
Fecha de impresión: 27/Marzo/2026 a las 04:08

Tema: Crear tabla temporal de una consulta

Publicado por: Azken
Asunto: Crear tabla temporal de una consulta
Fecha de publicación: 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