Office中国论坛/Access中国论坛

标题: 怎样让一个窗体不关闭？ [打印本页]

作者: bjcompass 时间: 2011-5-25 10:35
标题: 怎样让一个窗体不关闭？
库登录后有一个控制面板窗体“freemain" ,许多操作按键都在这个窗体上。有时候这个窗体会意外关闭，此时只能通过菜单操作，很不方便。请问怎样让这个窗体在程序退出前一直可见。

作者: aslxt 时间: 2011-5-25 13:45
关闭该窗体前发出确认消息，如果用户确认了就关闭，顺便把数据库也关闭了，否则就取消关闭。
Private Sub Form_Unload(Cancel As Integer)

  If MsgBox("要退出吗", vbYesNo) = vbYes Then
DoCmd.Quit
  Else
Cancel = True
  End If
End Sub

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