473,320 Members | 2,189 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,320 software developers and data experts.

Split a report text box.

I am creating an Access report that replicates a preprinted grid form by using bordered text boxes. Each detail row on the preprinted form accomodates two lines. However,some of my records consist of several lines. When the print view is generated, the first two lines appear in the text box and the remaining lines appear in a blank white space after the bordered area. I want to split records with more than two lines into multiple bordered text boxes so that the data forms one continuous grid with no white space between. I'm fairly certain the code will have to go in the on format event.

Thank you in advance for your help.
Feb 28 '09 #1
7 5058
puppydogbuddy
1,923 Expert 1GB
see this link: http://support.microsoft.com/kb/299011

The link includes a method and code for concatenating values from multiple controls into fewer controls for display purposes, eliminating white space. See if that will work for you.
Feb 28 '09 #2
Thanks for your reply puppydogbuddy.

That's the opposite direction I want to go. I've already concatenated the many side of the relationship to reduce vertical space. However, some of the records are longer than two lines. I'm trying to reproduce an actual grid-style form by using borders on the textboxes. The actual form allows two lines per cell so I set the height of the textboxes to the height of the actual cell to show two lines. However, if a record contains more than two lines, all text after the second line appears outside of the border resulting in unbordered text and a disjointed grid. What I'm looking for, is a way to split the concatenated text field into as many text boxes as neccessary to keep the grid together. Here's my code for the "On Format Event":


Expand|Select|Wrap|Line Numbers
  1. Option Compare Database
  2.  
  3. Option Explicit
  4.  
  5. Dim FirstPass As Integer
  6.  
  7. Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
  8.     On Local Error GoTo Detail_Format_Err
  9.     If Not FirstPass Then
  10.         Me!txt_Item_Desc = Me![Item Desc] & " " & "SN: " & Me![SerNbr]
  11.         FirstPass = True
  12.     Else
  13.         Me!txt_Item_Desc = Me!txt_Item_Desc & "," & Me![SerNbr]
  14.     End If
  15. Detail_Format_End:
  16.     Exit Sub
  17. Detail_Format_Err:
  18.     MsgBox Error$
  19.     Resume Detail_Format_End
  20. End Sub
  21.  
  22. Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
  23.     Me!txt_Item_Desc = Null
  24.     FirstPass = False
  25. End Sub
Maybe I'm taking the wrong approach. Is it possible to generate the lines in code? Or maybe split the text in the "On Format" Sub?

I'm still somewhat a Newbie since I don't get to do this alot, so I don't know any other way to approach this. Anyway, thanks again.
Feb 28 '09 #3
puppydogbuddy
1,923 Expert 1GB
Hi Scott,
You can try to adapt the code I wrote (see below) to draw a fixed number of lines per page. You can also try the link, which has a free download mdb entitled "Grid report", which shows how to use vba code to draw grid lines in an ms access report.

http://www.mvps.org/access/resources/downloads.htm#G
Expand|Select|Wrap|Line Numbers
  1. Private Sub Report_Page()
  2.  
  3. Dim intLineCount As Integer
  4. Dim intLines As Integer
  5. Dim intLineSpacing As Integer
  6. Dim intTopMargin As Integer
  7. Dim intYPos As Integer
  8.  
  9. intLines = 10
  10. intTopMargin = 8640                        '720 twips per half inch X 12 =  6 inch top margin
  11. intLineSpacing = Me.Detail.Height
  12.  
  13.         If Me.Page = Me.Pages Then
  14.             For intLineCount = 1 To intLines
  15.                 intYPos = (intLineCount * intLineSpacing) + _
  16.                 intTopMargin
  17.                 Me.Line (0, intYPos)- _
  18.                 Step(Me.Width, 0)
  19.             Next
  20.         End If
  21. End Sub
  22.  
Feb 28 '09 #4
puppydogbuddy
1,923 Expert 1GB
If all else fails, Stephen Leban's solution should work:

http://www.lebans.com/PrintLines.htm
Mar 1 '09 #5
Thanks I'll try them out as soon as I get a chance and post the results.
Mar 1 '09 #6
Both of the options you showed me appear to result in a grid that corresponds to the height of the row. I need a fixed grid where the horizontal lines are always 0.3125 inches apart. I was originally trying to split the rows with more than two lines into multiple rows. Which way do you think would be easier?
Mar 6 '09 #7
puppydogbuddy
1,923 Expert 1GB
Scott,
Just got your last response. This site was having difficulties the past couple of days. You mention only 2 options, which means you probably did not see my post about a third option avalable from Stephen Leban's web site. You should check it out....it is probably your best option.

http://www.lebans.com/PrintLines.htm
Mar 8 '09 #8

Sign in to post your reply or Sign up for a free account.

Similar topics

5
by: Blue Ocean | last post by:
In short, it's not working right for me. In long: The program is designed to read numbers from an accumulator and speak them out loud. Unfortunately, the class that contains the method to...
4
by: Jan Burgy | last post by:
Hi everyone, can somebody tell me why (using Python 2.3.2) >>> import re >>> re.compile(r"^$", re.MULTILINE).split("foo\n\nbar\n\nbaz") ? Being used to Perl semantics, I expect
1
by: Nathan Bloomfield | last post by:
Does anyone know if there is any documentation which relates to Access2k + ? or can anyone help adjust the code? I am having trouble converting the DAO references. TITLE :INF: How to...
1
by: pemigh | last post by:
I have a report with pages breaking in the middle of text box controls. And it's not just on a line-by-line basis, but sometimes (in a situation that I can no longer recreate) just the bottom...
4
by: Cor | last post by:
Hi Newsgroup, I have given an answer in this newsgroup about a "Replace". There came an answer on that I did not understand, so I have done some tests. I got the idea that someone said,...
3
by: Ben | last post by:
Hi I am creating a dynamic function to return a two dimensional array from a delimeted string. The delimited string is like: field1...field2...field3... field1...field2...field3......
1
by: Roy | last post by:
I have a table with two fields. I wish to separate all the data in one field and keep it listed against the information in the other field. The information within the field TicketStatus, I wish to...
4
by: kaplan.gillian | last post by:
Hi everyone, I currently have an Access database that includes quite a few long memo fields. When I create a report of my data, Access does not allow the memo fields to be split with the page...
10
by: kkshansid | last post by:
i have to split adress like raj,2d-raja road,delhi-10008. to raj, raja road, delhi-10008. i can do it with split function but its giving error msg Dim x(3) As String x = Split ({std.addr},...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: Vimpel783 | last post by:
Hello! Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
0
by: jfyes | last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
1
by: PapaRatzi | last post by:
Hello, I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...
0
by: CloudSolutions | last post by:
Introduction: For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
0
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
0
by: af34tf | last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.