Challenge with delete button

[3699wat]

I have a delete button on a form 9developed with the wizard) to delete a record. I have put in a message with the code showing like this

Private Sub Command74_Click()
On Error GoTo Err_Command74_Click

If MsgBox("Delete record?", vbYesNo, "Delete") = vbNo Then
Else

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

End If
Exit_Command74_Click:
Exit Sub

Err_Command74_Click:
MsgBox Err.Description
Resume Exit_Command74_Click

End Sub

1. The standard Access message are still showing up
2. The record only shows as deleted after closing / opening the form

 

[Rob.Mills]

You can eliminate the delete message by going into 'Options and unclicking the 'Confirm Deletes'.

To solve #2 you need to put a Me.Requery after all the commands.

 

[3699wat]

Under the Edit / Find tab I only see a section with
Confirm
record changes
document deletions
action queries

not confirm deletes
Do I use one of those????

 

[Oldsoftboss]

You need to turn the error messages off and then back on again

Private Sub Command74_Click()
On Error GoTo Err_Command74_Click

DoCmd.SetWarnings False

If MsgBox("Delete record?", vbYesNo, "Delete") = vbNo Then
Else

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

End If
Exit_Command74_Click:
Exit Sub

Err_Command74_Click:
MsgBox Err.Description
Resume Exit_Command74_Click

DoCmd.SetWarnings True
End Sub


HTH
Dave

 

[Rich]

Do MenuItem is now obsolete in access according to Microsoft, however they've forgotten to tell the Wizards, you should replace MenuItems with their RunCommand equivalents.

 

[Rob.Mills]

Sorry 3699wat. It is the Document Deletions box.

 

[R. Hicks]

Oldsoftboss has the correct approach ... but the "Warnings" are being turned On and Off at the wrong place in the code he posted. And you don't need the "Else" in the code the way it is written below.

Private Sub Command74_Click()
On Error GoTo Err_Command74_Click

If MsgBox("Delete record?", vbYesNo, "Delete") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
End If

Exit_Command74_Click:
Exit Sub

Err_Command74_Click:
MsgBox Err.Description
DoCmd.SetWarnings True
Resume Exit_Command74_Click

End Sub

RDH

 

[Oldsoftboss]

Sorry Rick - I should avoid too many late nights.
PS Dont forget to add the requery

Dave

 

[R. Hicks]

Well ... you are right Oldsoftboss .... a "Requery" should be thrown in there .......

...... maybe beween the two of us, we'll get something that works .... LOL

RDH

 

[3699wat]

Thank you all.
Everything works well now
Marcel