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 btnDelete_Click() On Error GoTo btnDelete_Click_Err On Error Resume Next DoCmd.GoToControl Screen.PreviousControl.Name Err.Clear If (Not Form.NewRecord) Then DoCmd.RunCommand acCmdDeleteRecord End If If (Form.NewRecord And Not Form.Dirty) Then Beep End If If (Form.NewRecord And Form.Dirty) Then DoCmd.RunCommand acCmdUndo End If ' If (MacroError <> 0) Then ' Beep Select Case MsgBox("You are about to delete this record., do you want to continue?", vbYesNo Or vbExclamation Or vbDefaultButton1, "Delete Record") Case vbYes Case vbNo End Select ' End If btnDelete_Click_Exit: Exit Sub btnDelete_Click_Err: MsgBox Error$ Resume btnDelete_Click_Exit End Sub
Join the community of 500,000 technology professionals and ask your questions.