Update linked tables in access using vba

Posted on 2006-06-26
Medium Priority
Last Modified: 2008-01-09
I have a database with about 50 tables linked to a SQL Server catalog.  I have a catalog for each month using the following naming convention MTHYYYY.

To switch between catalogs I currently update my ODBC connection pointing to a new month then update all linked tables in my Access database using the "linked table manager" selecting "always prompt for new location".  The catalogs are secured usingSQL Server authenication and are the same for each catalog.

I would like to use VBA to update my linked tables and or point my ODBC connection to a new month allowing me to run queries across multiple months without have to change my ODBC connection and update all linked tables manually.  Also - it would be a bonus if other users / computers could connect to these tables w/o having to manually configure an ODBC connection.

Current Connection: DSN=Prime;APP=Microsoft Office 2003;WSID=SERVER;DATABASE=MTHYYYY;Network=ANON
Question by:rbcarver
  • 4
  • 3
LVL 54

Expert Comment

ID: 16987778
I use this code to relink tables to a backend in the same folder as the current frontend database:

Function fncRelink()
'function to relink tables to the "_be" database
'It's assumed that the "_be" database is in the same folder as the frontend !

Dim td As DAO.TableDef

For Each td In CurrentDb.TableDefs
  If Len(td.Connect) > 0 Then
     td.Connect = ";DATABASE=" & Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "\")) & Mid(td.Connect, InStrRev(td.Connect, "\") + 1)
  End If

MsgBox "Ready, tables relinked"

End Function

But you can ofcourse change the path part.


Author Comment

ID: 16987966
I changed the DATABASE="XYZ part to the database/catalog I was trying to connect to and received the following error:

Connection failed:
SQLState: '08004'
SQL Server Error: 4060
Server rejected the connectioN; Access to selected database has been denied

A window then popped up allowing me to point to the correct server / database but errors out.
LVL 54

Expert Comment

ID: 16988024
Hmm, does the build string look like the:
you need ?
Just use a breakpoint and ?td.Connect in the immediate window to findout the value before and after the assign statement.

Easily Design & Build Your Next Website

Squarespace’s all-in-one platform gives you everything you need to express yourself creatively online, whether it is with a domain, website, or online store. Get started with your free trial today, and when ready, take 10% off your first purchase with offer code 'EXPERTS'.


Author Comment

ID: 16988126
I am sorry but I do not follow.  The database I am connecting to is not in the same folder as the frontend - it is a SQL Server.  Could this have something to do with my error?
LVL 54

Expert Comment

ID: 16988178
The "working" td.Connect should be modified.
Thus my advise to check the present connection (e.g. in the queries properties popup form) and change the part that needs to be changed.
Can you show the string from a working linked table ? (Open the table in design mode and activate the properties)


Author Comment

ID: 16988238
This is it:

ODBC;DSN=Prime;APP=Microsoft Office 2003;WSID=ADMFIN;DATABASE=MTHYYYY;Network=ANON;TABLE=dbo._Codes
LVL 54

Accepted Solution

nico5038 earned 2000 total points
ID: 16988310
I would have expected:
ODBC;DSN=Prime;APP=Microsoft Office 2003;WSID=ADMFIN;DATABASE=062006;Network=ANON;TABLE=dbo._Codes
Thus needing an assign statement to create for the TABLE=dbo._Codes a connect string like:
td.Connect = "ODBC;DSN=Prime;APP=Microsoft Office 2003;WSID=ADMFIN;DATABASE=" & strMonthYear & ";Network=ANON;TABLE=dbo._Codes"

as you'll have multiple tables you can use a dynamic version like:
td.connect = "ODBC;DSN=Prime;APP=Microsoft Office 2003;WSID=ADMFIN;DATABASE=" & strMonthYear & ";Network=ANON;TABLE=" & right(td.connect,instrrev(td.connect,"=")+1)

This will add the MonthYear and place the table at the end.


Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

In a use case, a user needs to close an opened report by simply pressing the Escape (Esc) key. This can be done by adding macro code in Report_KeyPress or Report_KeyDown event.
If you need to implement application level security in an Access database application or other VBA code, I strongly encourage you to take advantage of Active Directory groups.
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.
Look below the covers at a subform control , and the form that is inside it. Explore properties and see how easy it is to aggregate, get statistics, and synchronize results for your data. A Microsoft Access subform is used to show relevant calcul…

607 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question