Error al vincular una tabla de sql server desde access
Te comento que es primera vez que voy a mandar una aplicación a la red y me han pedido que la conexión a las tablas de SQLserver, sea automática, independiente del usuario que entre a la aplicación. ¿Mi primer duda es si es absolutamente necesario programar la conexión o basta con la vinculación que hice manualmente y no influye si entra uno u otro usuario? Hasta ahí no tengo problema, por que encontré un código y lo adapté para que se conectara cada vez que se entra, eso es en mi equipo, pero si trato de entrar desde los demás equipos no me reconoce los nombres de las tablas. Adjunto lo que tengo.
Public Function main()
Dim myDB As Dao.Database
Dim myTabledef As Dao.TableDef
Dim myTabledef2 As Dao.TableDef
On Error GoTo Err_handler
Set myDB = CurrentDb
Set myTabledef = myDB.CreateTableDef("dbo_Tabla Region1") 'tabla access
Set myTabledef2 = myDB.CreateTableDef("dbo_Tabla Region2") 'tabla access
DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.SetWarnings False
DoCmd.DeleteObject acTable, "dbo_Tabla Region1" 'tabla access
DoCmd.DeleteObject acTable, "dbo_Tabla Región2" 'tabla access
myTabledef.Connect = "odbc;driver={Sql Server};" & _
"DATABASE=adiracesql;SERVER=CLSANAMADI01;Trusted_Connection=Yes;DSN=opex;NO OBSTANTE=viewuser;PWD=viewpass;"
myTabledef2.Connect = "odbc;driver={Sql Server};" & _
"DATABASE=adiracesql;SERVER=CLSANAMADI01;Trusted_Connection=Yes;DSN=opex;NO OBSTANTE=viewuser;PWD=viewpass;"
myTabledef.SourceTableName = "dbo.OPEX Iquique" 'tabla server
myTabledef2.SourceTableName = "dbo.OPEX Santiago" 'tabla server
myDB.TableDefs.Append myTabledef
myDB.TableDefs.Append myTabledef2
MsgBox "Se ha conectado con éxito"
DoCmd.SetWarnings True
Exit Function
Err_handler:
MsgBox Err.Number & " - " & Err.Description
End Function