I've installed Office 365 and when I bring up Access the back ground color is White, I've looked in the File, Account, but when I click on the Office Theme I only get two choices Colorful, White, no matter what I choose I only get the white. In Access 2007 I had the I had a choice of Blue Silver or Black.
How do I get my Blue back in Access 2016 any ideas.
Thanks
2 15638 zmbd 5,501
Recognized Expert Moderator Expert
Welcome to the new MS paradigm MS> What's New and Improved in Office 2016 for Office 365 (read more) Office Themes
In Word, PowerPoint, Excel, OneNote, Outlook, Access, Project, Visio, and Publisher
Pick the Office theme that's right for you. The Dark Gray theme provides a high contrast look and feel that is easy on the eyes. The Colorful theme offers a modern and fresh look. The White theme provides a traditional Office look. Learn more about changing the Office theme (read more)
The choices you have are the choices you have unless you can possibly find a hack... and people have been trying without much success, especially with Office360 where MS has total control of every file and setting you can possibly think of...
This is a continuation of the madness started with Office2013 where we had "White" "Light Grey" and "Dark Grey"
All you can do is complain to Microsoft, who appears to not care one whit about the end users' preferences. In one thread alone, there are 22 pages of complaints spanning from 2013 thru just last month, in the Microsoft Answers forum alone about this particular, "feature" for Office2013 and there are many more such threads and one already for Office2016.
While you can't change the background color, I've come up with a solution that effectively allows you to change the background color.
First, I've created a new form called "background " that is completely empty, very large (large enough to fill the screen of your largest monitor), and has a dark gray background. It is not modal or popup, it auto resizes and centers, fits to screen, has no borders, record selectors, navigation buttons, dividing lines, scroll bars, control button, close button, or min max button, and it is not movable. All it has a little bit of VBA in its On Got Focus property: -
Private Sub Form_GotFocus()
-
Dim db As DAO.Database
-
Dim rst As DAO.Recordset
-
Set db = CurrentDb
-
Set rst = db.OpenRecordset("SELECT ID, FormName, FrmRpt FROM FormStack ORDER BY ID", dbOpenSnapshot)
-
If rst.EOF Then
-
DoCmd.OpenForm "frmMenu"
-
Else
-
While Not rst.EOF
-
If rst.Fields("FrmRpt") = "Form" Then
-
If FormIsOpen(rst.Fields("FormName")) Then
-
Forms(rst.Fields("FormName")).SetFocus
-
Else
-
Call CloseFormStack(rst.Fields("FormName"))
-
End If
-
Else
-
If ReportIsOpen(rst.Fields("FormName")) Then
-
DoCmd.SelectObject acReport, rst.Fields("FormName")
-
Else
-
Call CloseFormStack(rst.Fields("FormName"))
-
End If
-
End If
-
rst.MoveNext
-
Wend
-
End If
-
rst.Close
-
Set rst = Nothing
-
End Sub
-
NOTE: the line
will open my menu form if no other form or report is open. Doing this is of course optional and you would want to change the name of the form that it opens.
I also created a table named "FormStack" that has the following fields:
ID (long integer, primary key)
FormName (short text)
FrmRpt (short text)
As for the other code which is saved in a separate module: -
Public Sub FormStack(fName As String, frmrpt As String)
-
Dim sSQL As String
-
sSQL = "DELETE * FROM [FormStack] WHERE [FormName] = '" & fName & "'"
-
DoCmd.RunSQL (sSQL)
-
Dim Temp As Integer
-
Temp = 1
-
Dim db As DAO.Database
-
Dim rst As DAO.Recordset
-
Set db = CurrentDb
-
Set rst = db.OpenRecordset("SELECT [ID], [FormName] FROM [FormStack] ORDER BY [ID]", dbOpenSnapshot)
-
With rst
-
While Not .EOF
-
Temp = ![id] + 1
-
.MoveNext
-
Wend
-
End With
-
rst.Close
-
Set rst = Nothing
-
sSQL = "INSERT INTO [FormStack] ([ID], [FormName], [FrmRpt]) VALUES (" & Temp & ", '" & fName & "', '" & frmrpt & "')"
-
DoCmd.RunSQL (sSQL)
-
End Sub
-
-
Public Sub CloseFormStack(fName As String)
-
Dim sSQL As String
-
sSQL = "DELETE * FROM [FormStack] WHERE [FormName] = '" & fName & "'"
-
DoCmd.RunSQL (sSQL)
-
End Sub
-
-
Public Function FormIsOpen(strForm As String) As Boolean
-
Dim a As String
-
Dim Frm As Form
-
-
On Error GoTo ErrHandler
-
-
Set Frm = Forms(strForm)
-
a = Frm.Caption
-
-
FormIsOpen = True
-
-
FormIsOpenExit:
-
Exit Function
-
-
ErrHandler:
-
FormIsOpen = False
-
Resume FormIsOpenExit
-
-
End Function
-
After this you need to insert the following code into every forms (but NOT subforms) Activate, On Open and On Close events: -
Private Sub Form_Activate()
-
Call FormStack("frmName", "Form")
-
End Sub
-
-
Private Sub Form_Close()
-
Call CloseFormStack("frmName")
-
End Sub
-
-
Private Sub Form_Open(Cancel As Integer)
-
Call FormStack("frmName", "Form")
-
End Sub
-
And for reports (but NOT subreports) this code: -
Private Sub Report_Activate()
-
Call FormStack("rptName", "Report")
-
End Sub
-
-
Private Sub Report_Close()
-
Call CloseFormStack("rptName")
-
End Sub
-
-
Private Sub Report_Open(Cancel As Integer)
-
Call FormStack("rptName", "Report")
-
End Sub
-
Of course you can still have other code in these events as well. And you will have to put in the correct name of each form or report.
What all this code will do is ensure that your forms and reports are always on top of the background form. Should you ever accidentally click the background form, it will restore focus to every open form or report in the appropriate order (in other words, you are effectively sending the background to the back).
Now this isn't without a few problems. First, this code will not work with tables or queries. If a table or query is open and you click on the background, they will wind up forever beneath the background, the only way to get it back is to open it from the Navigation Pane again. I consider this a minor problem as your end users should only be working with forms and reports, but it is a bit of a pain for a developer. The other problem is that you want the background to cover the entire background, and you don't know how large the end users monitor will be, so it is wise to make the background form excessively large. While scroll bars will be disabled on the background form, they are not disabled in Access itself, and since the background is larger than the access window, you will wind up with scroll bars in your access window. Luckily your scroll wheel on your mouse does not effect these scroll bars, and I've had no one complain about to me in the month that we have been using the application so this too I consider a minor issue.
Sign in to post your reply or Sign up for a free account.
Similar topics |
by: DS |
last post by:
How do you change the backgroung color and Menu bar colors in access so
that its different from he default color in windows. This is for Access
only, I want the other programs to match the default color of windows.
Thanks
DS
|
by: Jean |
last post by:
Hello,
I have just read through the MS Access Security FAQ, and had a go at
securing my database, but now I am stuck.
I successfully set up a new .mdw file, say DEPARTMENT.MDW. With this
file, I set up users and groups, and then the permissions to objects in
my db. Now, I would like to reverse the situation I am in now, i.e. no
matter what db I open from my PC, it doesn't ask me for a username and
password.
|
by: pradeep |
last post by:
Is is possible to to change the background color of
TabControl Widget. I am not finding the corresponding
property in properties toolbar.
thank you
pradeep
|
by: Johanna |
last post by:
Hello,
Thread was being aborted exception is thrown by my asp.net
application.
I hope someone could help me with this error that I get in windows
2003 server. This error has not occured with the same application in
windows 2000 professional computers that are also lot older and less
effective.
|
by: Teemu |
last post by:
I'm wondering if there is a easy way to change for example toolstrips
appearance. I'd like to have the same theme as in VB2005. Brown backgroung
instead of the light blue. Can this be done without creating own custom draw
procedure?
Somehow the theme of Visual Studio looks more professional than the original
blue color.
-Teemu
| |
by: mcnewsxp |
last post by:
how can i set a back ground image property on an MDI main form to stretch?
|
by: rpapaiof |
last post by:
i want to know is there any command to put many colors for html page background or a pic im a beginer plz help me
|
by: James |
last post by:
When property 'Enabled' is set to 'false', the text back ground color always turn to gray. Can I change this color?
From http://developmentnow.com/g/36_2003_7_0_0_0/dotnet-languages-csharp.htm
Posted via DevelopmentNow.com Groups
http://www.developmentnow.com
|
by: davehirend |
last post by:
i have porblem for change the back ground of the TextBox in ASP.NET 2.0
|
by: iheartvba |
last post by:
Hi How can I make a user panel where they can choose a color for all the forms in an Access database.
I have made a table with all the user names and it has a field for color which can store their desired color.
I don't however know how to allow them to choose a color themselves.
Thanks
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look !
Part I. Meaning of...
| |
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own....
Now, this would greatly impact the work of software developers. The idea...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one.
At the time of converting from word file to html my equations which are in the word document file was convert into image.
Globals.ThisAddIn.Application.ActiveDocument.Select();...
|
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
|
by: 6302768590 |
last post by:
Hai team
i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
| |
by: muto222 |
last post by:
How can i add a mobile payment intergratation into php mysql website.
|
by: bsmnconsultancy |
last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...
| |