Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat. The purpose of this eBook is to educate the reader about ransomware attacks.
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
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
21 Experts available now in Live!