Mondeca

Crear base de datos mdb temporal para tablas temporales en MS Access
En las aplicaciones que desarrollo con Access me encuentro que si utilizo el mdb actual para crear tablas temporales el tamañode archivo crece y crece aunque las tablas se borren (hasta que se realiza un compactado), por lo que es un problema ya que se ralentiza la carga de la aplicación y su funcionamiento.

Tengo algunosformularios cuyos datos pueden proceder de varias consultas y para evitar conflictos de escritura entre varios usuarios trabajo sobre una tabla temporal, permitiendo guardar los resultados y los cambiospor usuario.
También es útil utilizarlas para trabajar con matrices de datos; es más rápido y eficiente utilizar una tabla bien indexada que una matriz de datos en memoria.

Buscando que soluciónadoptar para crear tablas en un mdb externo me encontré con un artículo y código fuente que me resolvía la papeleta totalmente, por lo que antes que hacer la reingieniería del código utilizando la idea,como no iba a mejorarlo sustancialmente lo he utilizado haciendo pequeños cambios (cambios sobre el original con licencia CC):

Function BldTempTables() As Boolean
 '============================================================
  '  Programmer: DHookom
  '  Revision #: david.losadag - arroba - gmail.com
  ' Called From:
  '        Date: 7/5/01
  '  Parameters:
 '============================================================
    On Error GoTo BldTempTables_Err
    Dim strErrMsg As String 'For Error Handling

    'Dimensionar los objetos
    Dim dbThis As DAO.Database
    Dim dbTemp AsDAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Dim ndx As DAO.Index
    Dim rsStruct As DAO.Recordset   'La tabla struct
   
    'Dimensionar las variables
    Dim strFolder AsString         'El directorio de la aplicación principal
    Dim strThisDBName As String     'El nombre de este mdb
    Dim strTempDBName As String     'El nombre del mdb temporal (se creará en el mismo...