L
luis_a_roman via AccessMonster.com
I have a report that needs to print a detail line from an unbound control in
the detail line. I read a databae to populate this unbound control. However,
the problems that I'm having is that the vba code works correct meaning that
it retrieves the information but the report (unbound control) does not show
the information when the report print.
Can someone give me guidance to enable me to print the detail line instead of
not printing anything.
Thank you for guidance.
Luis
CODE:
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Call F35detailPoc(unboundF35Line)
Me.POC = unboundF35Line
End Sub
Function F35detailPoc(unboundF35Line)
Dim dbs As DAO.Database
Dim rs As DAO.Recordset
Dim strRead As String
strRead = "SELECT [tblAwardFeeF-35contact].[F-35Contact] " _
& "FROM [tblAwardFeeF-35contact]" _
& "WHERE ((([tblAwardFeeF-35contact].Period)=" & Me.Period & ")" & " AND (
([tblAwardFeeF-35contact].Phase)=" & "'" & Me.Phase & "')" & " AND ((
[tblAwardFeeF-35contact].EvaluationArea)=" & "'" & Me.EvaluationArea & "')" &
" AND (([tblAwardFeeF-35contact].[Item No])=" & Me.Item_No & "))"
Set dbs = CurrentDb()
Set rs = CurrentDb.OpenRecordset(strRead)
With rs
Do Until rs.EOF
Debug.Print "rs field = " & rs![F-35Contact] &
unboundF35Line
unboundF35Line = unboundF35Line + rs![F-35Contact] &
vbNewLine
.MoveNext
Loop
'Debug.Print "emailstring - 1= " & emailstrng
End With
Set rs = Nothing
End Function
the detail line. I read a databae to populate this unbound control. However,
the problems that I'm having is that the vba code works correct meaning that
it retrieves the information but the report (unbound control) does not show
the information when the report print.
Can someone give me guidance to enable me to print the detail line instead of
not printing anything.
Thank you for guidance.
Luis
CODE:
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Call F35detailPoc(unboundF35Line)
Me.POC = unboundF35Line
End Sub
Function F35detailPoc(unboundF35Line)
Dim dbs As DAO.Database
Dim rs As DAO.Recordset
Dim strRead As String
strRead = "SELECT [tblAwardFeeF-35contact].[F-35Contact] " _
& "FROM [tblAwardFeeF-35contact]" _
& "WHERE ((([tblAwardFeeF-35contact].Period)=" & Me.Period & ")" & " AND (
([tblAwardFeeF-35contact].Phase)=" & "'" & Me.Phase & "')" & " AND ((
[tblAwardFeeF-35contact].EvaluationArea)=" & "'" & Me.EvaluationArea & "')" &
" AND (([tblAwardFeeF-35contact].[Item No])=" & Me.Item_No & "))"
Set dbs = CurrentDb()
Set rs = CurrentDb.OpenRecordset(strRead)
With rs
Do Until rs.EOF
Debug.Print "rs field = " & rs![F-35Contact] &
unboundF35Line
unboundF35Line = unboundF35Line + rs![F-35Contact] &
vbNewLine
.MoveNext
Loop
'Debug.Print "emailstring - 1= " & emailstrng
End With
Set rs = Nothing
End Function