My code wont work Why?

  • Thread starter Thread starter Tony Williams
  • Start date Start date
T

Tony Williams

I have this code behind a command button but it doesn't delete the record.
If vbNo = MsgBox("Are you sure you want to save this new record?", 4) Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
If vbYes = MsgBox("Do you want to input another record?", 4) Then
[DocNametxt].SetFocus
End If
DoCmd.Close

I've also tried
DoCmd.RunCommand acCmdDeleteRecord
But this didn't work either
Anyone help me with why?
TIA
Tony Williams
 
Tony Williams said:
I have this code behind a command button but it doesn't delete the record.
If vbNo = MsgBox("Are you sure you want to save this new record?", 4) Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
If vbYes = MsgBox("Do you want to input another record?", 4) Then
[DocNametxt].SetFocus
End If
DoCmd.Close

I've also tried
DoCmd.RunCommand acCmdDeleteRecord
But this didn't work either
Anyone help me with why?
TIA
Click to expand...

If it's a new record that has never been saved then it cannot be deleted
(it doesn't exist in the table yet). Instead you should issue a Me.Undo to
cancel the creation of the record in the first place.
 
Thanks Rick. Although it is a new record I am working on a form with two
subforms and as soon as the focus goes from the main form to the subform I
understand from the newsgroups (I am a newbie at VBA) that the record is
automatically saved so by the time the user clicks the close button it isn't
a new record so Me.Undo wont work. Does that make sense?
Tony

Rick Brandt said:
Tony Williams said:
I have this code behind a command button but it doesn't delete the record.
If vbNo = MsgBox("Are you sure you want to save this new record?", 4) Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
If vbYes = MsgBox("Do you want to input another record?", 4) Then
[DocNametxt].SetFocus
End If
DoCmd.Close

I've also tried
DoCmd.RunCommand acCmdDeleteRecord
But this didn't work either
Anyone help me with why?
TIA
Click to expand...

If it's a new record that has never been saved then it cannot be deleted
(it doesn't exist in the table yet). Instead you should issue a Me.Undo to
cancel the creation of the record in the first place.
Click to expand...
 
Tony Williams said:
Thanks Rick. Although it is a new record I am working on a form with two
subforms and as soon as the focus goes from the main form to the subform I
understand from the newsgroups (I am a newbie at VBA) that the record is
automatically saved so by the time the user clicks the close button it isn't
a new record so Me.Undo wont work. Does that make sense?
Tony
Click to expand...

I'm not sure then. You might try issuing a save first.

Me.Dirty = False

It's possible delete will fail any time the record is dirty, not just
before initial creation.
 
Thanks Rick I tried another way. I used the wizard to create a delete button
and then used that code to build what I wanted step by step. so far so good!
Thanks for your input
Tony
 
Back
Top