The command or action isnt available now. In sub form from main form

[munkee]

All,

I am tyring to delete a record within a sub form if th main form is closed and the property of a check box has not been set to checked.

Within the sub form on close event I have the following:

Private Sub Form_Close()
If chkdidtheysaveit.Value = False Then
 
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdUndo
DoCmd.SetWarnings True
 
End If
 
End Sub

To ensure that there is actually a record there to undo using the dirty event I have:

Private Sub Form_Dirty(Cancel As Integer)
DoCmd.RunCommand acCmdSave
End Sub

But I keep coming up with the error that the command or action Undo is not available now. Any ideas I have this same procedure working correctly within a main form but I cant when trying to undo something within a sub form.

Thanks,

Chris

[munkee]

After doing some further reading I think im going to have to set up a delete query on my main forms close event.

I will set a checkbox in my subform table and programatically set this value to checked if someone clicks the submit button on the sub form. If they do not then it will remain unchecked.

When the main form unloads I will call the query which will use the ID number which links the main form to the subform and also the checkbox as criteria for deletions.

So if ID # 233 in main form and subform have any records with an unchecked value then delete them.


Does this sound feasable to everyone? I know it is very possible but is quite crude.

[munkee]

I have the simple delete query sorted now:

DELETE tblEmail.NCC_ID1, tblEmail.Sent
FROM tblEmail
WHERE (((tblEmail.Sent)=False));

However finding where I can place this is becoming the problem as I found I can not just simply call it within the on close of the main form since sub forms seem to be the last thing to deactivate?

[munkee]

Meh, Found it out all by myself in the end.

The recordset is unloaded near enough in the subforms close event:

Private Sub Form_Close()
DoCmd.OpenQuery ("qryDeleteEmails")
End Sub

Sorted.