使用代码压缩数据库后，退出时提示不可以，请老师指点解决办法

1.在用户登录窗体中的代码：

'隐藏主窗体的叉

Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Sub Form_Load()

   '隐藏主窗体的叉

    Const MF_BYCOMMAND = &H0&

    Const SC_CLOSE = &HF060

    Dim hMenu As Long

    hMenu = GetSystemMenu(Application.hWndAccessApp, 0)

    Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)

End Sub

''隐藏菜单栏

DoCmd.ShowToolbar "菜单栏", acToolbarNo

2.在退出窗体使用了压缩数据库的代码：

Private Sub Form_Close()

'压缩和修复数据库

CommandBars("Tools").Controls("数据库实用工具(&D)").Controls("压缩和修复数据库(&C)...").accDoDefaultAction

End Sub