Un par de utilidades para trabajar con tablas vinculadas: comprobar y reconstruir los vínculos, y compactar la base de datos.

MDB para Access 97

Descargar aquí

Muchisimas gracias por tu ayuda, es mucho más de lo que necesitaba y esperaba.

salu2.

Cómo puedo compactar una base de datos utilizando alguna macro o codigo de vba?

Gracias, Este foro es estupendo

hola:

Como puedo cambiar la referencia de una tabla vinculada para que sea una referencia relativa al archivo en donde se encuentra la base de datos original

Responder: Originalmente publicado por Admin desde 28/Agosto/2002

---

Un par de utilidades para trabajar con tablas vinculadas: comprobar y reconstruir los vínculos, y compactar la base de datos.

MDB para Access 97

Descargar aquí

Por favor, ¿podrías decirme qué debo hacer si en mi base de datos tengo varias tablas vinculadas (unas 50) mas o menos, para que esta utilidad coja automaticamente todas las tablas vinculadas que tengo, las revincule y compacte y repare la base de datos automáticamente, sin tener que ponerlas una a una en el código?. Estoy trabajando con Access 97. Gracias.

---

Cuando ejecuto la función me sale un error con Space$-Lef$ no sabe el programa a qué hace función hace referencia, . Estoy utilizando Access 97, cómo puedo solucionarlo. GRACIAS

Function BrowseFolder(szDialogTit le As String) As String
Dim x As Long, bi As BROWSEINFO, dwIList As Long
Dim szPath As String, wPos As Integer
With bi
    .hOwner = hWndAccessApp
    .lpszTitle = szDialogTitle
    .ulFlags = BIF_RETURNONLYFSDIRS
End With
dwIList = SHBrowseForFolder(bi)
szPath = Space$(512)
x = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)
If x Then
    wPos = InStr(szPath, Chr(0))
    BrowseFolder = Left$(szPath, wPos - 1)
Else
    BrowseFolder = ""
End If
End Function

Con esta función me sale el sgte. error de compilación: Imposible encontrar el proyecto o bliblioteca al declarar la variable Dim Rs As Recordset
En otras ocaciones no he tenido problemas en este tipo de declaraciones no se qué pasa ahora.

Function comprueba_vinculos(tabla)
Dim Rs As Recordset, retval As String
On Error Resume Next
retval = path_vinculada(tabla)
Set Rs = CurrentDb.OpenRecordset(tabla)
If Err = 0 Then
    Set Rs = Nothing
    comprueba_vinculos = True
Else
    comprueba_vinculos = buscar_BDvinculada(Solonombre(retval))
End If
End Function

Disculpen tanta imolestia, pero en las referencias debo marcarlas todas o cuáles, no tengo mucho conocimiento en el tema?

O me pueden indicar dónde puedo documentarme más acerca del mismo.

GRACIAS.