如何禁止access主窗體右上角的退出按鈕？
用代碼使access主窗體上的“X”失效 

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

還有個最簡單的辦法，不管按鈕id，統(tǒng)統(tǒng)關(guān)掉

Private Sub closeAll() 

　　Const MF_BYCOMMAND = &H0& 
　　Dim hMenu As Long 
　　 
　　hMenu = GetSystemMenu(Application.hWndaccessApp, 0) 
　　
　　dim I as long
　　for I=-5000 to 0 
　　　　DeleteMenu hMenu, I, MF_BYCOMMAND 
　　next I
　　 
End Sub

(責(zé)任編輯：admin)

• ·API函數(shù)詳細解釋
• ·Access從剪切版里復(fù)制和粘貼數(shù)據(jù)
• ·Access利用api實現(xiàn)打開/關(guān)閉光驅(qū)
• ·應(yīng)用程序開機自動啟動（注冊表操作技巧
• ·Access VBA 判斷網(wǎng)絡(luò)是否連通的多種辦
• ·什么是ADP,了解ADP的優(yōu)缺點
• ·優(yōu)秀產(chǎn)品大全--通用票據(jù)打印軟件(新)
• ·[技巧分享]多條Shell語句執(zhí)行導(dǎo)致判斷
• ·在access中可以調(diào)用API函數(shù)GetFileInfo
• ·Access API集中營--增加臨時使用的字體
• ·API ShellExecute 功能說明及應(yīng)用示例
• ·在VB中使用API函數(shù)(什么是API? )
• ·API實現(xiàn)完美的圖片出現(xiàn)效果（轉(zhuǎn)）
• ·API 設(shè)置調(diào)整系統(tǒng)當(dāng)前時間
• ·如何檢測以及設(shè)置鍵盤狀態(tài)
• ·不關(guān)閉當(dāng)前數(shù)據(jù)庫COPY當(dāng)前數(shù)據(jù)庫