Access y VBA
Blog de Access y VBA del Buho


Inicio


Acerca de
Suscríbete al blog

Categorías
General [3] Sindicar categoría
Access con Codigo VBA [15] Sindicar categoría

Archivos
Septiembre 2005 [11]
Agosto 2005 [5]
Junio 2005 [2]

Sindicación (RSS)
Artículos
Comentarios

 


Ruta de las Tablas Vinculadas

Para saber desde código la ruta de las tablas vinculadas a una MDB concreta, se pueden implementar funciones que así nos lo muestren. Aquí van dos, una utilizando el objeto Tabledef de Dao y otra sacando esta información de la tabla del sistema MSysObjects, en concreto, de su campo Database.

Primer método DAO

Function RutaVInculacion() As String 

  Dim tbfSrc As DAO.TableDef 

  Dim NombreBase As String 

  Dim RutaBase As String 

  For Each tbfSrc In CurrentDb.TableDefs 

    If (tbfSrc.Connect <> "") Then    'esta es vinculada 

      NombreBase = Mid(tbfSrc.Connect, InStrRev(tbfSrc.Connect, "\") + 1) 

      MsgBox "Catón, el nombre de la base es: " & NombreBase 

      RutaBase = Replace(Mid(tbfSrc.Connect, InStrRev(tbfSrc.Connect, _

      "=") + 1), NombreBase,"") 

      MsgBox "Caton, la ruta es: " & RutaBase 

      'devolvemos la ruta 

      RutaVInculacion = RutaBase 

      Exit Function 

    End If 

  Next

End Function

Segundo Método

Function RutaVInculacion() As String 

  Dim PosibleRuta As String 

  PosibleRuta = Nz(DLookup("Database", "MSysObjects", _ 

                           "len([Database])<>0"), "")  

  If PosibleRuta <> "" Then 

    PosibleRuta = Replace(PosibleRuta, Mid(PosibleRuta, _ 

                  InStrRev(PosibleRuta, "\") + 1), "") 

    RutaVInculacion = PosibleRuta 

  End If

End Function

Por ErBuho - 5 de Septiembre, 2005, 1:20, Categoría: Access con Codigo VBA
Enlace Permanente | Referencias (0)




<<   Septiembre 2005    
LMMiJVSD
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30   

Enlaces
eGrupos
ZoomBlog

 

Blog alojado en ZoomBlog.com