Office中国论坛/Access中国论坛

标题: 急等：关闭主窗体时提示，找不到登陆窗体 [打印本页]

作者: snryga 时间: 2022-5-18 21:42
标题: 急等：关闭主窗体时提示，找不到登陆窗体
本帖最后由 snryga 于 2022-5-18 21:47 编辑

登陆后隐藏的登陆窗体：
      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 时间: 2022-5-19 09:40
传附件吧，这个逻辑不太对。关闭主窗体跟登录窗体是什么关系？

作者: snryga 时间: 2022-5-19 20:40
谢谢admin，搞定了。在窗体中加载事项中引用了登陆名称，取消就行了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)