Modules & VBA :: Edit Font Color Based On Field Value & Age
Mar 4, 2015
I am attempting to adjust the font color of a date field on a report based on the value of two other fields. I have the below code set in the "On Format" property of my detail section - however it does not work when I open the report to view.
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Frequency = "Annually" Then
If Me.ClassDate < (DateAdd("yyyy", -1, Date)) Then
Me.ClassDate.ForeColor = vbRed
Me.ClassDate.FontBold
End If
End If
End Sub
We have a navigation page with 5 tabs and several navigation buttons underneath their respective tabs linking to reports.
In the main part of the navigation page we have 17 search parameters (text boxes and combo boxes)that the user can use to sort through all the reports we have in the different tabs.
What we would like to do is to have the label text to change to "red" if one of the 17 fields are "required", remain "black" if it is included in the report but not a mandatory search parameter, or turn "light grey" if that parameter is not included in that report.
For example:
My search parameters are: people, phone, and cars
If I were looking at a report of people that included addresses, phones, etc...name and phone would be required search parameters. However, even though I can search by car, it is not in this particular report and the label text should be greyed out. (If the actual text box could go inactive that would be even better).
I have read about buttons being turned colors based on a drop down box choice, but I have not been able to find anything about using a navigation tab subform button to make the colors change in the main navigation form.
In access report, I'm trying to change color of text in specific records based on the true/false value in another record. Works in forms using conditional formatting, but won't seem to work in a report.
Here's what works in forms : IIf([2009 Symposium]=true, forecolor=255 ....this changes the records to red.
But using the same expression in a report doesn't change the text color.
I would like to change the Font and background color based on dates.
-I have a text box (Training Event) on a form populated from a field (Training Dates) in a query.
- I need the font and/or the background in that text box to change to red when the date is 12 month past, yellow 11 months past, white 10 months past and green for 9 months past.
I did some searching on changing the color of a font if you change the data. I found a few posts but they really don't fit the need.
I am using a continuous form (which makes this even more difficult) and when someone changes data in a field I want that forecolor to change from black to red.
Is there an easy way (I know not everything is easy) :) in the conditional formatting to create an event? I am thinking not but thought I would ask.
My GUESS is that I need some sort of temp table to verify the data against then return with the forecolor change.
I believe thats the proper word for it. Attached is a screenshot of a section of the database that I have started working on. It is to track placement for a college. Its my first ever and I am fairly good at making things look good, but as far as function - I am terrible.
I can change the raised box that the tab control sits on to a dark maroon when someone has a felony (so it notifies the user of this status)
Private Sub Form_Current() If [Felony] = True Then Felonybox.BackStyle = 1 Felonybox.BackColor = RGB(159, 19, 44) Else Felonybox.BackStyle = 1 Felonybox.BackColor = RGB(208, 207, 202) End If
End Sub
I also have this done on After_Update.
I am trying to change the font on the Tab Control to Red when this occurs as well (only change the 'Criminal History CONFIDENTIAL' to red). I can not find this option anywhere, is this something that has been done or CAN be done?
On a form I have a combo box - let's call it cmboSickness. it has two options "flu" and "malaria". On the same form I have two command buttons - one ehich opens a malaria form and one which opens a flu form. If I select flu then I want the words on the flu command button to change to red. How do I do this and where do I put the code?
I have tried - If me.cmbosickness=flu then cmdflu.color=255
I created a form that has about 200 fields and all the fields are utilized at a point depending on the work order assigned to us. I wanted to know if it's possible to put like a toggle box or a check box etc. next to the field so if it is checked it would be in a Dark color and the ones not utilized are in a shade of gray. All the fields are coming from the same table. Another thing it's an estimate worksheet so a row would have something like, Labor, QTY, HRs, Overtime, total as columns, so I would want a check box to have control over those but one for each row, EX contractor, locksmith.
All I want to do is change the font color and weight of a couple of columns in a form. No conditions or change when button is pressed or anything like that. Just be blue and stay blue.
I've tried making it a memo, rich-text field and it didn't work.
It works fine in the "member details" form, but not the "member list" form.
i have a report which i need to make certain results displayed in Red, if there is a check in the box.
example:
my report is called OEEModel on the form i have a chkbox - called "FailureModeInPlace" i also have 2 text boxes called "EventCode" and "CodeDescription"
what i want to do is for each record that is displayed with a chkbox ticked that the font in the two boxes turn red and bold...
Is it possible to use two color fonts on one label? I want to bring attention to the user that by clicking a certain button they can perform a search by "Name" and by clicking on the other button, they can perform a search by "Appointment".
I have a switchboard type form with some buttons. The two buttons in question are labeled, "Search for Appts by Name" and "Search for Appts by Appointment". I want to keep the "Search for" section of the button in black font, but change the "by Appointment" and "by Name" to red font.
My list box will be used to populate a form, is it possible that once the item is dble-clicked, it reverts to a different color to let the user know it has already been selected once or can the row be locked once it has been selected?
I'm running MS Access 2003. My SQL editing window has a really small font size. How do I change this window's default font size? Is it in tools or options?
Help!!!!!!! I'm going blind!!!!!!:confused:
Thank you for taking the time to read this and for being willing to help out!!
I would like to be able to change font color and appearance while entering data into a form (example: italicize a word). Is there any way to activate the font format while in a form?
I am currently in the process of creating a pop-up menu to allow my users to do some simple text formatting.I have used the following code to do so:
Code:
Dim cmbShortcutMenu As Office.CommandBar ' Create the new pop-up menu instance Set cmbShortcutMenu = CommandBars.Add("popupFormatMenu", msoBarPopup, False, True) ' Add the bold button
[code]....
The problem is that I now want to add the FontColor picker control and I keep getting an error.I think the problem lies in the type of control I want to add. According to the Microsoft support files I downloaded the fontColor control is of type Gallery and ID = 11949, so the code should look something like this:
I have a table named ColorValues with the following three fields:
- ID - MunsellCode - RGBValue
30 fields from another table called Color_Analysis are linked to the above with one to many relationships (I've already thought of other ways to normalize data, but this is the most efficient, so no need to go into this topic).
Now, I've constructed a form for Color_Analysis and all 30 fields recording color are included as combo boxes bounded on the ID in ColorValues and displaying the MunsellCode for the user. I've also created unbounded text fields next to the combo boxes and want to use them to display the color that the user selected in the ComboBox. The question is how do I do this?
Essentially I need a piece of code that picks up the value of the combo box (this is essentially the ID in ColorValues), looks up that value in the ID column of the ColorValues table and uses the corresponding RGBValue of the same table as the .BackColor for the unbounded text field.
I would like to change the background color of a field that is the result of a Unique Values query. I am trying to get a list of invoices where all the line items are approved. I can't seem to get it to work the way I want because if even one invoice line item is approved it will show up as approved.
Is there a way to change the background color of the invoice field to red if ANY of the Approved line items are = False
I have a report that I would like to have the rows be a specific color based on the value in 1 field on the row.
I have attempted to use conditional formatting but it will not work (IE, I can get font color to change, but not field boxes to have color).
The field is labeled [text144] based on the value in the field (1,2, or 3) I would like the field to be a different color. i.e. 3 = green 2 = yellow 1 = red
I'm having a spot of trouble trying to get conditional formatting to work. I have an overview form which displays current quotes going through the system, the QuoteStartTime field is generated from the Now() command.I Would like if possible to show, 1 hour = Green, 2 hours = Amber and 3+ hours Red.
I've tried variations of hour([QuoteStart])>1 DateAdd("h",1,[QuoteStartTime])
I've done this before with a date only field before, but working with time is taking too much time.
I have a form and a VBA event in which I would like to update a field in the current record. However, the field name is stored as a variable so I can't just use Me!FieldName = __
I've tried simply the following, but get a "No current record" error. why I'm getting the error, but how do I select the record currently visible in the form to edit?
I'm using Access 2010. I'm passing a string into the OpenArgs of my report - works fine. In the report there are 3 rich text fields which may contain the text I passed in, and if so I want to change the color of that text to red so it stands out.
The value passed to the report changes so I'll need to use VBA in the detail's format section to check each of the 3 rich text fields.
I am experiencing a problem in MS Access 2013. I have a form which was working just fine until now. It has form labels in Calibri font and their font colour is one shade lighter than black. Today, I changed the font colour of the form labels to be Automatic - black (shows as 'Text 1' colour in the form properties). I did this in Design view.
I find that when I switch to layout view, the font of the labels appears as Century Gothic. This is the font that appears in the Form view. So while the font colour is correctly changed, the font name is not what I had set in the Design view. When I go back to the Design view, and change the font colour back to the original colour which was one shade lighter than black (Text 1, Lighter 50%), the font is correct in the Layout view and the Form view (Calibri).
So it seems that there is some sort of binding between the font colour (black) and the font name (Century Gothic). When I change the font colour, the font also changes. When I restore the original colour (one shade lighter than black), the font Calibri is correctly retained.
I have spent the better half of the afternoon researching how to accomplish controlling a bold font in a string I am building and sending to Excel.
Code: ' set text for safety hazards and controls Concretetxt = "Concrete Demolition & vbCrLf & Hazards - dust, flying debris and skin Irritation. & vbCrLf & Control - Respirator, goggles, gloves, inspect equipment prior to use." Excavationtxt = "Excavations & vbCrLf & Hazards - Damage to underground wires, collapse, falling materials/equipment. & vbCrLf & Control - Ensure utilities have been marked and hand dig when in close proximity, shore properly, Keep clear when lowering materials."
This is a sample of how the strings will build. I will select a task like Concrete Demolition and string it together with other tasks I would like "Concrete Demolition" in bold with the blurb following it then the next task would follow with a bold heading.
My thought is now that it may be easier to control by putting this data into a table instead of building the strings.
I would like to have Access launch an Outlook email with a specific font (Arial). How could that be accomplished?
Here's my code:
Private Sub cmdEmailAO_Click() On Error Resume Next Dim OApp As Object, OMail As Object, signature As String, Email As String, FirstName As String Set OApp = CreateObject("Outlook.Application") Set OMail = OApp.CreateItem(0)
What I'm trying to do is make it so that a certain area of my Detail area in my report changes colors based on whether or not a field name for each record is set to "Yes". The effect I wanted was produced easily enough by creating a Rectangle, coloring it Red, and setting it to not visible.
Putting RedBox.Visible = True in the Report On Load procedure works just fine. The problem I am having is attaching a condition to it.
Code:
If Me.FormatBox.Value = "Yes" Then RedBox.Visible = True End If
This compiles ok, but doesnt do anything to the actual report. Will it not work because the report has x amount of FormatBox's because it gets replicated for each record that is displayed? I should also note that I tried using a DL Lookup within my If statement and that didnt work either. That just colors all the boxes red and ignores the check.
Code: Dim TestVar As String TestVar = DLookup("Priority", "Table_Lancaster_Dispatch", "Priority = 'Yes'") If TestVar = "Yes" Then RedBox.Visible = True End If
