Disable App Close Button

Question

Is there (an easy - wishful thinkful) way to disable the main access close button (x). I have a split db running on clients with the runtime edition of access but some of them are cowboys in that they close the app without obviously going through the right channels.

I have googled this subject but some of the code is simply not understandable or it's just too late at night for me ;)

Any help will be greatly appreciated...

Thank you!

Answer 1

See below:

'***************************************************************************************

' Source    : http://groups.google.com/group/comp.databases.ms-access/browse_frm/thread/5a02a27029c1fe95/4a1445b0712088ab

' Purpose   : Enable/Disable MS Access application Title bar controls (Min, Max, Close)

'***************************************************************************************

Option Compare Database

Private Declare Function GetWindowLong Lib "user32" _

                Alias "GetWindowLongA" _

                (ByVal hWnd As Long, _

                ByVal nIndex As Long) As Long

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 GetSystemMenu _

                Lib "user32" _

                (ByVal hWnd As Long, _

                ByVal bRevert As Long) As Long

Private Declare Function DrawMenuBar _

                Lib "user32" _

                (ByVal hWnd 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 Const MF_BYCOMMAND = &H0&

Private Const SC_CLOSE = &HF060

Private Const WS_SYSMENU = &H80000

Private Const WS_MAXIMIZEBOX = &H10000

Private Const WS_MINIMIZEBOX = &H20000

Private Const GWL_STYLE = (-16)

Public Function fActivateControlBox(Enable As Boolean)

Dim CurStyle As Long

Dim hWnd As Long

    hWnd = Access.hWndAccessApp

    CurStyle = GetWindowLong(hWnd, GWL_STYLE)

    If Enable Then

        If Not (CurStyle And WS_SYSMENU) Then

            CurStyle = CurStyle Or WS_SYSMENU

        End If

    Else

        If (CurStyle And WS_SYSMENU) = WS_SYSMENU Then

            CurStyle = CurStyle - WS_SYSMENU

        End If

    End If

    Call SetWindowLong(hWnd, GWL_STYLE, CurStyle)

    Call DrawMenuBar(hWnd)

End Function

Public Function fActivateCloseBox(Enable As Boolean)

Dim hMenu As Long

Dim hWnd As Long

    hWnd = Access.hWndAccessApp

    If Enable Then

        Call GetSystemMenu(hWnd, True)

    Else

        hMenu = GetSystemMenu(hWnd, False)

        If hMenu Then

            Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)

        End If

    End If

    Call DrawMenuBar(hWnd)

End Function

Public Function fActivateMaximizeBox(Enable As Boolean)

Dim CurStyle As Long

Dim hWnd As Long

    hWnd = Access.hWndAccessApp

    CurStyle = GetWindowLong(hWnd, GWL_STYLE)

    If Enable Then

        If Not (CurStyle And WS_MAXIMIZEBOX) Then

            CurStyle = CurStyle Or WS_MAXIMIZEBOX

        End If

    Else

        If (CurStyle And WS_MAXIMIZEBOX) = WS_MAXIMIZEBOX Then

            CurStyle = CurStyle - WS_MAXIMIZEBOX

        End If

    End If

    Call SetWindowLong(hWnd, GWL_STYLE, CurStyle)

    Call DrawMenuBar(hWnd)

End Function

Public Function fActivateMinimizeBox(Enable As Boolean)

Dim CurStyle As Long

Dim hWnd As Long

    hWnd = Access.hWndAccessApp

    CurStyle = GetWindowLong(hWnd, GWL_STYLE)

    If Enable Then

        If Not (CurStyle And WS_MINIMIZEBOX) Then

            CurStyle = CurStyle Or WS_MINIMIZEBOX

        End If

    Else

        If (CurStyle And WS_MINIMIZEBOX) = WS_MINIMIZEBOX Then

            CurStyle = CurStyle - WS_MINIMIZEBOX

        End If

    End If

    Call SetWindowLong(hWnd, GWL_STYLE, CurStyle)

    Call DrawMenuBar(hWnd)

End Function

Daniel Pineault - 2010 MVP

http://www.cardaconsultants.com

http://www.devhut.net

Answer 2

Works like a blud-e charm! Thank you! God is content again...

Answer 3

ok, i take back what i said earlier, i didn't understand where is was making these changes, so everything works. 

i do notice that when fActivateMinimizeBox (False) is run the minimize disappears from the group in the top right of the Access program "Min, Max, Close."( i don't know what to call it.)

how do you get the close to disappear?

Answer 4

not to thwart your efforts, and even though i have seem losts of discussion on the topic, the possible solutions offered are not very effective.  i would love a good one myself.  also, at the end of the day, alt+ctrl+delete and end process or unplug the computer, there will always be cowboys.