Can you alter the attributes of the Access title bar?

G

Guest

I would like to be able to hide the Access title bar on a database that I
have developed. I don't want the user to be able to "click the little red x"
in the top corner.
 
R

Rick B

Do a search. disabling the X button is documented all the time.

Go to google.com and cliek tht GROUPS links

then type...


microsoft.public.access disable close button
 
J

Jeff Conrad

in message:
I would like to be able to hide the Access title bar on a database that I
have developed. I don't want the user to be able to "click the little red x"
in the top corner.
Click to expand...

Would you settle for disabling the application [X] button?

Take your pick based on version.

ACC: How to Disable the Close Button (X) on the Access
Application Window (95/97)
http://support.microsoft.com/?id=258049

ACC2000: How to Disable the Close Button (X) on the Access
Application Window
http://support.microsoft.com/?id=245746

ACC2002: How to Disable the Close Button (X) on the Access
Application Window and the Exit Command on the File Menu
http://support.microsoft.com/?id=300688

Alternatively, take a look here:

http://www.mvps.org/access/general/gen0005.htm

or here:

http://www.datapigtechnologies.com/flashfiles/preventcloseform.html

And some ready made code from MVP Terry Kreft: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 *************
[/QUOTE][/QUOTE][/QUOTE]

Hope that helps,
 
G

Guest

I really don't want to disable these functions on the application itself. I
would really like to disable the entire title bar on just that one database.

Any suggestions?

--
BCS@AU


Jeff Conrad said:
in message:
I would like to be able to hide the Access title bar on a database that I
have developed. I don't want the user to be able to "click the little red x"
in the top corner.
Click to expand...

Would you settle for disabling the application [X] button?

Take your pick based on version.

ACC: How to Disable the Close Button (X) on the Access
Application Window (95/97)
http://support.microsoft.com/?id=258049

ACC2000: How to Disable the Close Button (X) on the Access
Application Window
http://support.microsoft.com/?id=245746

ACC2002: How to Disable the Close Button (X) on the Access
Application Window and the Exit Command on the File Menu
http://support.microsoft.com/?id=300688

Alternatively, take a look here:

http://www.mvps.org/access/general/gen0005.htm

or here:

http://www.datapigtechnologies.com/flashfiles/preventcloseform.html

And some ready made code from MVP Terry Kreft: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 *************
Click to expand...
[/QUOTE]

Hope that helps,[/QUOTE]
 
J

Jeff Conrad

in message:
I really don't want to disable these functions on the application itself. I
would really like to disable the entire title bar on just that one database.

Any suggestions?
Click to expand...

The information I provided will disable the application [X] button for that
*specific* database, not every Access database if that is what you are thinking.

I do not know of any way to disable the entire application title bar.

You can hide the entire Access interface, but this is severely limiting and
presents a lot of problems with form and report management:

http://www.mvps.org/access/api/api0019.htm
 
G

Guest

Hey Jeff.

I guess I am just dense, but I am having trouble following the instructions
for this process.

I chose ACC2002: How to Disable the Close Button (X) on the Access
Application Window and the Exit Command on the File Menu
http://support.microsoft.com/?id=300688 out of the options you provided.

Can you assist? I get stumped on step 6.

Thanks in advance.



--
BCS@AU


Jeff Conrad said:
in message:
I would like to be able to hide the Access title bar on a database that I
have developed. I don't want the user to be able to "click the little red x"
in the top corner.
Click to expand...

Would you settle for disabling the application [X] button?

Take your pick based on version.

ACC: How to Disable the Close Button (X) on the Access
Application Window (95/97)
http://support.microsoft.com/?id=258049

ACC2000: How to Disable the Close Button (X) on the Access
Application Window
http://support.microsoft.com/?id=245746

ACC2002: How to Disable the Close Button (X) on the Access
Application Window and the Exit Command on the File Menu
http://support.microsoft.com/?id=300688

Alternatively, take a look here:

http://www.mvps.org/access/general/gen0005.htm

or here:

http://www.datapigtechnologies.com/flashfiles/preventcloseform.html

And some ready made code from MVP Terry Kreft: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 *************
Click to expand...
[/QUOTE]

Hope that helps,[/QUOTE]
 
J

Jeff Conrad

in message:
Hey Jeff.

I guess I am just dense, but I am having trouble following the instructions
for this process.

I chose ACC2002: How to Disable the Close Button (X) on the Access
Application Window and the Exit Command on the File Menu
http://support.microsoft.com/?id=300688 out of the options you provided.

Can you assist? I get stumped on step 6.
Click to expand...

