Sayang, Cara ini sudah pernah saya lakukan, tetapi masih tetap adalah kelemahan di aplikasi DUK yang saya buat, report masih bisa geser dan apabila mouse di klik di luar report maka report akan terhalang oleh menu utama, tombol close pada report pun juga terdisable. Masalahnya aplikasi yang kemarin yang saya buat hampir semuanya baik form atau report saya set modal = yes dan popup=yes
Saya sudah ketemu solusinya dengan merubah border style= no control box = no min max = no sehingga report preview menjadi maximize full screen, untuk menutup report dengan membuat popup/ klik kanan menu.... 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], "PEACE" <boypeace...@...> wrote: >> >> >> >> --- In [email protected], 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 >> > > >
