Advanced Search

Return to Snippet

Revision: 47862
at June 30, 2011 13:58 by jkupko
Updated Code 
Dim externalDB as Database
Dim tDef As TableDef
Set externalDB = OpenDatabase("C:\path\to\your\database.accdb")
For Each tDef In externalDB.TableDefs
	 If tDef.Connect <> "" Then
	 	 tDef.Connect = connectionString
                 tDef.RefreshLink
	 End If
Next tDef
externalDB.Close

Revision: 47861
at June 19, 2011 08:17 by jkupko
Updated Code 
Dim externalDB as Database
Dim tDef As TableDef
Set externalDB = OpenDatabase("C:\path\to\your\database.accdb")
For Each tDef In externalDB.TableDefs
	 If tDef.Connect <> "" Then
	 	 tDef.Connect = connectionString
	 End If
Next tDef
externalDB.Close

Revision: 47860
at June 17, 2011 15:03 by jkupko
Updated Code 
Dim externalDB as Database
Dim tDef As TableDef
Set externalDB = OpenDatabase("C:\path\to\your\database.accdb")
For Each tDef In externalDB.TableDefs
	 If tDef.Connect <> "" Then
	 	 tDef.Connect = connectionString
	 	 tDef.RefreshLink
	 End If
Next tDef
externalDB.Close

Revision: 47859
at June 17, 2011 14:40 by jkupko
Updated Code 
Dim externalDB as Database
Dim tDef As TableDef
Set externalDB = OpenDatabase("C:pathtoyourdatabase.accdb")
For Each tDef In externalDB.TableDefs
	 If tDef.Connect <> "" Then
	 	 tDef.Connect = connectionString
	 	 tDef.RefreshLink
	 End If
Next tDef
externalDB.Close

Revision: 47858
at June 17, 2011 14:37 by jkupko
Initial Code 
Dim externalDB as Database
Dim tDef As TableDef
Set externalDB = OpenDatabase("C:pathtoyourdatabase.accdb")
For Each tDef In externalDB.TableDefs
	 If tDef.Connect <> "" Then
	 	 tDef.Connect = connectionString
	 	 tDef.RefreshLink
	 End If
Next tDef
externalDB.Close
Initial URL 
http://blog.loxotech.com/?p=67
Initial Description 

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
Updating Linked Tables in Access 2007 via VBA: 4

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
VB.NET