teebird
Technical User
- Dec 11, 2001
- 239
Hi everyone
I have a form with a subform with 3 tab controls
frmMain
subfrmSub
Tab1
Tab2
Tab2
From this form I print a single record. This I have set up as a report.
Form Section
Tab1
Tab2
Tab3
If any the the tab controls have no records - a blank section is printed on my report which is confusing. How can I display a printed message "No records for this tab"
I will thinking somethink like:
*********
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Form.subfrmSub.Tab1 = isnull Then
Form.frmMain.lblNoDefect.Visible = True
Elseif
Form.subfrmSub.Tab2 = isnull Then
Form.frmMain.lblNoCourt.Visible = True
Elseif
Form.subfrmSub.Tab3 = isnull Then
Form.frmMain.lblNoCourt.Visible = True
Else:
Form.frmMain.lblNoDeft.Visible = False
Form.frmMain.lblNoCourt.Visible = False
Form.frmMain.lblNoCompl.Visible = False
End If
End Sub
**********
Thanks for any help in advance.
tee
I have a form with a subform with 3 tab controls
frmMain
subfrmSub
Tab1
Tab2
Tab2
From this form I print a single record. This I have set up as a report.
Form Section
Tab1
Tab2
Tab3
If any the the tab controls have no records - a blank section is printed on my report which is confusing. How can I display a printed message "No records for this tab"
I will thinking somethink like:
*********
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Form.subfrmSub.Tab1 = isnull Then
Form.frmMain.lblNoDefect.Visible = True
Elseif
Form.subfrmSub.Tab2 = isnull Then
Form.frmMain.lblNoCourt.Visible = True
Elseif
Form.subfrmSub.Tab3 = isnull Then
Form.frmMain.lblNoCourt.Visible = True
Else:
Form.frmMain.lblNoDeft.Visible = False
Form.frmMain.lblNoCourt.Visible = False
Form.frmMain.lblNoCompl.Visible = False
End If
End Sub
**********
Thanks for any help in advance.
tee