--- In [email protected], BoyPeace pamotan <boypeace...@...> 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
