Access - vincular - cambiar la cadena de conexion

   
Vista:

vincular - cambiar la cadena de conexion

Publicado por luis (1 intervención) el 14/11/2013 13:03:20
alguien sabe como cambiar la cadena de conexion que vincula a las tablas, sin tener que localizar y comprobar el destino, simplemente cambiar la dadena de conxion

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim base As Database
    Dim tabla As TableDef
 
 Set base = CurrentDb()
 
    For Each tabla In base.TableDefs
 
                  If Left$(tabla.Name, 4) <> "MSys" Then
 
                       tabla.Connect = ";DATABASE=C:\Users\jluis\Desktop\ESTRUCT\2estruc.mdb"
 
                  End If
 
    Next tabla

esto no funciona
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder