More problems with columns

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Kelly - 02 Dec 2005 17:30 GMT

I'm sorry if this has already been addressed. I'm a newbie, soon to graduate
to beginner. I am making a columnar report, following the directions I found
for making labels on the left. It worked!! I was very surprised! My
problem is that I want to have 12 columns on one page. If I change the width
of the column on my page setup it then makes 2 columns of labels and then my
data on 2 columns. Also, according to my directions, it said to place my
label and my text boxes on top of each other. I think this is causing my
first column of data not to show. Does anyone have any tips of finishing
touches I can do to make this thing work? Thanks so much!!!

Reply to this Message

Marshall Barton - 02 Dec 2005 19:31 GMT

>I'm sorry if this has already been addressed. I'm a newbie, soon to graduate
>to beginner. I am making a columnar report, following the directions I found
[quoted text clipped - 5 lines]
>first column of data not to show. Does anyone have any tips of finishing
>touches I can do to make this thing work?

If you're referring to the article I'm thinking of, it
sounds like you did not use the code from the article
correctly. Maybe you forgot the NextRecord = False line
and/or setting some of the Visible properties??

BTW, you can use Page Setup to set the number of columns to
12 easily enough, but don't to set the column width to a
small enough value so all 12 columns fit netween the
margins.

Signature

Marsh
MVP [MS Access]

Reply to this Message

Kelly - 02 Dec 2005 20:06 GMT

Marshall -
You were absolutely right about the NextRecord = False. That fixed that
data problem. I am still having problems with the number of columns on the
report. I still can't get all 12 columns to show up. I can use page set up
to set 12 columns, but I can't use a width of less than 1.5. If I go to 1.4,
it will add a second column of labels, right next to the first, and then will
add 4 more columns of data, with plenty of room between each. I've tried
changing the size of my labels, but it still stays the same.
Here is the code I used, which is working great except for the columns.
Option Compare Database

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Left < (2 * 1440) Then
Me![LTTotalLabel].Visible = True
Me![ChildcareLabel].Visible = True
Me![EastsideLabel].Visible = True
Me![NurseryLabel].Visible = True
Me![DCESLabel].Visible = True
Me![MSLabel].Visible = True
Me![HSLabel].Visible = True
Me![9thLabel].Visible = True
Me![10thLabel].Visible = True
Me![11thLabel].Visible = True
Me![12thLabel].Visible = True
Me![NumberofClassesLabel].Visible = True
Me![AcademicSupportLabel].Visible = True
Me![HomeEdISPLabel].Visible = True
Me![GymLTLabel].Visible = True
Me![GymDCSLabel].Visible = True
Me![DanceLabel].Visible = True
Me![CheerLabel].Visible = True
Me![GymClubLabel].Visible = True
Me![EnrichmentLabel].Visible = True
Me![PeachFactoryLabel].Visible = True
Me![DCSTotalLabel].Visible = True
Me![LTTotal].Visible = False
Me![Childcare].Visible = False
Me![Eastside].Visible = False
Me![Nursery].Visible = False
Me![DCES].Visible = False
Me![MS].Visible = False
Me![HS].Visible = False
Me![9th].Visible = False
Me![10th].Visible = False
Me![11th].Visible = False
Me![12th].Visible = False
Me![NumberofClasses].Visible = False
Me![AcademicSupport].Visible = False
Me![HomeEdISP].Visible = False
Me![GymLT].Visible = False
Me![GymDCS].Visible = False
Me![Dance].Visible = False
Me![Cheer].Visible = False
Me![GymClub].Visible = False
Me![Enrichment].Visible = False
Me![PeachFactory].Visible = False
Me![DCSTotal].Visible = False
Me.NextRecord = False
Else

