July's Course of the Month is now available! Enroll to learn HTML5 and prepare for certification. It's free for Premium Members, Team Accounts, and Qualified Experts.
Private Function RefreshLinkedTables() As Boolean Dim db As Database Dim tdf As TableDef RefreshLinkedTables = True Set db = CurrentDb On Error GoTo ErrorHandler InitializeMinorProgressBar "Refreshing Tables", db.TableDefs.Count For Each tdf In db.TableDefs If Len(tdf.Connect) > 0 Then tdf.Connect = ";DATABASE=" & STR_APPLICATION_FOLDER_PATH & "IC_backend.mdb" tdf.RefreshLink End If IncrementMinorProgressBar Next Err.Clear On Error GoTo 0 db.Close Set db = Nothing Exit Function ErrorHandler: RefreshLinkedTables = False MsgBox "Back-end tables could not be refreshed." & vbNewLine & "Please notify an administrator immediately.", vbCritical + vbOKOnly, "Table Refresh Failure" End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.