Error: DoMenuItem action was cancelled...

[breaker11]

Hi All,
I have a recurring error message that states "The DoMenuItem action was cancelled..." after I exit a new record. I am trying to save the record to a list, but can't without this error. Any suggestions as to a resolution are appreciated, here is the code I currently have for the exit command button:


Private Sub cmdExitNew_Click()
On Error GoTo Err_cmdExitNew_Click

Dim NewOwner As String

NewOwner = Forms!frmLogin!Login
MsgBox NewOwner
Me!TypeOwner = NewOwner

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.Close

Exit_cmdExitNew_Click:
Exit Sub

Err_cmdExitNew_Click:
MsgBox Err.Description
Resume Exit_cmdExitNew_Click

End Sub

Thanks again.

 

[Aivars]

Hi!

Apparently you canceled DoMenuItem action. BreakPoint command string

Err_cmdExitNew_Click:
MsgBox Err.Description

After programm will stop ask for error number on Immediate window:
?err.number
.XXXX
Include following in your codes:
Err_cmdExitNew_Click:
if err.number=XXXX then
resume Exit_cmdExitNew_Click
else
MsgBox Err.Description
end if

Aivars

 

[breaker11]

Aivars,
What does the "err.number = XXXX" do? What goes in the XXXX portion of the code? Thanks.

 

[Aivars]

It's error number.

Example:
?err.number 'Press <Enter>
2051

Aivars