Imprimir página | Cerrar ventana

Aviso al no existir origen de tablas vinculadas

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=85544
Fecha de impresión: 31/Octubre/2020 a las 12:39


Tema: Aviso al no existir origen de tablas vinculadas
Publicado por: Ezel
Asunto: Aviso al no existir origen de tablas vinculadas
Fecha de publicación: 18/Octubre/2020 a las 01:25
Hola mis colegas. Estoy enfrascado en automatizar un procedimiento de importación desde otro fichero de Access, para el que he concebido una tabla vinculada a la otra base de datos (origen) y funciona mediante la ejecución de una consulta de datos anexados.
EL PROBLEMA: Quiero señalar en un cuadro de texto cuando no está presente el fichero origen de la tabla vinculada (por haber sido movido o borrado accidentalmente) con algo así como "No se reconoce el origen de los datos a importar", pero con las funciones que he probado solo obtengo #Error, incluso he probado con funciones de tratamiento de errores, sin resultados. Agradecería su ayuda en esta cuestión que me urge. Abrazos



Respuestas:
Publicado por: hipromark
Fecha de publicación: 18/Octubre/2020 a las 06:05
Según entiendo estas obteniendo los datos de una tabla vinculada, entonces, tal vez te funcione este pequeño truco:

Crea una consulta con la tabla origen (la tabla vinculada) y otra tabla cualquiera en tu base de datos destino.

En VBA, crea un procedimiento que lea esa consulta que has creado, y lo asigne a una variable, por ejemplo:

 la variable rst  la seteas  a = db.OpenRecordset("tu consulta")

 (Donde rst ha sido previamente declarado como DAO.recordset, claro)

 Y aquí viene el truco:

 if rst.EOF then

   Aquí pones tu MsBox anunciando que no se econtró la tabla

Else

 Ejecuta tu query de datos anexados

End if

Déjame saber si te funcionó.


Publicado por: rokoko
Fecha de publicación: 18/Octubre/2020 a las 12:58
Este es un ejemplo de Buho de 2004, creo que es exactamente lo que buscas. Adaptalo como tu quieras.
Lo que hace es verificar una tabla, si esta vinculada bien sigue el prodecimiento, si no te sale un formulario para revincular las tablas.

https://www.dropbox.com/s/crwz6dqo6l57k3t/revincula2004.rar?dl=0

Busca en google vincular o revincular tablas access, te saldra mucha informacion.....


Publicado por: Ezel
Fecha de publicación: 18/Octubre/2020 a las 13:02
Muchas Gracias amigo!!!!
Lo probaré aunque te confieso que mis conocimientos en VBA son aun limitados y tal vez vuelva a necesitar ayuda. Un abrazo


Publicado por: xavi
Fecha de publicación: 18/Octubre/2020 a las 22:42
Abrir un recordset sobre una tabla vinculada que no está dónde se espera produce un error por lo que nunca podrás evaluar el EOF. 
La manera que utilizo yo es parecida: abrir el recordset y controlar los errores 3024 (no se puedo encontrar el archivo) y 3044 (No es una ruta de acceso válida)

No lo recuerdo bien pero apostaría a que el ejemplo del Búho va en esa línea.

Un saludo


-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web



Imprimir página | Cerrar ventana