Access - saber de que bd esta vinculada una tabla en access vb

'Francisco Javier Gacía Aguado

'Julio de 2002

'Bhuo

'paco@nemo.es

On Error GoTo Err_Salir

 'Ruta de tablas vinculadas

 Dim RutaVinculadas As String

 RutaVinculadas = RutaVinculacionBD

 If Len(RutaVinculadas) = 0 Then

  MsgBox "Esta MDB no tiene Tablas Vinculadas", vbInformation + vbOKOnly, "AVISO"

 Else

  MsgBox "La ruta de la MDB de tablas vinculadas es: " & Chr(13) & Chr(10) _

         & RutaVinculadas, vbInformation + vbOKOnly, "Información"

 End If

Exit_Salir:

    Exit Sub

Err_Salir:

     Errores Err.Number, " " & Me.Caption & "...[" & Me.Name & "]"

    Resume Exit_Salir

Function RutaVinculacionBD() As String

On Error GoTo Etiqueta_Error_Click

      Dim ObjetoTabla As DAO.TableDef

      Dim StrRuta As String

      For Each ObjetoTabla In CurrentDb.TableDefs

        If Len(ObjetoTabla.Connect) > 0 Then

         StrRuta = ObjetoTabla.Connect

         RutaVinculacionBD = Mid(StrRuta, InStrRev(StrRuta, "\") + 1)

         Exit Function

        End If

      Next ObjetoTabla

      RutaVinculacionBD = ""

Exit_Funcion:

 Exit Function

Etiqueta_Error_Click:

 MsgBox "Se ha producido el Error Nº: " & Err.Number & " ." & Err.Description, vbCritical + vbOKOnly, "Error de Datos"

 Resume Exit_Funcion

End Function