Delete current record in form using input box confirmation (1 Viewer)

[robyholmes]

Hi

I would like to delete a record currently open in a form (With a filter on the current record if that matters)

I have used this code:

If InputBox("Type 'Delete' to delete the customer", "Delete Customer") = "Delete" Then
         DoCmd.RunCommand acCmdDeleteRecord
End If

But I get 'Command or action not available now'? Can you explain why?

Thanks
Rob Holmes

 

[HiTechCoach]

You need to select the current record before you can delete it.


Try something like:

Private Sub cmdDelete_Click()

  On Error GoTo Err_cmdDelete_Click

  DoCmd.SetWarnings False
  If MsgBox("Confirm deletion of the record?", vbQuestion + vbYesNo + vbDefaultButton2, "Delete?") = vbYes Then
    DoCmd.RunCommand [b]acCmdSelectRecord[/b]
    DoCmd.RunCommand acCmdDeleteRecord
  End If

Exit_cmdDelete_Click:

  DoCmd.SetWarnings True
  Exit Sub

Err_cmdDelete_Click:

  MsgBox Err.Description
  Resume Exit_cmdDelete_Click

End Sub

 

[robyholmes]

Thanks a lot, will get home tomorrow and give it a try. Thanks!