Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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
|Remove Selected Values from Access Combobox||2||33|
|query error in former passthrough query||2||31|
|Limit number of characters returned to 999||9||31|
|Having 'UserName' as a field name - seems to be causing issues||9||23|