A 
		
				
			
		ad3po
Guest
I am not able to change the RowSource Property of a Chart in a Report. I am able to do it in a form but not in a report.Here is my procedure in a module.  I have "UpdateSource" on the OnOpen of my report:
Sub UpdateSource()
Dim sql As String, strBeg As String, strEnd As String, strRange As String
strRange = Forms!frmChart!cboType
strBeg = Forms!frmChart!cboStart
strEnd = Forms!frmChart!cboEnd
sql = "Select [" & strRange & "].FiscalWkYr, [Instock%]*100 As [Instock%_] From [" & strRange & "] "
sql = sql & "Inner Join FISCALCalendar_Linked On [" & strRange & "].FiscalWkYr = "
sql = sql & "FISCALCalendar_Linked.FiscalWkYr Where (((FISCALCalendar_Linked.Date) Between "
sql = sql & "#" & strBeg & "# And #" & strEnd & "#)) Group By [" & strRange & "].FiscalWkYr, "
sql = sql & "[Instock%]*100;"
Reports!rptChart!Graph.RowSource = sql
End Sub
Please Help
[This message has been edited by ad3po (edited 12-19-2001).]
 Sub UpdateSource()
Dim sql As String, strBeg As String, strEnd As String, strRange As String
strRange = Forms!frmChart!cboType
strBeg = Forms!frmChart!cboStart
strEnd = Forms!frmChart!cboEnd
sql = "Select [" & strRange & "].FiscalWkYr, [Instock%]*100 As [Instock%_] From [" & strRange & "] "
sql = sql & "Inner Join FISCALCalendar_Linked On [" & strRange & "].FiscalWkYr = "
sql = sql & "FISCALCalendar_Linked.FiscalWkYr Where (((FISCALCalendar_Linked.Date) Between "
sql = sql & "#" & strBeg & "# And #" & strEnd & "#)) Group By [" & strRange & "].FiscalWkYr, "
sql = sql & "[Instock%]*100;"
Reports!rptChart!Graph.RowSource = sql
End Sub
Please Help
[This message has been edited by ad3po (edited 12-19-2001).]