This is the code that goes with printing the report that I want to add
another table info into:
Private Sub Report_Open(Cancel As Integer)
Select Case Report.OpenArgs
Case "PrintAll"
'Report.RecordSource = "SELECT OwnerID, OwnerName,OwnerAddress,status,
NewsLetter " _
& " FROM tblOwnerInfo WHERE status like 'Active*' And NewsLetter " _
& " like 'Active*';"
'Report.RecordSource = "SELECT OwnerID, OwnerName, status, NewsLetter,"
_
& " OwnerAddress FROM tblOwnerInfo WHERE status like 'Active*' " _
& " And NewsLetter like 'Active*';"
'26/06/2005 Mohan only newsletter is active
Report.RecordSource = "SELECT OwnerID, OwnerName, status, NewsLetter," _
& " OwnerAddress FROM tblOwnerInfo WHERE NewsLetter like 'Active*';"
Case "PrintOne"
'tbOwnAddress.ControlSource =
[Forms]![frmActiveOwnerAddress]![lbOwnerAddress]
'Report.RecordSource = "SELECT OwnerID, OwnerName,OwnerAddress, status,
NewsLetter " _
& " FROM tblOwnerInfo WHERE status like 'Active*' And NewsLetter " _
& " like 'Active*' and OwnerID = " &
[Forms]![frmActiveOwnerAddress]![lbOwnerAddress] & ";"
'26/06/2005 Mohan only newsletter is active
Report.RecordSource = "SELECT OwnerID, OwnerName,OwnerAddress, status,
NewsLetter " _
& " FROM tblOwnerInfo where NewsLetter like 'Active*' and OwnerID = " &
[Forms]![frmActiveOwnerAddress]![lbOwnerAddress] & ";"
End Select
End Sub