Form Message "Object is Locked"

[boliches]

I have a form within my database which On Open (event procedure) will make many calculations and enter the results in text boxes on the page of the form (I have 2 tabs on this particular form). My problem is that every time I close the form a warning message pops up saying:

"The object is locked, so any changes you make will be discarded when the form is closed"

I have looked at all of the properties of the form but cannot see any obvious problems. Strangely any changes I make are saved!! Can anyone advise on ways to resolve this issue as I do not want the message to keep popping up.

Many thanks

[missinglinq]

How are you closing the form, by using the X button in the top right hand corner, or do you have a custom button to do the job? If a custom button is used it wold be helpful to see the code.

[boliches]

If I close the form by using the "X" I get the message as mentioned. However if I close using my command button all is OK! The code for the close button is :

Private Sub cmdCloseFrm_Click()
On Error GoTo Err_cmdCloseFrm_Click
DoCmd.Close

Exit_cmdCloseFrm_Click:
Exit Sub

Err_cmdCloseFrm_Click:
MsgBox Err.Description
Resume Exit_cmdCloseFrm_Click

End Sub