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.
Public Sub Init() 'Called by OPEN FORM event On Error GoTo Check_Err Dim rs As DAO.Recordset Set dbCurrent = CurrentDb() ' First try to connect using SQL Native Client driver Native_Fail = False FMRdsn = "LCOG_FMR_ODBC_NATIVE" Set rs = dbCurrent.OpenRecordset(FMRdsn, dbOpenDynaset, dbSeeChanges) 'If driver unavailable, generates error 3151 Set rs = Nothing 'close recordset Exit Sub Native_No: ' If native driver unavailable, try to connect using MDAC ODBC driver FMRdsn = "LCOG_FMR_MDAC_ODBC" Set rs = dbCurrent.OpenRecordset(FMRdsn, dbOpenDynaset, dbSeeChanges) 'If driver unavailable, generates error 3151 Set rs = Nothing 'close recordset Exit Sub Check_Err: Select Case Err.Number Case 3151 'Unable to connect using an ODBC driver If FMRdsn = "LCOG_FMR_ODBC_NATIVE" Then Native_Fail = True 'Native Client didn't work, try MDAC Resume Native_No ElseIf Native_Fail Then 'Both MDAC and SQL Native Client ODBC driver connections failed. MsgBox ("Cannot connect to LCOG SQL database, check ODBC drivers - switching to local database"), _ vbOKOnly + vbCritical, "Cannot connect to LCOG SQL database (Error #" & Err.Number & ")" FMRdsn = "local_FMR" End If Case Else MsgBox Err.Description & " (" & Err.Number & ")", vbOKOnly + vbCritical, "Error" If Not IsAdmin Then Application.Quit End Select Set rs = Nothing 'close recordset End Sub
|Send Meeting Request from Shared Mailbox||3||59|
|What is the deference between OnClose Event of the Form and Close Macro Action set on the Event of a Button in the Form?||6||23|
|From msAccess find correct email account in outlook||6||29|
|MS Access - Create Multiple Records based on value in a table||4||14|