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
esto no funciona
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.TableDefsIf 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
0