Q: How to delete currently displayed record?

[mikeg8]

Dumb question no. 243: I have a form displayed which includes a command button to delete the current record. How do I delete the current record? Below is the code I have managed to get so far...

.
.
.
'Deletes the current specimen record (confirmation box)
Private Sub cmd_DeleteThisSpecimen_Click()
On Error GoTo Err_cmd_DeleteThisSpecimen_Click

Dim strPromptText As String, strTitleText As String

strPromptText = "Confirm delete this record?"
strTitleText = "Delete Record"

If MsgBox(strPromptText, vbOKCancel + vbExclamation, strTitleText) = vbOK Then
'delete the current record, somehow!
End If

Exit_cmd_DeleteThisSpecimen_Click:
Exit Sub

Err_cmd_DeleteThisSpecimen_Click:
MsgBox Err.Description
Resume Exit_cmd_DeleteThisSpecimen_Click

End Sub
.
.
.

The bit I'm stuck on is 'delete the current record, somehow!

Any ideas anybody?

Mike

ps Keep any reply simple - because I am!

 

[KenReay]

Hi

If MsgBox(strPromptText, vbOKCancel + vbExclamation, strTitleText) = vbOK Then
'delete the current record, somehow!
docmd.RunCommand acCmdDeleteRecord
End If


Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[zevw]

This is the simplest way

Private Sub DelRec_Click()
On Error GoTo Err_DelRec_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_DelRec_Click:
Exit Sub

Err_DelRec_Click:
MsgBox Err.Description
Resume Exit_DelRec_Click

End Sub

You can only run a Delete Query but lets keep it simple.

 

[willir]

You guys are fast!

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

8 deletes the record
6 select record (so you dont see a #Deleted message)

You can also use the Microsoft Access constants...

DoCmd.DoMenuItem acFormBar, acEditMenu, acDelete, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, acSelectRecord, , acMenuVer70

Other useful constants are...
1 acCut
2 acCopy
3 acPaste
4 acSaveRecord
5 acRefersh
9 acSelectAllRecords

 

[mikeg8]

KenReay, zevw and willir

Thanks for the replies, very helpful

Mike