Forms :: Custom Bar Chart Using Rectangles - Control Height Change Direction
Feb 10, 2014
I am trying to make something like custom bar chart on a form using rectangles. I made 4 rectangles (BarBZ, BarBA, BarKI and BarMA) and have the following code:
Code:
Dim PctBZ As Double
Dim PctBA As Double
Dim PctKI As Double
Dim PctMA As Double
PctBZ = Me.BZ / (Me.BZ + Me.BA + Me.KI + Me.MA)
[Code] ....
It works perfectly except... the rectangles grow/shrink downwards and not upwards. As a result the bars are aligned to top, while I would like to have them aligned to bottom.
I've got buttons (on the header of my form) that I plan to make act as tabs for a single record.Each button should display more information for the same person (basically, more fields from a different table, but with the same primary-foreign key).So, when I click (one of) these buttons, a different form should open and display the record assigned with the same primary key.I don't want to use the default tab control because it's ugly and doesn't go well with my theme or my layout.
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.
How do I make the blank line disappear after the control is no longer visible? I tried to set the Height property to 0 in the OnPrint Event but I got an error message 2191, you can’t set height property after printing has started.
I have just tried experimenting with placing a Chart control within a form (Access 2010). Although the chart ultimately seems to work (based on my one simple example), I'm getting an Error 1907 (Could not register font.......) each time I launch the database or reload or edit the form.
This error message is itself contained within a "Configuration Progress" screen for MS Office Prof + 2010 which seems to complete if I select Ignore the error message but runs again each time the database is launched (with the same error message showing up part way through). I am logged on as Administrator.
I have a report that prints lab tests. One section has 4 columns that are framed. Only the first control (STest) expands to more than one line. The Can Grow works on this control and subsequently the section expands. I need a code that expands the height of the other three controls to match that of STest. I am using office 2010.
When the user click the button, then it will give out a popup form to the screen, but I want to make the popup form's height as same as the screen/window/monitor's height, because the popup form's height is larger than the screen's height, and every user's monitor's height is different. So, I have to make it flexiable change of the height of the popup form. How can I check the screen/window height by VBA function? In Excel, it has Application.Height to check. In MS Access Form, I cannot find one for doing that.
I am working on a report that will have 16 sub-reports, one right below the other. Because of the complex nature of the calculations in the groupings it seemed easier to "build" the report using vba rather than using the report's built-in grouping ability. The issue I am running into is that there seems to be no simple way to control the height of the sub-reports. I had hoped that setting "can grow" to yes would change the height of the sub reports and move all subsequent sub reports down (Allas)
As an alternative I thought too that I might be able to set the height of the sub-report control, which would make for a tricky but not impossible bit of programming, but (Again allas) I can't seem to find a reasonable way to determine the required height of the sub-report's control.
how to change Access default error messages with custom messages? Like, if I enter some data in a sub form where the parent form is empty new record, default error message says that 'You must enter a value in the 'column name' field'.
I want to disable this default message and display my own error message. Now I know MessageBox and MsgBox fuctions to display custom messages, but how to disable the default message.
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 an unbound form with a combobox which needs to be validated before the control is updated.In the Before Update event I check that the value is valid and need to reset the value back to the previous value if not valid and then change focus to another control.I thought that the following code would work but the selected value remains in the control and I cannot move the focus to another control.
Code: Private Sub cboYears_BeforeUpdate(Cancel As Integer) Dim dteNewDate As Date dteNewDate = DateSerial(Val(Me.cboYears), Month(Me.txtCalendarHeading), 1)
I am editing a database that provides the option of creating custom reports, where the user can input a date range of their choice and receive aggregate data for that time frame. Although all of the numbers in the report are correct, I am having trouble with a chart that I inserted into the report.
Specifically, if the date range requested spans 2 calendar years (i.e. April 2014 through January 2015), the data for January 2015 appears at the beginning of the year (so the chart x-axis is for Jan through Dec, and the Jan 2015 data is showing up in Jan (as if it was 2014, not the end of the given range in 2015). When I try with smaller time frames within a calendar year, it adjusts just fine (i.e. shrinking the window so just March-May is displayed on the graph).
How to adjust the axis so that it properly records the data range- so that it would start the axis with April and end in January, for example?
I have a form which is set to display continuous forms - just like a table but a bit nicer to look at! is it possible to make the forms height vary depending on how many records there are?
I have a pop up form that likes to change it's height after I enter design view among other things. I've searched the webs, but can't find out strictly how to set my pop up form to be height X and ALWAYS be height X no matter what.
The best answer I've found so far: [URL] ....
But as soon as I went back into the form in Design View the changes were lost.
Is there some VBA code I can use to resize the form every time it's opened?
Since many years I "fight" with pop-up forms, as in endless view I cannot figure out HOW to fix the height.
Some forms keep a height which was set by the System and it is suitable others have the full height of the Screen and I cannot find any Setting which can influence them.
How to define or to fix the height.
It only works when I set the border to "changeable", but not when I want to fix a height by Setting the border to "Dialog" ....
I have a bar pivot chart made in a form this load fine, I have the below VBA code in place to control the bar color depending on what the bar show.
Set frms = Forms![OtherCases created by Indv by Month chart].Form.ChartSpace.Charts(0) Dim i As Long With frms For i = 0 To Forms![OtherCases created by Indv by Month chart].Form.ChartSpace.Charts(0).SeriesCollection.Count - 1 With .SeriesCollection(i).Name Select Case Forms![OtherCases created by Indv by Month
[code].....
When I then open the Report this is not working at all each bar just get a random color regardless what the bar show.how to convert the above to fit a Pivot chart form a form that is displayed on a report.
i have a subform (A) which shows records after an query..i want to set height of subform on base of records as some time query shows 2 records and some time it shows 10 records..how can i set auto height of sub form
i have a subform name(SUBSAL)in this subform i get reocrds for some employee as select combobox Name(CMBEMP).some employee having 2 record or some having 6 record as their transaction
i have sum of transaction at subform footer field but when only 2 records shows in subform it shows a major gap or blank space in subform detail section.
Is it possible to make it so that whatever the dimensions of the image i paste the OLE object's frame will also be the same? I'm having a problem, not necessarily a problem more like a preference, I'm inserting pictures of each individual inside a database and whomever last took these pictures didn't make sure there was a standard size So all the images are different sizes and when they're put inside the OLE frame you can see the image inside it but the frame itself also shows its white background because the image isn't the full dimensions of the frame. I was thinking if it's possible to make the frame automatically adjust to the image's width & height.
Just wanted a little help please. I have about 100 option boxes on a form and I want to be able to change the names of the option box and its label. I want to name them from 1 to 100 sequentially. (i.e. option1, option2 ...).
When I create the controls it automatically names them option0, option2 etc. and label3, label5 etc.
I was going to change them via some code but I don’t know how to refer to a control in a form from design view.
I have a form with 2 tabs and a sub form on each of those tabs. form1, subformA, subformB on tab control - tabctrl - pageA, pageB. How can i set focus from one tab to another without actually clicking the tab?
I tried this:
TabCtl.Pages("page2").SetFocus
It's comming up with an error - "object required"
I also tried:
page.2.setfocus and that's comming up with an error that it's wrong syntax.
I also tried:
formMyForm.page2.setfocus and that says object required as well.
