Hi
it seems from my research there is no easy way to hide the close button in the application window.
Various sites offer code modules but is there a better way?
thanks
Ian
Hi
it seems from my research there is no easy way to hide the close button in the application window.
Various sites offer code modules but is there a better way?
thanks
Ian
it wouldnt matter anyway, theres lots of ways to close a screen.
close button
The corner X button
Alt-F4
Opening a form as Modal will disable the application close button. The downside of opening a form as modal is that eveything outside the form is disabled, including the ribbon and navigation pane.
Hi
Thanks I'l just lea it
cheers
an
Option Compare Database
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal wRevert As Long) As Long
Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long
Public Sub AccessCloseButtonEnabled(pfEnabled As Boolean)
' Comments: Control the Access close button.
' Disabling it forces the user to exit within the application
' Params : pfEnabled TRUE enables the close button, FALSE disabled it
' Owner : Copyright (c) FMS, Inc.
' Source : Total Visual SourceBook
On Error Resume Next
Const clngMF_ByCommand As Long = &H0&
Const clngMF_Grayed As Long = &H1&
Const clngSC_Close As Long = &HF060&
Dim lngWindow As Long
Dim lngMenu As Long
Dim lngFlags As Long
lngWindow = Application.hWndAccessApp
lngMenu = GetSystemMenu(lngWindow, 0)
If pfEnabled Then
lngFlags = clngMF_ByCommand And Not clngMF_Grayed
Else
lngFlags = clngMF_ByCommand Or clngMF_Grayed
End If
Call EnableMenuItem(lngMenu, clngSC_Close, lngFlags)
End Sub
Verstuurd vanaf mijn P9000 met Tapatalk