Posted 22-Jan-96 by Allen and LeAnne Jergensen.
To get a snaking column header above each column but only if the column has data in it do the following:
Say you have two fields in the snaking column in the detail section of your report. ITEM and CARRYING.
Can grow: Yes Visible: Yes Height: 0.0007 in.
Sub Detail1_Format (Cancel As Integer, FormatCount As Integer) If Me.left <> dLastLeft Then Me![ITEM HEADER] = "Item" Me![CARRYING HEADER] = "Carrying" dLastLeft = Me.left sItem = Me![ITEM] Else If sItem = Me![ITEM] Then Me![ITEM HEADER] = "Item" Me![CARRYING HEADER] = "Carrying" Else Me![ITEM HEADER] = "" Me![CARRYING HEADER] = "" End If End If End Sub
Global dLastLeft As DoubleGlobal, sItem As String
Now when you print the report if only one column of the snaking report exist you will only get one heading. But if two exist, you will get two headings.
From: Allen and LeAnne Jergensen (programmers who hate to give up!!)
|Home||Index of tips||Top|