Option Compare Database
 
Public Const WS_MAXIMIZEBOX = &H10000
Public Const WS_MINIMIZEBOX = &H20000
Public Const GWL_STYLE As Long = (-16)
Public Const SWP_DRAWFRAME As Long = &H20
Public Const SWP_NOMOVE As Long = &H2
Public Const SWP_NOSIZE As Long = &H1
Public Const SWP_NOZORDER As Long = &H4
Public Const SWP_FLAGS As Long = SWP_NOZORDER Or _
             SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME
 
 
Public Declare Function GetWindowLong Lib "user32" _
       Alias "GetWindowLongA" (ByVal hWnd As Long, _
       ByVal nIndex As Long) As Long
 
Public Declare Function SetWindowLong Lib "user32" _
       Alias "SetWindowLongA" (ByVal hWnd As Long, _
       ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
 
Public 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
 
Public Function KillMaxMin()
 
    Dim style As Long
 
    'aktueller Access-Window-Style
    style = GetWindowLong(Application.hWndAccessApp, GWL_STYLE)
 
    'modifizieren des Access-Window-Styles
    style = style Xor WS_MAXIMIZEBOX
    style = style Xor WS_MINIMIZEBOX
 
    'neuen Style setzen und aktualisieren
    If style Then
        Call SetWindowLong(Application.hWndAccessApp, GWL_STYLE, style)
        Call SetWindowPos(Application.hWndAccessApp, 0, 0, 0, 0, 0, SWP_FLAGS)
    End If
 
End Function

KillMaxMin