Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.
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
|Unbound TextBox: Change color when clicked||5||14|
|Converting from Access2K to A2016- can't figure out how to get forms displayed to look like floating popup froms without changing it to a popup.||15||36|
|Trying to open a report with a filter||2||17|
|Sql to Replace Folderpath string in MS Access Table field||7||20|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
10 Experts available now in Live!