急等：关闭主窗体时提示，找不到登陆窗体

snryga

登陆后隐藏的登陆窗体：
        Forms![登陆].Visible = False   '登陆后隐藏登陆窗体
        DoCmd.SelectObject acForm, "登陆", True

通过主窗上的“X”关闭时始终提示找不到登陆窗体，报错2450
Private Sub Form_Unload(Cancel As Integer)   
On Error Resume Next
  Dim ASC
     ASC = MsgBox("确定要退出系统吗？", vbQuestion + vbYesNo, "SQL server")
         If ASC = vbYes Then
            DoCmd.Quit acQuitSaveNone  
         ElseIf ASC = vbNo Then
           Cancel = True
         End If
End Sub

请问下是哪里的问题呢?我试着用关闭前先显示隐藏的登陆窗体，但仍报错。

admin

传附件吧，这个逻辑不太对。关闭主窗体跟登录窗体是什么关系？

snryga

谢谢admin，搞定了。在窗体中加载事项中引用了登陆名称，取消就行了。