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 CheckCopyTable() On Error Resume Next Dim acc As Access.Application Dim tbl As DAO.TableDef Dim strBackend_Path As String Dim db As Database Dim tdf As TableDef strBackend_Path = DB_Param("DB_ServerPath") & DB_Param("DB_BackendName") Set acc = New Access.Application acc.OpenCurrentDatabase (strBackend_Path) Set tbl = acc.CurrentDb.TableDefs("Commitment_Outlook_bak") If Err.Number <> 0 Then If Err.Number = 3265 Then Set db = OpenDatabase(strBackend_Path) db.TableDefs("Commitment_Outlook_new").Name = "Commitment_Outlook_bak" 'new to bak Else LogEvt "Error Number " & Err.Number & vbNewLine & Err.Description, vbExclamation, "CheckCopyTable Error (SB-123)", NOMSG End If End If acc.CloseCurrentDatabase Set acc = Nothing End Sub
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.