Modules & VBA :: Minimizing Empty Lines On A Report?
Jul 30, 2013
The overall goal is to hide a whole line of a report using "canshrink" on a series of boxes, some of which are numbers and some that aren't. Some will be blank when the data is loaded into the form and I want these to make the rest of the form adjust.
Code:
Private Sub Form_Load()
If Me.Label33.Value = "<1" Then
Me.Label34.Caption = "Nothing."
End If
End Sub
I have a very simple database with one big table and a series of forms to walk researchers through data extraction from scholarly articles. Each researcher has a copy of the database and I export their info and merge it in a master file. One of my new researchers has just started and come across a problem I've never seen before. On her third record, access suddenly started replacing characters typed in (or selected from drop-down boxes) to the form fields with bold vertical lines, like this: ||||||On the table, they look like empty boxes instead of vertical lines. What she says happened was:-She was entering data into one of the forms (say form 4 of 7 - there are macros to open the new form when you finish the one you've been doing, but they only all close at the end of all 7 forms)-She saved-She looked at a PDF document on the same computer-She switched back to the database and several (but not all) of the characters on the form were replaced with the vertical lines. When she looked further, some fields on other forms (but not all the other forms) also had these vertical lines. Finally, one field had replaced the characters she'd typed not with vertical lines, but with some characters from another field. Is her copy of the db just corrupted? Is this some known bug? Can we avoid this? Thanks for any insight or referral.
I'm working on a report. I have a text box that contains directory path for a picture which is showed in a image box on my report which works great. I have now created a label called "nopiclb" that has "no Pic "entered in it but I want to set the label to not visible if path1 has a file path in it but visible if path1 is empty
I put the code below in onformat event in the detail section, but is not working
Code: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If IsNull(Me.path1) = True Or Me.path1 = "" Then Me.Nopiclb.Visible = True Else Me.Nopiclb.Visible = False End If End Sub
Does anyone know how to make a report have lines in it like excel can do when you print out. My boss likes to read this data with lines seperating stuff. Thanks.
In my first steps working with Access I feel unable to find out how can I create a report that shows the data (records from a Clients Table - Name, Phone, e-mail fields-) in a "spreadsheet like" format with gridlines. Can anyone help me on this?
how I get rid of the lines appearing in a report? I've set everything to transparent but the group header and subsequent records in the subreport all have separating lines.
I have a specific form, paper version, that I'd like to reproduce in an Access report. This form, which has 34 blank lines in the paper version, is used when people need to borrow some Tools or Equipment on a short period of time.
My report is made up in Access, but, if a person signs for, lets say, three different piece of Equipment, once it is sent to the printer, it prints three lines, which are the equipement signed for and it leave a big empty space before it reach the page footer.
What I need is something that will fill that empty space with blank lines. I found the following on the Net which meets my needs up to a point. What I mean is once it print the last line, it keeps on printing the last line until it meets the total count of 34 lines.
Here what I found on the Net: (note that I have a =count(*) into the Group Header)
Option Compare Database 'Use database order for string comparisons Option Explicit Global TotCount As Integer ' Call the SetCount() function from the group header section's ' OnPrint property using the syntax: =SetCount(Report)
[Code] ....
I submitted an attach file (blank_lines.gif) to show you what I end up with.
It's my 1st posting! Need help on how to get Unbound OLE objects (i.e. lines, pics, et.) reflected when publishing my Access report into MS Word. So far, only the data are exported. Appreciate your help.
System Info: Intel Celeron 700MHz, W98SE, MS Access 2002
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 base on a select query but in the report i get the following:
page 1 = record 1 page 2, page 3, page 4 = are empty (nothing to see on the pages) page 5 = record 2 page 6, page 7, page 8 = are empty (nothing to see on the pages) page 9 = record 3 ...........etc... So there are three empty pages between every two pages(records).
I have checked in the settings of the report and all properties but cannot find the solution.
Can any one help me to solve this ? Thanks in advance
Hi, When the user clicks on the file name, I want the form to load automatically & also at the same time minimize the database window (i.e. the window where all the tables, queries etc are listed). Any suggestions?
Hello, I am not really sure if this is a form issue or not.
I am running Access 2002 with a SQL back end for the database in question.
The forms were original run from queries but are now being run from the tables to make them faster. Since I have done that the users are complaining of an issue when they minimize and then maximize the form.
Here is a little history to explain the process they do. The open the form and have to hit the New Record button to add a new record. They do that and when they are finished with the record hit the New Record button again. So their form is on a blank record. They will then minimize the form and go into another form. When they maximize the first form to do more data entry the form will go back to the first record in the table instead of being on the New Record they thought it would be on.
Apparently this was working that way when the form was based on a query but since I change it to be based on the Table it started going back to the first record.
Is there anyway to fix this? If I am not clear about this let me know.
I have a memo field that feeds to a textbox control on one of my forms. I would like to re-format the textbox using the .Height value based on how many lines appear in it (i.e. it will fit only 3 lines if there are 3, but 5 lines if there are 5, etc.).
Is there any way to count the number of lines that appear in the textbox?
I have a VBA program that I wrote in access. My question is this: Is there anyway to eliminate or minimize the main Microsoft Access program window so all the user would see is my forms and the desktop? Not that ugly gray back drop? Thank you in advance for your help.
I have a table with temperature readings over a 12 hour time period. I have to find the average temperature over that time period. I built a query for a specific time period that listed all of the temperatures. I then queried that query to get the average temperature. It works great but there are at least 10 numbers to the right of the decimal place that I don't need. I can't figure out how to minimize the quantity of numbers that are displayed. I tried adjusting the size in the original table but have had no luck.
I have a hourly report I need to run and one of the records will always be filled with a name of the employee. I need to hardkey some data in every day and instead of changing who is there that day I would like to be able to enter in, for example, sales data in a seperate record and when I go to create the report it will exclude any employee names that have 0 sales data or a blank record. so the table would be something like:
I have created a forum that all fields are unbound. On completing it is written to the table using a RunSQL command. This writes to the table with no problem but when it does so it is creating another entry with zero content. This is the save steps with open new form
Code: Private Sub SaveRecordAddNew_Click() Call PreSaveCheck If Me.saveCheck = False Then Exit Sub Else Call WriteToTable
I would need removing the lines from an .xls file(stored in shared folder) and saving the same. I used the below code and not successful in removing and saving the file stored in the shared area..When I execute the code, Cursor hangs at this line
Set objWB = objXL.Workbooks.Open(filename)
Code:
Set objXL = CreateObject("Excel.Application") Set objWB = objXL.Workbooks.Open(filename) Set objWS = objWB.Worksheets("Sheet1") objWS.Rows("1:6").Delete
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 have a module for importing several excel files from a folder in Access. The user is prompted to select the folder which contains the Excel files.The issue:The code works fine if I select a folder from my company network drive (strFile variable returns with correct file name).The code does not work if I copy and paste the same folder to my desktop and select this location (strFile variable returns empty)
Code:
Option Compare Database Private Sub btn_ImportData_Click() Dim blnHasFieldNames As Boolean, blnEXCEL As Boolean, blnReadOnly As Boolean Dim intWorkbookCounter As Integer Dim lngCount As Long Dim objExcel As Object, objWorkbook As Object Dim colWorksheets As Collection
I'm trying to store all the OrderNumber + Item combinations in 2 arrays and then because the OrderNumber column really contains 2 values I'm interested in, I split it up and store that column's values in 2 arrays. So in total, I have 3 arrays. An array for Item, an array for Order, and an array for RepId (which is the one that I split up from the OrderNumber column).
Anyways, when I print the RepId array with the ' MsgBox PostValCol1(x) ' It prints 4 values like it's supposed to. But when I tested it again by looping through the values and just doing a MsgBox, It goes for a long time and that's because it has a lot of empty values in that array. How to get rid of those empty values/not store them in the first place?
Code:
Set rop = CurrentDb.OpenRecordset("Select OrderNumber, ItemNumber From dbo_EntryStructure Where (ProductNumber = '" & txtPartNumber & "') AND (ActionCode = 'I')")
While rop.EOF = False ReDim Preserve ArrRepOrder(j) ReDim Preserve ArrItem(j)