Return to Snippet

Revision: 47854
at June 17, 2011 14:51 by jkupko


Updated Code
Dim tDef As TableDef
For Each tDef In CurrentDb.TableDefs
	 If tDef.Connect <> "" Then
		 tDef.Connect = connectionString
	 	 tDef.RefreshLink
	 End If
Next tDef

Revision: 47853
at June 17, 2011 14:24 by jkupko


Initial Code
Dim tDef As TableDef
For Each tDef In CurrentDb.TableDefs
	 If tDef.Connect &lt;&gt; &quot;&quot; Then
		 tDef.Connect = connectionString
	 	 tDef.RefreshLink
	 End If
Next tDef

Initial URL
http://blog.loxotech.com/?p=67

Initial Description

                                

Initial Title
Updating Linked Tables in Access 2007 via VBA

Initial Tags

                                

Initial Language
VB.NET