Detail Divider Line

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a report that has a divider line after every entry in the detail. Is
there a way to make the line appear appear after every entry in the group
EXCEPT the last so I don't have two lines together?

Example

Detail Text
-----------------------------------
Detail Text
----------------------------------- [I don't want this line here]
_________________________________________Next Group

thanks for any help.
 
bambicats7,
This should underline every other line.

Option Compare Database
Option Explicit
Dim EvenLine As Boolean
-----------------------------------------
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If EvenLine = True Then
Me.YourDetailLineName.Visible = True
Else
Me.YourDetailLineName.Visible = False
End If
EvenLine = Not EvenLine ' Alternate the value of fShade
End Sub
 
Yes, you can do hide the line for the last detail in group.

Add a control to the group header and set it as follows
Name. txtGroupSize
Control Source: = Count(*)
Running Sum: No

Add a control to the detail
Name: txtLineCount
Control Source: = 1
Running Sum: Over Group

You can set the visibility of both those controls to No since you probably
don't want to see them.

Then add a line of code to the detail format event. Replace LineDivider
with the name of the line you want to show or hide.

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Me.LineDivider.Visible = Me.txtGroupSize <> Me.txtLineCount
End Sub
 
bambicats7,
John Spencer has a correct solution. I thought you wanted "every other" line to show.
--
hth
Al Campagna
Candia Computer Consulting - Candia NH
http://home.comcast.net/~cccsolutions

Al Campagna said:
bambicats7,
This should underline every other line.

Option Compare Database
Option Explicit
Dim EvenLine As Boolean
-----------------------------------------
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If EvenLine = True Then
Me.YourDetailLineName.Visible = True
Else
Me.YourDetailLineName.Visible = False
End If
EvenLine = Not EvenLine ' Alternate the value of fShade
End Sub
-----------------------------------------------
Private Sub PageHeader_Print(Cancel As Integer, PrintCount As Integer)
EvenLine = False
End Sub

--
hth
Al Campagna
Candia Computer Consulting - Candia NH
http://home.comcast.net/~cccsolutions

bambicats7 said:
I have a report that has a divider line after every entry in the detail. Is
there a way to make the line appear appear after every entry in the group
EXCEPT the last so I don't have two lines together?

Example

Detail Text
-----------------------------------
Detail Text
----------------------------------- [I don't want this line here]
_________________________________________Next Group

thanks for any help.
Click to expand...
Click to expand...
 
Back
Top