Unbound Control Problem

  • Thread starter luis_a_roman via AccessMonster.com
  • Start date
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
 
E

Evi

Lets say your Unbound control in the form is named txt1 and it is in a form
called MyForm

In the textbox in the report type
=Forms![MyForm].Form.[txt1]

So long as your button is in MyForm, the report's text box will show
whatever you typed into txt1
Evi
 
L

luis_a_roman via AccessMonster.com

Evi - Thank you for the feedback. Your feedback help me solve the problem.

Luis
Lets say your Unbound control in the form is named txt1 and it is in a form
called MyForm

In the textbox in the report type
=Forms![MyForm].Form.[txt1]

So long as your button is in MyForm, the report's text box will show
whatever you typed into txt1
Evi
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,
[quoted text clipped - 46 lines]
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top