What I want is in the combo box, I have a couple of options, say 1,2 and 3.
And I want the combo box to come up with different color when different option is selected.
I thought I have found out a way, with the following code to onClick:
If me.field.text = "1" Then me.field.backcolor = 255
The problem is, it's being shown on a continuous form.
And it changes the color on all the records. not just the one I am on.
Any thoughts?
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.
Thanks ahead of time for any ideas.
I have two forms sourced from one table. if the address of a client has changed then there is a Command button that opens a form to enter the previous address.
What I want is for the text on the command button to change to red if there is a previous address filled in. I have seen it done but cannot copy the code. What I have is on the OnCurrent event of the (main form)
Dim InColor As Integer
InColor=255
Me.[Command126].Forecolor=(And what I want to say here is "If the field previousaddress is not null then ...)*255
Any ideas??? (I wanted to have the database completed before the New Year (less than 12 hours to go!!!)
I have some code to check a combo box if a date field is filled in, then the combo box can't be empty.I can make the error message appear, but the combo box does not want to change color and it does not recognize any other than value..This is the code that I have, and it does not work like I wish it could.(I took the database over from some one else and need to make improvements on it. the field names where not created by me).
Code:
Private Sub cmbCurrentStatus_AfterUpdate() '<<<<<<<<<<<<<<<< Working on >>>>>>>>>>>>>
If IsNull(Me.[STEP 1 4 check current status]) And Not IsNull(Me.[Checked__date_]) Then
MsgBox "Checked (date) can't be empty if Current Status is filled in!", , "Incomplete Form!"
Me.[STEP 1 4 check current status].Value = RGB(255, 0, 0)
Else
Me.[STEP 1 4 check current status].BackColor = RGB(255, 255, 255)
End If
End Sub
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
2346 location warehouse price 29.99 (button - green)
2347 location shop price 29.99 (button - red)
Hey all,
I've tried to find this on my own, but without luck. I have a Microsoft Access form that I've build. The data is pulled from tables I built. There is a "User" dropdown, an "Email" field and a "Phone Ext." field. I'd like to set it up so that when the "User" dropdown triggers an On Change event, the "Email" field and the "Phone Ext." field automatically update with the appropriate data (all from the same table). Can anyone help me with this?
Thanks,
- MT
Access 2003:
I have a query (qryGetRemoteStuff) like this:SELECT * FROM Table1 IN 'k:projectssomedatabase.mdb'I have several databases where i use this technique. I don't want to link these tables to my database.
According to the properties list, "Source Database" is used to store this path to my remote database.
So far so good.
When the path changes i am in a lot of trouble, that is why i want to change the path of this query dynamically. I don't seem able to change this property.
Is this possible? How?
Immediate window:
?currentdb.QueryDefs("qryGetRemoteStuff").Properties("SourceDatabase")Returns "Property not found". Access help F1 doesn't provide me with a workable example.
Could I change my unbound textbox (txtperiod) on the Report to display the time period.i.e.
Weekly, Monthly, Quarterly
Criteria is BeginDate and EndDate on main form.
I am trying to change dynamically the text of the PivotChart, according to the current filter. This is a user request. The VBA code should run whenever the view is changed to pivotchart. I'm im Access 2007
This is my code so far:
Private Sub Form_AfterFinalRender(ByVal drawObject As Object)
If Not (Me.CurrentView = acCurViewPivotChart) Then Exit Sub
Me.ChartSpace.HasChartSpaceTitle = True
Me.ChartSpace.ChartSpaceTitle.Caption = Me.Filter
End Sub
This generates an error:
Runtime error '-2147467259 (80004005)':
Cannot change chart attributes in an event handler
I am stuck. Is there any way around? I have placed a button to the datasheet view of the form to take users to PivotChart view. I can change the chart title from the code of that button. But I can't prevent users from using the built in ribbon button for pivotchart view, so I need to run this code from an event.
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
View 7 Replies View RelatedOn 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
Jabez
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?
View 7 Replies View Related:confused: <b>Hi all, can Access highlight the selected rows in table just like the spreadsheet in Excel??
Many thanks,
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.
I set the white background color. But, the record selector is grey color. Can I change the white color of the record selector bar?
View 1 Replies View RelatedI have an option group of buttons. Is there a way to change the text color of the chosen button?
Thank in advance - John
I need to change the background colour of a text box after a change to the field has been made?
ie.
Make: IBM (Background Color Grey - Default)
User makes a change to Make ..
Make: Toshiba - (Background Color changes to Yellow )
I'm trying to code this with the OnChange option on the TextBox but can't see to find the right code.
I was using Application.SetOption"Background", colour value with no success
How do you change negative number to red in a report's text box? i am thinking it is an iff statement in the control source field but running into issues.
Is there a way to change all Negative nubmers to red in a Report? That is, do i have to change all text boxes individually?
I have created a MS Access barchart by running a query. X axix has user name and y axis has counts. I would like to change every bar's color based on the x axis user name value .Is there a way to do that using vba code in MS Access barcharts.
View 7 Replies View RelatedAll 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.
Member Details:
Member List:
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
Hi, I am new to asp development and have been searching all through the web and books to help me but I am a little stuck and would appreciate some help please with updating a second combo box.
I am developing an online fault logging system for a school where the teachers/pupils can report a fault with any computer equipment to the technicians so they then can fix it.
I have two combo boxes called ResourceType and Resource ID which are created and populated from two different tables in an Access database (I dont want to annoy you with the code but if you like I can show you)
When ResourceType combo is selected it should automatically update the ResourceID combo from a table in the database. eg. ResourceType=Laptop then ResourceID should be populated with all the entries in the DB which correspond to Laptops, i.e. Laptop001, Laptop002 etc.
ResourceType combo is populated from table tblResourceType in the Db and ResourceID is populated from table tblResourceID. This works fine when the page is first loaded but I have problems with the onChange="handleChange(this)" function for the ResourceType combo. It is :
Code:function handleChange(nSelection){var IDSelect,iCountIDSelect = document.form.ResourceID //Reset the ResourceID combo contentsfor(i=IDSelect.length; i>0;i--){ IDSelect.options[i-1] = null} //Open Database<%set db=server.createobject("adodb.connection")db.Open"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("MCB Fault Log.mdb")dim dbaseset dbase=server.createobject("adodb.recordset")%> <%Dim iCount 'counter variablesSQl = "SELECT ResourceID from tblResource"dBase.Open sSQl , db%> //Reset Counter iCount = 0<%do while not dBase.EOF%> IDSelect.options[iCount] = new Option(<%=dBase("ResourceID")%>);//********This does not work****** //IDSelect.options[iCount] = new Option(iCount);//***HERE**This works (places the count of each record in the combobox iCount = iCount + 1; <%dBase.MoveNextloop%>}
Dont worry about the SQL statement for now, I am happy just for any table to fill into the combo. Look at the //********This does not work****** line - I think I have the syntax wrong, I have looked at lots of examples on the net and I cannot find one similar to this. The line ***HERE** places the number of the count into the combo box so at least i know the the database is being accessed.
Does anyone know what is going wrong here.
Thanks in advance for any help you may give
Cush
Hey
I have access query opening in excel. After it opens i would like everywher where where is says "no", to make next 2 cells BLUE.
The code below is doing it, but it's taking few minutes.
is there any way to speed it up ?
'shading non-matching items
With objActiveWkb.Worksheets("Reconciliation Sheet").Range("b5:ak500")
Set c = .Find("No", , , xlWhole, , , True)
If Not c Is Nothing Then
sAddress = c.Address
Do
c.Offset(, -2).Resize(, 3).Interior.Pattern = xlSolid
c.Offset(, -2).Resize(, 3).Interior.ColorIndex = 33
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> sAddress
End If
End With
I searched around but i couldnt really find or atleast understand how to do what i want to do. I want upon the user clicking on a checkbox for the background of the form to change to a set color?
View 8 Replies View Related