** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Aviso al no existir origen de tablas vinculadas
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Aviso al no existir origen de tablas vinculadas

 Responder Responder
Autor
Mensaje
Ezel Ver desplegable
Nuevo
Nuevo


Unido: 14/Agosto/2020
Localización: Cuba
Estado: Sin conexión
Puntos: 11
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Ezel Cita  ResponderRespuesta Enlace directo a este mensaje Tema: Aviso al no existir origen de tablas vinculadas
    Enviado: 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
Arriba
hipromark Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 18/Julio/2016
Localización: Caracas
Estado: Sin conexión
Puntos: 43
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita hipromark Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 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ó.
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 2674
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita rokoko Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 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.....


Editado por rokoko - 18/Octubre/2020 a las 12:59
Arriba
Ezel Ver desplegable
Nuevo
Nuevo


Unido: 14/Agosto/2020
Localización: Cuba
Estado: Sin conexión
Puntos: 11
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Ezel Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 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
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 13240
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita xavi Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 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

Mi web
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable