You can't save record at this time error

[brian7268]

I have a form where I only want the user to be able to close the form and submit the form via buttons. I have disabled the menus, but I noticed a loop hole - some laptops will let the user close the form by pushing a quick button that I can't disable in access.

I have everything set up, but I just want to get rid of one annoying access window. After BeforeUpdate cancels the updating, a message comes up that says "You can't save the record at this time" and then asks the user if they still wish to close the database object. If the user selects yes, it eliminates the entries in the form, but won't close the form because the BeforeUnload event procedure won't let it close without the button.

Any help to resolve would be great. thanks!

 

[bob fitz]

What is the code in the BeforeUnload event that stops the form from closing.

 

[brian7268]

Private Sub Form_Unload(Cancel As Integer)
        MsgBox ("Use the control buttons to upload or close the form.")
        Cancel = True
 End Sub

 

[bob fitz]

Perhaps you could declare a boolean type variable in the declaration section of the form's module with somthing like:

Option Compare Database
Option Explicit
Private blnAllowClose As Boolean

Set value of this variable to True in the section of code that closes the form with:

blnAllowClose = True

Then change the code in the form's UnLoad event to:

Private Sub Form_Unload(Cancel As Integer)
  If blnAllowClose = false Then
     MsgBox ("Use the control buttons to upload or close the form.")
     Cancel = True
  End If
 End Sub