Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
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.
Sub ReLinkAllTablesFromMsSql() 'Returns all linked tables Dim tdf As TableDef, db As Database Set db = CurrentDb db.TableDefs.Refresh For Each tdf In db.TableDefs With tdf If Len(.Connect) > 0 Then If InStr(.Connect, "SQL Server") > 0 Then '.Attributes = DB_ATTACHSAVEPWD NewConnectionStringDatabase = Null NewConnectionStringDatabase = Left(Right(.Connect, Len(.Connect) - InStr(.Connect, "DATABASE=") - 8), Len(Right(.Connect, Len(.Connect) - InStr(.Connect, "DATABASE=") - 8)) - 1) NewConnectionStringDatabase = "ODBC;DRIVER=SQL Server;SERVER=SERVERNAMEHERE;Database=" & NewConnectionStringDatabase & ";Trusted_Connection=True;APP=2007 Microsoft Office system;" .Connect = NewConnectionStringDatabase .RefreshLink End If End If End With Next Set tdf = Nothing Set db = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Convert string date and select older than 30 days from today||2||41|
|Saving data on a subform when I close the form||12||30|
|Replacing an Access Error with a Custom Message||3||32|
|Open folder via explorer, but stop user from changing folder||6||17|