Hey Everyone, 
Looking for some guidance on an issue I'm having in regards to a Linked ODBC table. I have linked the ODBC table and am looking to refresh the connection upon open of the database. I'm hoping to have this pop up as soon as it opens so the user will not have to log in at a later point in time in the process. The code works to a certain extent. It will refresh the linked table but than when I try to access the link table it asks for user password 3 additional times. Any thoughts? This is based on an AutoExec macro to run the code upon open.
Public Function RefreshTable()
Dim strLocalTableName As String
Dim strConnection As String
Dim daoTableDef As DAO.TableDef
Dim dbs As Variant
strLocalTable = "EDW_PROD_MTH_CUSTOMER"
strConnection = _
"ODBC;DSN=EDWPRO;APP=Microsoft Office Access 2010;DATABASE=EDWPRO;TABLE=EDW_PROD.MTH_CUSTOMER"
Set dbs = CurrentDb()
Set daoTableDef = dbs.TableDefs(strLocalTable)
daoTableDef.Connect = strConnection
daoTableDef.RefreshLink
Set daoTableDef = Nothing
End Function
Looking for some guidance on an issue I'm having in regards to a Linked ODBC table. I have linked the ODBC table and am looking to refresh the connection upon open of the database. I'm hoping to have this pop up as soon as it opens so the user will not have to log in at a later point in time in the process. The code works to a certain extent. It will refresh the linked table but than when I try to access the link table it asks for user password 3 additional times. Any thoughts? This is based on an AutoExec macro to run the code upon open.
Public Function RefreshTable()
Dim strLocalTableName As String
Dim strConnection As String
Dim daoTableDef As DAO.TableDef
Dim dbs As Variant
strLocalTable = "EDW_PROD_MTH_CUSTOMER"
strConnection = _
"ODBC;DSN=EDWPRO;APP=Microsoft Office Access 2010;DATABASE=EDWPRO;TABLE=EDW_PROD.MTH_CUSTOMER"
Set dbs = CurrentDb()
Set daoTableDef = dbs.TableDefs(strLocalTable)
daoTableDef.Connect = strConnection
daoTableDef.RefreshLink
Set daoTableDef = Nothing
End Function