This is interesting. I've only used the instructions in the 97 article before.
The 97 instructions work for 97, 2000, 2002, and 2003 by the way.
Anyway, I found it interesting that the 2002 article has additional instructions
for allowing the user to toggle the close button through a form.

What step 6 is showing you is a way to toggle the enabled status of the
application close button. A back door so to speak. What I have done
is always set up an AutoExec macro to automatically turn it off without
user intervention. Just my choice.

So here is what you do.
Just create a new blank small form and put two command buttons on it.
Name them cmdEnable and cmdDisable.
In the Click event for cmdEnable enter this code into the code window:

Private Sub cmdEnable_Click()
Call SetEnabledState(True)
End Sub

In the Click event for cmdDisable enter this code into the code window:

Private Sub cmdDisable_Click()
Call SetEnabledState(False)
End Sub

Make any other formatting changes you wish to the form. Now it is
your decision whether you want to actually have the other users be
able to use this form. If not, do not show it to them and make a sneaky
way for you to open it. Clicking the two buttons will toggle the enabled
state of the application close button.

If you would like to disable the close button automatically when the
database opens just follow these steps:
1. Create a new macro
2. In the Action column enter RunCode
3. In the Function Name area in the bottom left corner enter this:

SetEnabledState(False)

4. Save and close the macro. You *must* name this macro
AutoExec.

5. It is ****essential**** you have a command button somewhere
on your main form that not only closes the application, but Access
as well. Something like DoCmd.Quit.

6. Close the database and then reopen. You will notice that the
close button is disabled and the Exit option on the File Menu.
 
G

Guest

New problem:

I finally managed to follow all of the instructions from
http://support.microsoft.com/?id=300688
I have the form in my test file. When I click on disable, the red x and
exit options go away.

I need to make it happen automatically on my "main form" when the database
opens.

Also, I need to have the maximize and minimize buttons go away. Additional
code?



Previous post:

Hey Jeff.

I guess I am just dense, but I am having trouble following the instructions
for this process.

I chose ACC2002: How to Disable the Close Button (X) on the Access
Application Window and the Exit Command on the File Menu
http://support.microsoft.com/?id=300688 out of the options you provided.

Can you assist? I get stumped on step 6.

Thanks in advance.

--
BCS@AU


Jeff Conrad said:
in message:
I really don't want to disable these functions on the application itself. I
would really like to disable the entire title bar on just that one database.

Any suggestions?
Click to expand...

The information I provided will disable the application [X] button for that
*specific* database, not every Access database if that is what you are thinking.

I do not know of any way to disable the entire application title bar.

You can hide the entire Access interface, but this is severely limiting and
presents a lot of problems with form and report management:

http://www.mvps.org/access/api/api0019.htm
Click to expand...
 
J

Jeff Conrad

in message:
New problem:

I finally managed to follow all of the instructions from
http://support.microsoft.com/?id=300688
I have the form in my test file. When I click on disable, the red x and
exit options go away.

I need to make it happen automatically on my "main form" when the database
opens.
Click to expand...

See my other reply on how to set this up.
Also, I need to have the maximize and minimize buttons go away. Additional
code?
Click to expand...

The minimize/maximize buttons on the Access *window* itself up at the very top?
Not possible as far as I am aware.

Probably the only alternative would be to put a DoCmd.Maximize statement
in the main form's open event and set the form to be Popup. This will cause
the form to take over the **entire** screen. However, you will not be able
to see even the Windows task bar. Every one of your forms would have to
be popup as well so this would be become a coding nightmare and possibly
present problems with previewing reports. Your choice.
 
G

Guest

Got the "close" button to go away automatically following your other posted
instructions.

Yes, I want the max, min buttons to go away in the title bar (the ones next
to the now greyed out little red x).

Thanks for all of your help.
 
J

Jeff Conrad

in message:
Got the "close" button to go away automatically following your other posted
instructions.
Click to expand...

Very good.
Yes, I want the max, min buttons to go away in the title bar (the ones next
to the now greyed out little red x).
Click to expand...

As I mentioned before, I am unaware of any possible way to remove/hide
those buttons. I think you will just have to live with them.
Thanks for all of your help.
Click to expand...

No problem, glad to help.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

hiding the Microsoft Access database title bar 3
How do I display the database name in the Access title bar? 1
Hide Access Application window? 9
Status Bar - Hide "View Shortcuts" Access 2007 1
Application Title Bar Text Question 1
Custom titles are active 0
Close on Lost Focus 2
Hidden window title bar 3

Top