unload event "you canceled the previous operation" error 1

[Dophia]

Hi Everyone:

I have a form with a subform. If the user tries to close the form, without filling in the subform, I want a message to advise them of the empty subform. The problem is that when the user chooses to stay on the form, in answer to a message box, the following error pops up..."you canceled the previous operation". Can anyone help me to address this error and not have it pop up? The code on the unload event is:

Dim intResponse As Variant

If SubfrmAssessment_Details_Admission.Form.RecordsetClone.RecordCount = 0 Then
intResponse = MsgBox("Enter an Admission Assessment", vbYesNo, "Admission assessment is not done")

If intResponse = vbYes Then
DoCmd.CancelEvent
End If
End If

End Sub

Sophia

 

[dhookom]

Add error handling to trap and ignore the error. MZ-Tools has a great utility for adding the error handling (and lots of other stuff).

Duane
Hook'D on Access
MS Access MVP

 

[Dophia]

Duane: I looked at the website, but I am at a loss as to what I am supposed to use there. Can you be more specific?

Thanks for you help,
Sophia

 

[dhookom]

MZ Tools is an add-in that once installed allows you to easily enter the code to handle errors. You would download from

http://www.mztools.com/v3/download.aspx

and then install it.

The code written by the tool can be modified to ignore specific error numbers.

Duane
Hook'D on Access
MS Access MVP

 

[Dophia]

Duane: I installed the program, but it only gives me an "unload error", which I guess is not my problem. My problem is that the message "you canceled the previous operation" is displayed.

Is there any way to get rid of that message?

Help,
Sophia

 

[dhookom]

Post the full code from the event and someone can help you modify it to ignore the message.

Duane
Hook'D on Access
MS Access MVP

 

[Dophia]

I did post it in my initial question.

Sophia

 

[Remou]

I think Duane means that the message is probably not coming from the code you pasted, which by itself will exit cleanly.

http://lessthandot.com

 

[Dophia]

I'm not sure that I know what you mean. The only thing that I left out was the following, which is the first line.

Private Sub Form_Unload(Cancel As Integer)
Dim intResponse As Variant

If SubfrmAssessment_Details_Admission.Form.RecordsetClone.RecordCount = 0 Then
intResponse = MsgBox("Enter an Admission Assessment", vbYesNo, "Admission assessment is not done")

If intResponse = vbYes Then
DoCmd.CancelEvent
End If
End If

End Sub

Sophia

 

[Remou]

What happens when you step through the code? Which line gives the error message?

http://lessthandot.com

 

[PHV]

What happens if you replace this:
DoCmd.CancelEvent
with this ?
Cancel = True

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Dophia]

Thanks for the suggestion. Now I get the message "no current record".

Any other ideas?
Sophia

 

[dhookom]

I'm not sure why you are using the unload event. Have you considered moving the code to the On Close event?

Duane
Hook'D on Access
MS Access MVP

 

[Dophia]

I am using the unload event since the user can go to another record and then not be aware of the empty subform.

Sophia

 

[dhookom]

go to another record" and "unload"... is the On Current event triggered in the UnLoad event?

Duane
Hook'D on Access
MS Access MVP

 

[Dophia]

I just found the problem. I am using the "close" button on the form. If I use the "x" to close, there is no message. How can I use the "close" button and not get that message? Any suggestions?

Private Sub CloseForm_Click()
On Error GoTo Err_CloseForm_Click

DoCmd.SetWarnings False
DoCmd.Close

Exit_CloseForm_Click:
Exit Sub

Err_CloseForm_Click:
MsgBox Err.Description
Resume Exit_CloseForm_Click

End Sub

 

[dhookom]

That's where you would enter the error handling to ignore the specific error number:

Private Sub CloseForm_Click()
On Error GoTo Err_CloseForm_Click

DoCmd.SetWarnings False
    DoCmd.Close

Exit_CloseForm_Click:
    Exit Sub

Err_CloseForm_Click:

Select Case Err.Number
    Case 2501
        'ignore
    Case Else
        MsgBox Err.Description
End Select
Resume Exit_CloseForm_Click
    
End Sub

Duane
Hook'D on Access
MS Access MVP

 

[Dophia]

Thank you Duane! That works.

(The error number was 3021)
Sophia

 

[vbajock]

The command Docmd.close is not good form, IMO. You should specifically state what you want the code to close, as docmd.close will close whatever object has the focus. To explicity state the object use the command form:

Docmd.close acForm, Me.Name

Look at docmd.close in the Help file for a full explanation.

 

[Dophia]

Vbajock: I'll try that. Thanks for the tip.

Sophia