Change Color Of Whole Line If Condition Yields True Of One Control
May 28, 2013
I know you can use a "Conditional format" to change a color of a control in a report. What I am trying to do is change the whole line if a condition yields "True" of one control. I did it once before, but oops I didn't save my work. I am using the format [Entity]![IT]. Where "Entity" is either the department or vendor, and "IT" is for the IT department. I want the control "Name" to change color if "Entity" is true if "IT" is the data.
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 have a report which I would like to change the text of a field blue if a certain condition is met. What I want to happen on this report is if a specific field has an "Active" - then it will be in Blue text, otherwise it is in black text.
I have gone into the report ->in the Details section -> put a procedure in the On Format event. The code I have been trying is:
----- If Analysis_Status = Active Then Me.Analysis_Status.ForeColor = vbBlue Else Me.Analysis_Status.ForeColor = vbBlack End If End Sub ----
Please can someone tell me how to change the back colour of a control when it has the focus and then revert to the original colour when it loses it. I have 35 controls on my form, so I need a function, rather than changing the colour with a subroutine evey time.
I have searched the site and haven't found whatI want-though I'm sure this question has been asked before.
How do I conditionally change the Back Color and Alternate Back Color based on the value of notes.FollowUpDate? I have a continuous form using the following code:
Code: Private Sub b_all_past_Click() Me.resultsFrame.SourceObject = "FollowUp_bystaff" Me.resultsFrame.Form.RecordSource = "SELECT * From notes WHERE (((Notes.FollowUpDate) < Date()+1) And ((Notes.followup_person_id) = GetCurrentUserId()))ORDER BY notes.priority,(notes.FollowUpDate) DESC;" ' End Sub
I have a database with 3 tables. Each table has an account number field however the tables are completely different as are the account numbers that populate them. To go with the tables are queries that will bring in desired information. What i would like is for the user to input an account number on a form and have some code in the background that will find the account number in the table it is in and open the corresponding query. Is this possible? Thanks for the help. I have been trying to write code with DLookup but can't seem to get it to do what I want.
I wrote code that should validate a field when entering a new record and then if a condition is true, that new record should be cancelled and not entered into the table.
I managed to partially achieve this by writing the code below, but the new record does not get cancelled because the table will still create a PK for that record and leave the rest of the fields empty. I am using an autonumber for the PK that's why the table creates it automatically What I want to achieve is to cancel the creation of a new record at once, I don't want even PK created for that new record.
I used the CancelUpdate because I thought it would cancel the record creation, but it did not! When I read about it it said that I need to use it with either Edit or AddNew, (which i don't understand why!) but it still does not work.
Private Sub PlotNum_BeforeUpdate(Cancel As Integer) On Error GoTo Err_msg Dim db As DAO.Database, rs As DAO.Recordset Dim n As Integer, i As Integer Dim vPlotNum As Integer Dim vPhaseID As Integer
Set db = CurrentDb Set rs = db.OpenRecordset("tblHouse") rs.MoveLast n = rs.RecordCount rs.MoveFirst If n > 0 Then For i = 1 To n If rs![PhaseID] = vPhaseID Then If rs![PlotNum] = vPlotNum Then rs.Edit rs.CancelUpdate MsgBox "This plot number already exist in this particular phase." & vbCrLf & "Please choose a different Plot Number" Forms![frmHouse].qryHouse2.Form![PlotNum].Text = "" End If End If rs.MoveNext Next i End If rs.Close db.Close Set db = Nothing Set rs = Nothing
Exit_Err_msg: Exit Sub
Err_msg: MsgBox Err.Description Resume Exit_Err_msg End Sub
Any suggestions will be very much appreciated. Thanks. B
AutonumberPK RequestType (Lookup to TypeTable) RequestNumber RequestName
This table then Relates to a request detail table.
The question here,
There are two types or request (T1 and T2)
In my form to enter new Requests I will have a dropdown box to select the type of request.
The next field is the request number. If the type of request is T1 then the person entering the request will have a 6 digit number to enter. But if the request is T2 then I need to auto populate the field.
Is this possible? Or should I just build two forms, one for each type.
Also what would be the best way to auto fill in a number that follow this pattern.
05040001 05 = year 04 = month 0001 = the number of the request for this month.
I am trying to change the button color on a subform if a related form data changes.Main form is products with a continuous subform with serial numbers of products i.e, serial number, location, price and a button to add addtional issues if there are any for this particular serial number (this will open up another form related to the serial number so I can add an issues if there are any).The reason I would like the button to be a different color is so I can quickly see if there are any additional notes been added to the serial number. Just in case you may ask why not add the field to the continuos form is that the issues and be quite lengthy and there may be lots of serial numbers on the form
I have a report which i am trying to format, I want every other row's details to alternate colour which i have done (See below)
I also have on my report, a checkbox and a text feild (not sure if i could use a rectangle and format that instead , it doesn't do anything i just need it to change colour)
chkbox name = "chkClean" Text box name = "txtclean"
I just want the back colour to go red if the check box is true and white if the check box is false
Please help
ANdy
Code:Option Compare DatabaseOption ExplicitPrivate m_RowCount As LongPrivate Sub Detail_Format(Cancel As Integer, FormatCount As Integer)m_RowCount = m_RowCount + 1 If m_RowCount / 2 = CLng(m_RowCount / 2) Then Me.Detail.BackColor = 15263976 'Change value to the color you desire Else Me.Detail.BackColor = 14811135 'Change value to the color you desire End IfIf Me.chkClean = True Then txtclean.BackColor = 255Else txtclean.BackColor = 16777215End IfEnd Sub
I'm trying to create a simple embedded macro for a checkbox control on a form [Company?]. The default value for this checkbox is No.
I want to write an If statement that basically says "If[Company?] = Yes, then GotoControl[CompanyorNameCombo], Else GotoControl[CustomerFN]
Although the checkbox field label and the control itself IS named [Company?] in the table and set as a Yes/No field, when I try to write the If statement I get an error that says "Microsoft Access cannot find the name 'Company?' you entered in the expression"
That's the name of the control and it is included in the table and shows in the field list.
I'm trying to add some life to my form by using some different colors, but I can't figure out how to change the color of a button. Does anyone know how to do this? Thanks
On a form how can i get the text to change to red if the number is Greater than 500 and blue if the number is less than 500, the text box is populated via a query
I have a Data Access Page that I need some help with some of the code.
I need to do a comparison to see if the TimeStamp Control is less than one hour old. If it is, it should have the background turn red. If not it should stay white.
Form = BLine_Messaging Control = TimeStamp
Code:<SCRIPT language=vbscript event=onload or=window><!--If (BLine_Messaging.TimeStamp.value > DateAdd("H", -1, Date)) THEN BLine_Messaging.style.backgroundColor="white"else BLine_Messaging.style.backgroundColor="red"end if --></SCRIPT>
I have a similar problem, I'm fairly new to ACCESS and am learning it is vastly different than EXCEL that we use (we are upgrading to ACCESS to track our "in" and "out". I have set up a ACCESS database to track our barge loading and pumping, on the delay we enter reason for the delay but if no delay occurs it is left blank. How can I get the field to change colors if information is entered and left alone if none is entered. Quote: Originally Posted by shamrog12 Make sure to dim recItem1Value and backg in the appropriate area
Try this: Code:<%recItem1Value = lcase(Recordset1.Fields.Item("RecItem1").Value)backg = ""Select Case recItem1Value Case "x" backg = " style=""background-color:red;"" " Case Else backg = ""End Select%><!-- whatever code here... //--><td<%=backg%> nowrap><input name="txtField1" type="text" onChange="RecUpdate value="<%=(Recordset1.Fields.Item("RecItem1").Value)%>" size="4"></td>
I have installed Windows 10 & Office 13.The Background color of MS Access 13 is white in color which is irritating. Is there a way to change the background color?
I've got a little box covering up a drop down arrow on a combo control that resides on a tab control. The problem is that, since the Back Color property isn't available for a tab control, I have no idea what color it is...which is what the color of my box object (rectangle technically) needs to be so as to blend in. It looks a little garrish with it standing out there...
Any ideas what the default color of the tab page background is? Using Access 2003.
I have a form with the standard light grey background. I insert a tab control, and the default back color is white. I set the BackStyle to Transparent, and it still displays as white.
Am I missing something here, I want the back color of the tab control to be the same as my form.
Now, what's really odd, is in this project it creates tab controls as white, but if I open an old project of mine, it creates tab controls with the same light grey back ground of the form.
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?
How do I change the background color of a tab or can you? The form that I am looking at has a tab button, but it looks like a normal form for the background. It has the grid and has a color for the background. I have designed a new form and added a tab control. But the background is grey and I would like to change it. Please help, if you can. Thanks.
I have a report card program that I use in my classroom. The program calculates letter grades for various sub categories.
For example, under the Primary Category Math, the computer will calculate a letter grade based on assignment scores and place the grade into a combo box for the sub category "Able to use a graphing calculator."
If I override the grade the program calculated for a student, I would like the text in the combo box to change to red for that student only. Then I can go back and quickly see which grades I have manually changed.
I just cannot seem to figure out the logic to use VBA that would check to see if a user has changed individual combo boxes.
