FredixBlog

Usually we would just need to refresh the existing linked tables, but in some cases, it is necessary to create a linked table from scratch.
This is useful when linking a text file or Excel sheet which name changes over the time.

public sub ReconnectTable(sTable, sConnect)
Dim db as Database
Dim td As TableDef

on error goto Err_Reconnect
   Set db = currentdb()

on error resume next
' Delete the table
   db.TableDefs.Delete sTable
on error goto Err_Reconnect

' Create the table def.
   Set td = db.CreateTableDef(sTable)
' Connect the table
   td.Connect = ";DATABASE=" & sConnect & ";"
' Set the source table name
   td.SourceTableName = sTable
' Add the table def to the tabledefs collection
   db.TableDefs.Append td
' refresh the link
   td.RefreshLink

db.close

exit sub

Err_Reconnect:
   msgbox "Error while reconnecting table " & sTable & ": " & error$

end sub

• Gibson plus solide que Fender?
• Get Jet Connection String
• Display a counter and remaining time in a loop
• Truncate long path names
• How can I e-mail a file from Microsoft Access?
• Running total on a form
• Clear all line breaks
• Coordinates of the third point
• Message to log file
• Copy a file