如何禁用ACCESS本身的最大化和关闭按钮

rogertian

不想用户按ACCESS的关闭按钮(就是右上角的X)关闭程序.如何才能禁止使用它..谢谢.

paul16

看看这个：如何关闭主窗体的关闭按钮！

http://posesky.com/bbs/dispbbs.asp?BoardID=3&ID=196

rogertian

谢谢啊...

accchw

链接打不开

xyxj1974

在程序开始的窗体里加入：
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    ''恢复按钮的ID是：&HF120
　　Dim hMenu As Long
　　
　　hMenu = GetSystemMenu(Application.hWndaccessApp, 0)
　　
　　Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
　　
End Sub