Me![LTTotalLabel].Visible = False
Me![ChildcareLabel].Visible = False
Me![EastsideLabel].Visible = False
Me![NurseryLabel].Visible = False
Me![DCESLabel].Visible = False
Me![MSLabel].Visible = False
Me![HSLabel].Visible = False
Me![9thLabel].Visible = False
Me![10thLabel].Visible = False
Me![11thLabel].Visible = False
Me![12thLabel].Visible = False
Me![NumberofClassesLabel].Visible = False
Me![AcademicSupportLabel].Visible = False
Me![HomeEdISPLabel].Visible = False
Me![GymLTLabel].Visible = False
Me![GymDCSLabel].Visible = False
Me![DanceLabel].Visible = False
Me![CheerLabel].Visible = False
Me![GymClubLabel].Visible = False
Me![EnrichmentLabel].Visible = False
Me![PeachFactoryLabel].Visible = False
Me![DCSTotalLabel].Visible = False
Me![LTTotal].Visible = True
Me![Childcare].Visible = True
Me![Eastside].Visible = True
Me![Nursery].Visible = True
Me![DCES].Visible = True
Me![MS].Visible = True
Me![HS].Visible = True
Me![9th].Visible = True
Me![10th].Visible = True
Me![11th].Visible = True
Me![12th].Visible = True
Me![NumberofClasses].Visible = True
Me![AcademicSupport].Visible = True
Me![HomeEdISP].Visible = True
Me![GymLT].Visible = True
Me![GymDCS].Visible = True
Me![Dance].Visible = True
Me![Cheer].Visible = True
Me![GymClub].Visible = True
Me![Enrichment].Visible = True
Me![PeachFactory].Visible = True
Me![DCSTotal].Visible = True
End If
End Sub

> >I'm sorry if this has already been addressed. I'm a newbie, soon to graduate
> >to beginner. I am making a columnar report, following the directions I found
[quoted text clipped - 15 lines]
> small enough value so all 12 columns fit netween the
> margins.

Reply to this Message

Marshall Barton - 02 Dec 2005 21:12 GMT

The 2 in the line:
If Me.Left < (2 * 1440) Then
must be set to something less then the column width. Try
using:
If Me.Left < (.5 * 1440) Then

Signature

Marsh
MVP [MS Access]

>You were absolutely right about the NextRecord = False. That fixed that
>data problem. I am still having problems with the number of columns on the
[quoted text clipped - 121 lines]
>> small enough value so all 12 columns fit netween the
>> margins.

Reply to this Message

Kelly - 02 Dec 2005 22:16 GMT

Ok, it's getting better but still a problem. I changed the 2 to .5, then I
changed the columns to .5. I now have data (.5 inches apart) but I have lost
my lablels. I swear those are the only 2 things I changed.

> The 2 in the line:
> If Me.Left < (2 * 1440) Then
[quoted text clipped - 126 lines]
> >> small enough value so all 12 columns fit netween the
> >> margins.

Reply to this Message

Kelly - 02 Dec 2005 22:47 GMT

Well, I changed my left margin, and we are in business. Thank you so much
for your help, I am really quite excited about doing this. I'm showing it to
all my coworkers as if I had just won the lottery.

Thanks again.

> Ok, it's getting better but still a problem. I changed the 2 to .5, then I
> changed the columns to .5. I now have data (.5 inches apart) but I have lost
[quoted text clipped - 130 lines]
> > >> small enough value so all 12 columns fit netween the
> > >> margins.

Reply to this Message

Marshall Barton - 03 Dec 2005 07:23 GMT

Getting something this complex to work is pretty exciting
and you deserve to exibit some elation.

Don't forget that that number must be less than the column
width. When you changed the column width to .5, you reduced
it right to the edge of not working again. I think you can
use any small value (eg .1) and it should be all right for
any practical column width. Actually, you could probably
change the If to:

If Me.Left = 0 Then

and avoid the depencey on the column width.

Signature

Marsh
MVP [MS Access]

>Well, I changed my left margin, and we are in business. Thank you so much
>for your help, I am really quite excited about doing this. I'm showing it to
[quoted text clipped - 135 lines]
>> > >> small enough value so all 12 columns fit netween the
>> > >> margins.

Reply to this Message