I'm using Access 2010. After creating a new database the standard screen appears that contains a grid to enter data and across the top of that grid is a row which is supposed to contain column titles. According to Microsoft Access all I have to do is double-click the column title so that I can set it to whatever text I want. the cursor remains in the next row assuming I want to enter some data. Why can't I change column titles from their default values?
I'm making a db that will import a spreadsheet from Excel, then separate it into 3 different tables using queries, but then I need to put all the 3 different tables together one after the other. The problem is that the 3rd column on each table have different names on each table, so I can't append the tables together.
So, how can I use a Macro or something to change the column name on all 3 different tables so that they match and can all get appended together.
For Access 2003 - is there a way to stack one word on top of another when you rename a column? So, instead of having two words side by side for a column title, is there a way to put one on top of the other?
For example - change from this "today's date" to "today's date"
I can change the application title using the following only if the Application Title is blank. If it is not blank then it does not change.
Code: Dim db As Database Set db = CurrentDb() Dim newtitle newtitle = "qwerty" Set newtitle = db.CreateProperty("AppTitle", dbText, strNewTitle) db.Properties.Append newtitle Application.RefreshTitleBar
I have a form with command button, when clicked it displays My report in Preview. I want to change the report title whenever i click a button from the form. I believe it is to do with VBA and am new in that.
How to change the Title of a graph with code. By title I mean the box on the graph that automatically displays the name of the table used to create the graph in the chart wizard. I've tried numerous bits of code found in different forums but they all failed.
Access 2010 OLE Class: Microsoft Graph Chart Class: MSGraph.Chart.8
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 have created a cross tab to extract pipeline and sales for Q1 2014, Q2 2014, Q3 2014 & Q4 2014... the user can select the quater from a multivalued text box...
Now for the final output, have created another query which pull the above four quarter in each column from the cross tab...now the problem arises when i change the quarter to Q2 2014, Q3 2014, Q4 2014 & Q1 2014..it gives an error "Microsoft office Access database does not recognizes "Query name" as a valid field name or expression".
The error is because the second layer of query does not identifies Q1 2014.
How do i make access change the column automatically when the Q1 changes to Q2...
I have a Access 2003 file and I want to filter anywhere where there last name is "expired" and change the column first name to say "no". How do I do that?
I know when creating a text field in the format option you can use the > or < sign so that when text is entered it automatically changes it to uppercase or lowercase - but i need it to be Title Case, any one know how I can do this....
i have a form that will have a column called [animalID] which is a 5 digit number. Only the first numer really matters. If the five digit code starts with a:
1,2,3,4 = cat. 5,6,7,8,9 = dog
example
animalID 29878 - cat 67424 - dog 47812 - cat 92435 - dog
I want to change column position as following order: Company, Start Month, Mar-05 , Apr-05, Fees ABC_________Mar-05____1_______2_____7 ABC_________Apr-05____________4 _____5
I tried to use this code:
Dim db As DAO.Database Dim rs As DAO.Recordset Dim qd As QueryDef
Set db = CurrentDb Set qd = db.QueryDefs("report_crosstab")
qd.fields("Fees").OrdinalPosition = 4
It doesn't work for crosstab query.
Can anybody tell me how to change the column position of the query?
I have a Graph that uses a crosstab query to generate the data. Its only a simple query. One of the fields is project type, but in the query this changes to a number instead of text? I would like to have this as text but don't know how to go about it. I have searched forums and tried Allen Browne's suggestion on specifying column headings but no luck.
I have attached the initial query and the crosstab query in the screen shot as well as the graph. My aim is to get the project names in the legend, instead of 1, 2 as shown.
When I originally created my access database, I used a text field/column to connect 2 tables together. I would like to change this to reference the Primary Key/ID column instead of the text field.
Is there an easy way to go about doing this? My original thought was to create some vba code to replace the data in the column of the sub table with the autonumber in the primary table but I cannot figure out how to do it.
I have inherited an Access 2003 database and have been asked to improve the functionality of said database. Specifically, I have been asked to create some charts for improved reporting. I used the wizard to create a crosstab query to support the chart(s):
Code:
PARAMETERS [Forms]![Switchboard]![ActualDate] DateTime; TRANSFORM Sum(qryPMCompletion.CountOfWOs) AS SumOfCountOfWOs SELECT qryPMCompletion.PA_Priority FROM qryPMCompletion GROUP BY qryPMCompletion.PA_Priority PIVOT qryPMCompletion.wo_Completed WITH OWNERACCESS OPTION;
Now what has happened is that the wo_Completed is a Yes/No field so my column headings and therefore my legend comes up as "-1" and "0" instead of "Closed" and "Open".
Is there anyway to change the name of the column headings or shall I just create my own legend?
Currently I have a calculated field in my table; however, under certain circumstances I need to change the value to another value which is not related to the calculation. I understand that the calculated fields are read only (why is that?), so I was wondering if there was any way to change values within a calculated column without actually changing the expression itself.
How to change a combo box to a text box control in a subform for a field that is based on a two-column value list. I want to be able show the value in the unbound column (which is a text value instead of a number).
My subform has a field called "ProjectStatus". This field is a value list in my projects table with the following row source:
So, it is set as a two-column value list with a number data type for the bound column. In my forms, column 1 is made invisible (set to 0") so that only the text value is shown to the user. This works fine with combo boxes.
However, I want to change the unsightly combo box to a text box and show the text value of the unbound column (this form will only be used to show data not for entry). When I change it to a text box control, the value that appears is a number, of course.
If ProjectStatus were based on a table, rather than a lookup value list, I would query it but I am not sure how it should be done with a value list. I could just store the text value instead, I guess, and redo a bunch of stuff or I could create a "Status" table and redo a bunch of stuff (this seems like my lot in life lately) but I feel like there should be some way to do this.
The following code works to change the column header name for a listbox in form view when the data source is a local table, but not when the data comes from a sharepoint list.
Code: sqlstatement = "SELECT ID, PONum as [PO Number], ActDate as [Date], VendorName as [Vendor Name], Service, BuildingNumber as [Building Number], ReservationDescription as [Description], POAmount as [Amount], QuoteType as [Type of Quote], Comments" & _ " FROM ActivityLog" & _ " WHERE (Activity = 'AcceptReservation') AND (PSCName = '" & Me.PSCCombo4.Column(0) & "')" & _ " ORDER BY ActDate;" 'MsgBox sqlstatement Me.EditPOListBox.RowSource = sqlstatement sqlstatement = ""
Also it appears that there is no such thing as a caption property for a sharepoint list column.
I will try to explain what I have, but for a little more information please see the thread where I was trying to get a single instance of this query to run: http://www.access-programmers.co.uk/forums/showthread.php?t=146582
This above thread was to allow users to select a valid month from a "quota" table of data to compile work data for that particular month. The way this all works is I delete a history table, append the data from my work table, and then add the data from a quota table. Each time a user runs this report, those three queries run dependant on the month selected. At the bottom of this report I sum up the columns to give an overall total for production numbers. The table is set up as: For MMM YY (selected) Item........Repaired......Quota widget1........1...............3 widget2........2...............0 widget3........6...............4 widget4........2...............2
Now what I need to be able to do is to retrieve all these totals at once; so that the numbers can be graphed by month. This history table that is built is not perminantly stored; since all the 'data' for it is contained throughout a couple other tables. I didn't see a reason to need to store 'all' that data again since it could be retrieved as needed.
Is it possible to write a query that will run this process for all distinct dates in the quota table and sum the data for repairs and quotas? Something like this:
I want to put a value from a field in a table in the Title Bar.
So far i have done (Looking at 2 ways to create, 1 with module below or directly in the form, only just lloking at the module way so is not finished as i am waiting to get it to work directly first):
Module Option Compare Database
Function ChangeTitle() Dim dbs As DAO.Database Dim prp As DAO.Property Const conPropNotFoundError = 3270
On Error GoTo ErrorHandler ' Return Database variable pointing to current database. Set dbs = CurrentDb ' Change title bar. dbs.Properties!AppTitle = "DYSMS " & (SoftwareVersion.tblSoftwareInformation) ' Update title bar on screen. Application.RefreshTitleBar Exit Function
ErrorHandler: If Err.Number = conPropNotFoundError Then Set prp = dbs.CreateProperty("AppTitle", dbText, _ SoftwareVersion.tblSoftwareInformation) dbs.Properties.Append prp Else MsgBox "Error: " & Err.Number & vbCrLf & Err.Description End If Resume Next End Function
Directly
Does not work Dim stAppTitle As String stAppTitle = "DYSMS " & (SoftwareVersion.tblSoftwareInformation) Me.Caption = stAppTitle
Does work Dim stAppTitle As String stAppTitle = "DYSMS " & (Now()) Me.Caption = stAppTitle
So need to declare the SoftwareVersion field i guess??
