Setting control source for unbound text box 1

[jadams0173]

Can I set the control Source for an unbound text box in the footer of my report thru code. When I do it this way I get prompted for a paramater and the label of the input for the parameter has the value of my DSum.

Private Sub Report_Open(Cancel As Integer)
Dim sql     As String
Dim TempReport      As String
Dim RelDate         As Date
Dim tt As Integer

DoCmd.SetWarnings False

RelDate = Format(Now(), "mm/dd/yyyy")


TempReport = "Report_" & Environ("username")
'Debug.Print DATE

sql = "SELECT data" _
    & "INTO " & TempReport 

DoCmd.RunSQL sql

[red]Me!txtFeederTotal.ControlSource = DSum("[FEEDERTOTAL]", TempReport)[/red]

Reports!rpt_wh_feederload_requirements.RecordSource = TempReport
DoCmd.SetWarnings True
End Sub

I've tried it before and after setting the recordsource for the report.

 

[dhookom]

Try without specifying the Control Source:

   Me!txtFeederTotal = DSum("[FEEDERTOTAL]", TempReport)

or

Me!txtFeederTotal.ControlSource = "=DSum('[FEEDERTOTAL]','" &  TempReport & "')"

Duane MS Access MVP
[green]Ask a great question, get a great answer.[/green] [red]Ask a vague question, get a vague answer.[/red]
[green]Find out how to get great answers faq219-2884.[/green]

 

[jadams0173]

Thanks Duane.

Me!txtFeederTotal.ControlSource = "=DSum('[FEEDERTOTAL]','" &  TempReport & "')"

Worked. I had tried that but I think I left the = out. Thanks again!!!!