saya coba terapkan di database saya dan tidak ada error tetapi report tetap bisa diminimize.. apakah yg salah?
regards CW 2010/4/28 aksankurdin <[email protected]> > > > Saya bantu nyari, ketemu di sini: > > http://bytes.com/topic/access/answers/546461-disable-access-application-maximizebox > > pakenya di report: > > Private Sub Report_Open(Cancel As Integer) > Call fActivateControlBox(False, Me.Name) > End Sub > > berikut module lengkapnya: > > Option Compare Database > Option Explicit > > 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, strName As String) > > Dim CurStyle As Long > Dim hWnd As Long > > ' hWnd = Access.hWndAccessApp > > hWnd = Reports(strName).hWnd > > 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, strName As String) > Dim hMenu As Long > Dim hWnd As Long > > ' hWnd = Access.hWndAccessApp > hWnd = Reports(strName).hWnd > > 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, strName As String) > > Dim CurStyle As Long > Dim hWnd As Long > > ' hWnd = Access.hWndAccessApp > > hWnd = Reports(strName).hWnd > > 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, strName As String) > > Dim CurStyle As Long > Dim hWnd As Long > > 'hWnd = Access.hWndAccessApp > > hWnd = Reports(strName).hWnd > > 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 > > aksan kurdin > > > --- In [email protected] <belajar-access%40yahoogroups.com>, > "PEACE" <boypeace...@...> wrote: > > > > > > > > --- In [email protected] <belajar-access%40yahoogroups.com>, > BoyPeace pamotan <boypeace.81@> wrote: > > > > > > Bagaimana cara mendisable restore atau minimize button pada report, > > > karena kalau di disable dari properties max dan min, record page > > > number tidak nampak? > > > udah searching di google belum ketemu > > > > > > > ----------------------------------------------- > > saya searching cuma module ini yang ketemu tapi masih debug.. > > > > > > > > Public Function fActivateReportMaximizeBox(Enable As Boolean, strName As > String) > > Dim CurStyle As Long > > Dim hWnd As Long > > > > hWnd = Reports(strName).hWnd '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< > > > > 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 > > > > Add this line to the OnOpen event of the report(s) you want to > > > > Call fActivateReportMaximizeBox(False, Me.Name) > > > > You can make the same basic change to anyone of the fumctions contained > in the module. > > If you want to also manipulate the buttons on forms, change - > > > > hWnd = Reports(strName).hWnd > > to > > hWnd = Forms(strName).hWnd > > > > >
