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.
Private Sub scmd8_Click() On Error GoTo err_handle Me.ProjectID.SetFocus If MsgBox("Are you sure you want to delete this record?", vbQuestion + vbYesNo, strAppName) = vbNo Then Exit Sub Else DoCmd.RunCommand acCmdDeleteRecord End If scmd8_ClickExit: Exit Sub err_handle: If Err.Number = 3200 Then MsgBox "Error: " & Err.Number & vbCrLf & Err.Description, vbExclamation, "frmProjects" End If Exit Sub 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.