Hi ADezii,
Found a solution! I have put a background image on the page containing the text that I want where I want it. Not quite as fun as working with code but does the job.
Thank you for your help and support!
Regards,
Tom.
newguytom
Last Activity: Jul 5 '10, 09:54 PM
Joined: May 14 '10
Location:
-
Hi ADezii,
I have tried the code and in the print preview it runs a thick red line from the top to the bottom of the page.
It is pretty much what I am after except with a text box or label.
Regards.Leave a comment:
-
Hi ADezii,
Thanks for the code however this is not quite what I am after (unless I have done something wrong). This repeats the text box for each record whereas I was after a text box or label that would not repeat itself and stretch the entire length of the report detail section regardless of how many record there were.
Regards..Leave a comment:
-
Hi ADezii,
I have attached an image, hopefully it can explain what I am trying to say.
Regards...Leave a comment:
-
Hi ADezii,
As usual the code worked like a charm and you are correct it does look a bit daunting however with your explanation it was easy to use.
I changed it slightly so that it would always generate 15 columns, see below:
strSQL = "CREATE TABLE tblResults ("
For intCols = 1 To 15
strSQL = strSQL & " Column" & intCols & " Text (255),"
There...Leave a comment:
-
Hi ADezii,
I have got it to work temporarily, will be testing it later.
Thanks!Leave a comment:
-
Hi ADezii,
Thank you for the code, I enjoyed the comments that you included.
I have put the code into a module however I am not sure about the sample call that you have included and I cannot seem to get the code to run.
I don't think that I have done anything like this before. I would appreciate it if you could send some more info.
Regards.Leave a comment:
-
Hi ADezii,
The number of records are not constant by will be from 2 - 6 records. The records are actually in a query named "extdesc".
Any help would be great.
I thought that I could append the recods into a table with an autonumber field and then put the table into a crosstab query with the autonumbers being the column headings. If I did this the report will not recognise autonumber column...Leave a comment:
-
Hi ADezii,
I have another one that I can't figure out you may be able to help me with. I would like take the rows that are in a column and append them to seperate columns so that each row is in a new column. For example:
current table
column1
desc1
desc2
desc3
desc4
changes to:
column1 column2 column3 column4
desc1...Leave a comment:
-
Hi ADezii,
Mate it works a treat, you are worth your weight in gold. You have not just helped my but anybody else who searches for these solutions in the future.
Regards,
Tom.Leave a comment:
-
Hi ADezii,
Once again thanks for the code.
Please excuse my inexperience however were would I put this code? This is the first time that I have attempted something like this.
Regards.Leave a comment:
-
Hi ADezii,
I really appreciate your help however I have found the solution!
I have used:
...Code:Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If [length] = "0.0265" Then Image18.Picture = [path] Image18.Visible = True Image18.Height = "285" Image18.Width = "2000" Me.Section(acDetail).Height = "285"Last edited by Niheel; May 21 '10, 04:30 AM. Reason: please use code tags when posting code [code] . . . [/code]Leave a comment:
-
Thanks ADezii for the code however I am still having the same problem. If the larger image comes first (height = 4500) the image control is set at this height for all image records that come after it.
So what I would have to do is sort the images in order of size from smallest to largest however this defeats the purpose as then the images are in the wrong order. I don't know if the image control size can be set for each record as it...Leave a comment:
-
A better example of what is going on with a border around the image control...Leave a comment:
-
Sorry, I copied the wrong code, please see below:
...Code:Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If [length] = "0.0265" Then Image18.Picture = [path] Image18.Visible = True Image18.Height = "285" Image18.Width = "2000" Else If [length] = "0.1325" Then Image18.Picture = [path] Image18.Visible = True
Leave a comment:
-
First of all, a big thanks to everybody that has contributed so far. Below is the code that I have found that does most of the job
...Code:Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If (Me.length) = "0.0265" Then Me.Image18.Picture = Me.path Me.Image18.Visible = True Me.Image18.Height = "285" Me.Image18.Width = "2000" Else If
Leave a comment:
-
Hi ADezii,
Thank you for the code, it sounds like it is what i am after. I have tried it however I get an error "Run-time error 438, Object doen't support this property or method" and the debugger stops on " .Height = conORIG_IMAGE_H T".
I am not sure about this, can you shed some light?
RegardsLeave a comment:
-
can grow / can shrink image control Access 2007 report
What I am wanting to do is create layout drawings of a product that has modular components that can be configured in any configuration. Each image of a modular part is the same width with a variable height so when they are displayed in a report they create a 2D image of the finished product.
The user would simply choose the part that they want in the drawing (via a yes/no data type) and sort the order by a number.
I have...
No activity results to display
Leave a comment: