cloack
18 de Marzo del 2004

Me gustaria saber si alguien sabe como se puede vincular permanentemente desde un modulo de un Formulario una tabla de Access creada desde un SQL (no vale lo de ir a la ventana de la base de datos Archivo->Obtener datos externos->Vincular......) GRACIAS

Jes?enteo
18 de Marzo del 2004

Te mando esta rutina que te vendrá al pelo para eso que tu quieres hacer.
Un saludo.

Function VinculaTabla(db As Database, Alias As String, Origen As String, NombreTablaOrigen As String) as boolean

'// Esta función vincula una tabla de access a la base de datos db y devuelve true
'// si ha habido éxito
'// db = base de datos actual: currentdb
'// Alias= Nombre que va a tener la tabla vinculada en esta base de datos
'// Origen= ruta completa y nombre de la base de datos donde se encuentra la tabla a vincular
'// NombreTablaOrigen=Nombre de la tabla a vincular
Dim tdfVinculada As TableDef

On Error GoTo Problemas

Set tdfVinculada = db.CreateTableDef(Alias)
'// tdfVinculada.Connect = ";DATABASE=" & Origen
tdfVinculada.connect = Origen
tdfVinculada.SourceTableName = NombreTablaOrigen
db.TableDefs.Append tdfVinculada
'// VinculaTabla = "Tabla:-- " & Alias & "--- VINCULADA CON EXITO. "
vinculatabla = true
Exit Function

Problemas:
'MsgBox "Problemas al realizar la conexión."
'// VinculaTabla = "Tabla: " & Alias & " no vinculada; " & "Error: " & Err.Description
vinculatabla = false
Exit Function
End Function