Not sure if this is possible but I have a few text boxes on a report set to vertical yes under properties. They print fine, but on the pre-printed forms I'm using they print upside down. Is there a way to realign they way the text prints when using the vertical yes setting? I really need they text to be inverted. I'm I asking an impossible question? Thanks..
Anyways this at first seemed not to be too hard however has become a bit of an issue.
I would like to have a vertical block with the color green in my report. This block should be as long as the page itself, however I cannot get it to cover the whole page as it will stop when the report runs out of data. Does anyone know a 'trick' that would force this box to be as big as one page, without making the details section this large by default (I dont want only 1 record on a page).
Background: I have a database with one main table that contains info on a variety of organizations and the services they offer. Another table lists regions these organizations are located in. The services they offer are listed in 11 different categories, each with its own field in the main database.
The end product of the project will be several reports. In particular, I need one report that lists by zipcode, each organization, its contact info, and any details about its services. The data for each organization will appear on several lines, as shown below: --------------- Org name Region Address Driving Directions Contact Name Phone Comments
Food bank: details of hours, etc. Hot meals: details.... [any services not offered does not appear or take up any vertical space] ---------------
The problem: Since the reports will be printed and put into booklets, we need to eliminate any blank lines caused by empty fields. In many cases an organization will only have one or two categories, so the other 9 or 10 lines would be blank and take up too much space on the page.
What I've tried: First I tried creating SubReports so I could use VBA scripts on the On Print event on the Detail section to make the SubReport invisble if it didn't have any data (HasData is false). That did make the SubReport not print, but it still took vertical space.
I struggled with various combinations of Can Grow and Can Shrink, but kept having problems with multiple lines appearing where there should hav been one line, and sometimes they were blank lines (especially if I didn't allow duplicates and there were several entries exactly the same). Whenever I got that undercontrol, the fields with no data took up space. Frankly, I'm not convinced I ever got them to NOT take up vertical space. (Maybe I didn't get it right. I'm open to trying again.)
Then I tried concatenating fields onto one TextBox, like this: Code:=("Food Purchase: "+[Food Purchase]+Chr(13)+Chr(10)+Chr(13)+Chr(10)) & ("Utilities: "+[Utilities]+Chr(13)+Chr(10)+Chr(13)+Chr(10)) & ("To Prevent Eviction: "+[To Prevent Eviction]) That works, but it seems like an ugly hack. The Chr(10)+Chr(13) create new lines. The + instead of the & makes it so that if any of the elements inside the parentheses are null, none of them print. So I can eliminate both the label and the new line, too.
Isn't there a better way to eliminate the vertical space when there's no data?
I need to replicate an existing report that has a number of 3 columns across the page and has 35-40 rows down the page...it's like a table in Word or a spreadsheet in Excel. I need to print the column and row lines.
Is there a simple way to include these in the report other than me drawing each and every line?
I have a report rptEnvelopes to print envelopes. In the report I have text box called txtRecipientName . I have a qryAddress with fields notNo, IDCard, Fname, Lname where notNo is a field that takes its value from a combo box called cboSelectEnvelope from a form frmPrinting. I then wrote the following code:
Private Sub Report_Open(Cancel As Integer)
Dim dbLet As Database Dim rsLet As Recordset Dim sqlLet, criteriaLet, txtRecipientName As String Dim stLet as String
Set dbLet = CurrentDb sqlLet = " Select DISTINCT IDCard FROM qryAddress " & _ "WHERE notNo = " & Forms!frmPrinting!cboSelectEnvelope Set rsLet = dbLet.OpenRecordset(sqlLet, dbOpenSnapshot) If Not rsLet.EOF Then rsLet.MoveLast stLet = "rptEnvelope" criteriaLet = "notNo=" & Forms!frmPrinting!cboSelectEnvelopeReports 'This is where I go wrong: 'How to I declare txtRecipientName, on rptEnvelope, to get the value rsLet!Fname&" "& rsLet!Lname DoCmd.OpenReport stLet, acViewPreview, , criteriaLet End If rsLet.CLOSE
NOTE: Private Sub Report_Open is called from the On Open Event of rptEnvelope
Mainform width is 22"(Maximum) Subreport Wdth is also 22" (Maximum)
When i run the mainform, the subreport shows correctly but the vertical scrollbar is at most right side of main form so i have to scroll main form horizontally first to access the vertical scroll bar of subreport.
To solve, changing subreport orientation to right-to-left shows vertical scroll bar at most left but still if i scroll horizontally on mainform, that scrollbar hides as its not freezed.
Consider ActiveX Control of Microsoft ScrollBars 2.0 .....
How to Creating a Three-Level Navigation Form, First and second level must be in horizontal orientation, third level desirable be to vertical orientation and dependent of level 2.
I have a form which I would like to enable scrollbars both horizontally and vertically (the main reason being, the application is designed for users with large / wide screens but may at some point be required on smaller screens)
Currently I have the scrollbars switched off and the form maximises but everything goes to pot if I resize the window. I'd like to add the scrollbars so if a user wants to resize the window to, say, half the screen, they can still scroll across to the 'hidden' parts of the form.
The problem with this is, if the form is maximised - or at least large enough to show the entire form - the area of the screen where the horizontal scrollbar resides is white (whereas the background colour of the form is a pale green) Which is quite unsightly.
I know I can remove the problem by removing the horizontal scrollbar and the navigation bar (which is already gone!) but then I can't scroll?
Is it possible to have a horizontal scrollbar but not have that white space at the bottom when the scrollbar is not required?
(Doesn't appear to be a problem with the vertical scrollbar?...)
I need to display the year, Date, agent name, amount field, note and sub total for each year.I need to write the SQL query code in VBA and i designed the report with proper field positions.
YEAR column: Display Value only once for the FIRST ROW for Maximum value of Date field value for each set of YEAR. If it has only one record, it display that year.SUB TOTAL Column: Display Total Value for Amount field only once for the LAST ROW of each set of year record (Mininum value of year). How to make it available the values for first and last record alone ?
I just wrote my SQL code based on your inputs in my editor..Based on the input from Plog (from this forum), i wrote a code which listed below.
Code: Private Sub Report_Open(Cancel As Integer) Me.RecordSource = "SELECT CessioneCredito.Anno, CessioneCredito.Data_Movimento, CessioneCredito.Note_Liq_Cessione_Credito, CessioneCredito.Importo, " & _ " Agenzie.Denominazione, DCount("[Anno]","CessioneCredito","[Anno]=" & [Anno]) AS GroupSize,
[Code] ....
While saving it, it shows the code in RED COLOR due to compilation error.As I am writing the query in Me.Recordsource = "SQL query", where i should place the below listed code in the query as per Plog???
Change the Year Control Source to this: =IIf([GroupPos]=1,[Year]) Change the GroupTotal Control Source to this: =IIf([GroupPos]=[GroupSize],[GroupTotal])
If this is not possible in Me.recordsource, then its advisable to use recordset like writing in two different queries.
Code: Dim ds1 As Recordset Dim ds2 As Recordset myquery1 = "SELECT CessioneCredito.ID_Agente, CessioneCredito.Data_Movimento, CessioneCredito.Importo, CessioneCredito.Anno, CessioneCredito.Note_Liq_Cessione_Credito, Agenzie.Denominazione FROM CessioneCredito INNER JOIN Agenzie ON CessioneCredito.ID_Agente=Agenzie.ID_agenzia WHERE (((CessioneCredito.ID_Agente)=[Reports]![R_StoricoCessCredAg]![ID_Agente]))"
I am trying to improve my code by making it more readible. The following code works, but it is certainly not the most efficient way. I`m trying to write a loop to make certain elements in an Access report visible/invisible, but I can`t address the visibility property of these items while iterating over i.
I have a form for updating contact details of customers/suppliers. Upon clicking an edit button the user can update txt boxes (as opposed to updating the table data directly and making a mistake). When they press save the below code runs:
Code: If Not IsNull(Me.txtp_fname.Value) Then Dim strFirstName As String strFirstName = Me.txtp_fname Dim FirstName As String FirstName = Replace(strFirstName, "'", "''") End If
I have a few forms - one search form (frm_main_search) which uses a basic datasheet view as a subform (subfrm_main_search), and one form which I launch from the subform (via a double click event) for the user record - frm_user_record.If I search for a user, then select them from the datasheet view query results, I can launch the user record as frm_user_record.
However if I then change anything on the user's record, I go to search for another user in the database and get the Write Conflict dialog. See my attached screenshot for a view of my form.I've changed the data of one of the visible records on the data sheet, so it needs to reload the data. However I'd like to suppress this error as I'm dealing with hundreds of these a day and it also confuses some of our less tech savvy users.
I ALWAYS click "Drop Changes" and encourage my users to do this too but is there a way of preventing this dialog from appearing?
I have a form which has an unbound text field which is a calculated filed showing a date which is x months after a separate field on the form.
I need to write this field back to a table in the database when an "add" command button is clicked.
The table is called Assets The form is called Assets List The text field on the form is called txtWED and needs to be written back to the table "Assets" in the field "Warranty_End_Date"
If possible can I add this as an expression on an "add" command button?
How would I go about getting vertical lines as column seperators down the entire page. The problem I run into is every time the row size changes there's a break in the column dividers. Someone suggested using a function in the On Print event for the report, but there is no OnPrint field in the event tab of the reports properties. If anyone ever did anything like this before, please let me know.
Due to limited space in my Report Heading, I am trying to vertically label columns. I figured out in the Properties section of the label that I can turn on Vertical Label. However, when I view it on the report, the label, which is now vertical is turned to the left vs the right. How do I flip it? In addition, is there a way to rotate the text to a 45% angle.
I have a series of Unbound control boxes in one row. some text extend to two lines and I want everything to be centered both horizontally and vertically.
Can't figure out how to vertically align the contents of the controlb boxes...
How can I change the Vertical Scroll bar color? I want to keep it for using, but the color is always grey color. How can I change the color of the scroll bar?
I have a text label that I would like to have vertical instead of horizontal. In the properties box, I go to the other tab and set 'Vertical' to yes and the text rotates. Except it rotates 90 degrees clockwise. (The text starts at the upper right corner and reads down, you have to tilt your head to the right to read it.) This seems the wrong direction to me and to my office mate - all the tables we've seen with vertical text has the text rotated 90 degrees counterclockwise (text starting from the lower left corner and reads up, you have to tilt you head to the left to read it.)
Is there any way I can make the text rotate counterclockwise instead of clockwise? I really don't want to create many little graphics.