M
Mail Merge Help
HI
Below is my code on the GroupHeader of the report to print the label on the
left of a multi column report. which it works fine. The lable shows on the
group Header. Could you please show me how to create a lable on the Details
area.
Option Compare Database
Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
If Me.Left < (1.5 * 1440) Then
Me![LBL1].Visible = True
Me![lBL4].Visible = True
Me![Txt1].Visible = False
Me![txt2].Visible = False
Me![Txt3].Visible = False
Me![tXT4].Visible = False
Me.NextRecord = False
Else
Me![LBL1].Visible = False
Me![lBL4].Visible = False
Me![Txt1].Visible = True
Me![txt2].Visible = True
Me![Txt3].Visible = True
Me![tXT4].Visible = True
End If
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As Integer)
If Me.Top > (3.8 * 1440) Then
Me.NextRecord = False
Me.PrintSection = False
End If
End Sub
.. This is the code for my Details section, but it doesn't work. Could you
please see what's wrong with my code.
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Left < (1.5 * 1440) Then
Me![lBL4].Visible = True
Me![tXT4].Visible = False
Me.NextRecord = False
Else
Me![lBL4].Visible = False
Me![tXT4].Visible = True
End If
End Sub
Many thanks
Hong
Below is my code on the GroupHeader of the report to print the label on the
left of a multi column report. which it works fine. The lable shows on the
group Header. Could you please show me how to create a lable on the Details
area.
Option Compare Database
Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
If Me.Left < (1.5 * 1440) Then
Me![LBL1].Visible = True
Me![lBL4].Visible = True
Me![Txt1].Visible = False
Me![txt2].Visible = False
Me![Txt3].Visible = False
Me![tXT4].Visible = False
Me.NextRecord = False
Else
Me![LBL1].Visible = False
Me![lBL4].Visible = False
Me![Txt1].Visible = True
Me![txt2].Visible = True
Me![Txt3].Visible = True
Me![tXT4].Visible = True
End If
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As Integer)
If Me.Top > (3.8 * 1440) Then
Me.NextRecord = False
Me.PrintSection = False
End If
End Sub
.. This is the code for my Details section, but it doesn't work. Could you
please see what's wrong with my code.
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Left < (1.5 * 1440) Then
Me![lBL4].Visible = True
Me![tXT4].Visible = False
Me.NextRecord = False
Else
Me![lBL4].Visible = False
Me![tXT4].Visible = True
End If
End Sub
Many thanks
Hong