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
Marshall Barton said:
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.