469,128 Members | 1,628 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 469,128 developers. It's quick & easy.

Disable Maximize/Minimize/Restore in Access 2007

Is there a way to disable the maximize, minimize and restore buttons
of the Access window in A2K7? I can't seem to find one. I am setting
up an application that will be launched via Terminal Services but
don't have seamless windows so I need to make sure the users can't get
to the desktop.

Thanks!
Jun 27 '08 #1
8 8385
On Tue, 20 May 2008 10:37:33 -0700 (PDT), evenlater
<ev*******@gmail.comwrote:

Have you tried to set some form-level properties such as AutoResize
and MinMaxButtons?

-Tom.

>Is there a way to disable the maximize, minimize and restore buttons
of the Access window in A2K7? I can't seem to find one. I am setting
up an application that will be launched via Terminal Services but
don't have seamless windows so I need to make sure the users can't get
to the desktop.

Thanks!
Jun 27 '08 #2
On May 21, 8:57 pm, Tom van Stiphout <no.spam.tom7...@cox.netwrote:
Have you tried to set some form-level properties such as AutoResize
and MinMaxButtons?
Yes, but that only applies to the form, not the Access window. I am
trying to prevent my users from getting to the desktop at all.
Jun 27 '08 #3
On Thu, 22 May 2008 19:13:56 -0700 (PDT), evenlater
<ev*******@gmail.comwrote:

That requires a fairly advanced level of programming, including
subclassing of that window. You'll need a thorough understanding of
the Windows API.

-Tom.
>On May 21, 8:57 pm, Tom van Stiphout <no.spam.tom7...@cox.netwrote:
>Have you tried to set some form-level properties such as AutoResize
and MinMaxButtons?

Yes, but that only applies to the form, not the Access window. I am
trying to prevent my users from getting to the desktop at all.
Jun 27 '08 #4

Actually, the code for doing this was posted in the newsgroup a few
years back, and it doesn't take all that much in the way of API calls.

The real problem however, could be resolved by anyone competent in
setting up Terminal Server and applications that run on them. The OP
should *really* look at hiring one of those to set this application
up.

(There are ways around the API calls that make it next to useless for
what the OP has stated as a requirement.)
On Thu, 22 May 2008 20:51:54 -0700, Tom van Stiphout
<no*************@cox.netwrote:
>On Thu, 22 May 2008 19:13:56 -0700 (PDT), evenlater
<ev*******@gmail.comwrote:

That requires a fairly advanced level of programming, including
subclassing of that window. You'll need a thorough understanding of
the Windows API.

-Tom.
>>On May 21, 8:57 pm, Tom van Stiphout <no.spam.tom7...@cox.netwrote:
>>Have you tried to set some form-level properties such as AutoResize
and MinMaxButtons?

Yes, but that only applies to the form, not the Access window. I am
trying to prevent my users from getting to the desktop at all.
--
Please Post Any Replies To This Message Back To the Newsgroup.
There are "Lurkers" around who can benefit by our exchange!
Jun 27 '08 #5
Hi Chuck,

I did a quick skooch through the older posts but could not seem to
locate the specific discussion you mention. Do you per chance happen
to have a link you could post?

Cheers

The Frog
Jun 27 '08 #6

"The Frog" <Mr************@googlemail.comschreef in bericht news:20**********************************@26g2000h sk.googlegroups.com...
Hi Chuck,

I did a quick skooch through the older posts but could not seem to
locate the specific discussion you mention. Do you per chance happen
to have a link you could post?

Cheers

The Frog
Paste the following code into a module, then call it with
Call Buttons(false)
To turn them off and
Call Buttons(True)
to turn them on

********** Code Start *************
Option Explicit

Private Const GWL_STYLE = (-16)
Private Const WS_CAPTION = &HC00000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_SYSMENU = &H80000
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOZORDER = &H4
Public Const SWP_FRAMECHANGED = &H20

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 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
' **************************************************
'

Function AccessTitleBar(Show As Boolean) As Long
Dim hwnd As Long
Dim nIndex As Long
Dim dwNewLong As Long
Dim dwLong As Long
Dim wFlags As Long

hwnd = hWndAccessApp
nIndex = GWL_STYLE
wFlags = SWP_NOSIZE + SWP_NOZORDER + SWP_FRAMECHANGED + SWP_NOMOVE

dwLong = GetWindowLong(hwnd, nIndex)

If Show Then
dwNewLong = (dwLong Or WS_CAPTION)
Else
dwNewLong = (dwLong And Not WS_CAPTION)
End If

Call SetWindowLong(hwnd, nIndex, dwNewLong)
Call SetWindowPos(hwnd, 0&, 0&, 0&, 0&, 0&, wFlags)
End Function
Function Buttons(Show As Boolean) As Long
Dim hwnd As Long
Dim nIndex As Long
Dim dwNewLong As Long
Dim dwLong As Long

hwnd = hWndAccessApp
nIndex = GWL_STYLE

Const wFlags = SWP_NOSIZE + SWP_NOZORDER + SWP_FRAMECHANGED + SWP_NOMOVE
Const FLAGS_COMBI = WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_SYSMENU

dwLong = GetWindowLong(hwnd, nIndex)

If Show Then
dwNewLong = (dwLong Or FLAGS_COMBI)
Else
dwNewLong = (dwLong And Not FLAGS_COMBI)
End If

Call SetWindowLong(hwnd, nIndex, dwNewLong)
Call SetWindowPos(hwnd, 0&, 0&, 0&, 0&, 0&, wFlags)
End Function
' ********** Code End *************

BTW: I think this code originates fromTerry Kreft

Arno R
Jun 27 '08 #7

When I said "a few years back", I was serious. You'll have to go back
quite a few years to find the posts (1997-99 time frame). Search for
"NoControlBox" at Google, and you'll probably find the thread.

I think that thread just discusses how to disable the controls,
however there was also another thread that discussed totally removing
the controls from the title bar, but I also remember we dropped the
thread fairly quickly when we "were made aware of" what we were
posting. (That thread may have been over in one of the VB discussion
groups however....)

Yeah, it's cool and rather fun to do, but it just makes users jump
through hoops to overcome a "neat" little hack of yours. And the
_last_ thing you want a user to do (especially in a database!) is to
find their own "neat" tricks.
On Wed, 28 May 2008 00:38:56 -0700 (PDT), The Frog
<Mr************@googlemail.comwrote:
>I did a quick skooch through the older posts but could not seem to
locate the specific discussion you mention. Do you per chance happen
to have a link you could post?
--
Please Post Any Replies To This Message Back To the Newsgroup.
There are "Lurkers" around who can benefit by our exchange!
Jun 27 '08 #8
Thanks Arno and Chuck,

I will give this a crack with an MDE. Hopefully the code will work
happily in the MDE and not leave any permanent scars on the users
brains :-) It might just prove to be a bit of fun to tease some of the
IT guys 'upstairs' with (Tee hee hee).

Thanks Fellas

Cheers

The Frog
Jun 27 '08 #9

This discussion thread is closed

Replies have been disabled for this discussion.

Similar topics

reply views Thread by Manoj | last post: by
1 post views Thread by Tim Bücker | last post: by
4 posts views Thread by Mark | last post: by
4 posts views Thread by EmilH | last post: by
5 posts views Thread by David Jackson | last post: by
5 posts views Thread by fluff | last post: by
1 post views Thread by CARIGAR | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.