Disable Access close button (1 Viewer)
- Thread starter bjsteyn
- Start date
Copy the following into a new module:
Then from your main forms on load event call it with:
Good luck John 
PS. Make sure you have a way to close/quit the database as GUUS2005 has showed in his sample or you will and up using task manager or right click close and not quiting the application correctly!
Code:
Option Compare Database
Option Explicit
Private Const GWL_EXSTYLE = (-20)
Private Const GWL_STYLE = (-16)
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SYSMENU = &H80000
Private Const HWND_TOP = 0
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) _
As Long
Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _
ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long
Sub HideAccessCloseButton()
Dim lngStyle As Long
lngStyle = GetWindowLong(hWndAccessApp, GWL_STYLE)
lngStyle = lngStyle And Not WS_SYSMENU
Call SetWindowLong(hWndAccessApp, GWL_STYLE, lngStyle)
Call SetWindowPos(hWndAccessApp, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_DRAWFRAME)
End Sub
Code:
'Call module to hide access application close button
HideAccessCloseButtonPS. Make sure you have a way to close/quit the database as GUUS2005 has showed in his sample or you will and up using task manager or right click close and not quiting the application correctly!
Last edited:
Somewhere might take me a while to find it though... usually only works when called so if not needed just ' out and restart the db window should be back
billgyrotech
Banned
- Local time
- Today, 13:14
- Joined
- Apr 18, 2013
- Messages
- 258
Just to let everyone know this code works with Access 2013.
If your database is form driven (and most are) then just put some code on the Form_Unload event. This will prevent anyone closing the main database screen or the form.
Just be warned that you may need to add some further code to stop the msgbox from showing on the occasions that you want to unload the form without user intervention.
Code:
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Are you sure you want to quit this application?", vbYesNo + vbQuestion, "Application Quit") = vbNo Then
Cancel = 1
End If
End SubJust be warned that you may need to add some further code to stop the msgbox from showing on the occasions that you want to unload the form without user intervention.
This is useful, but it quits when you click no as well. I tried Cancel = True but doesn't work either.
