Help need to make an access 97 graph please
Hi there all,
I hope someone can help here, I have an access 97 db and i have been asked to get it to generate a graph because the one it has right now i am not sure what it is doing all to gether here is the ROW SOURCE info of the graph
TRANSFORM Sum(tbl_HitRegion_chrt.[Hit Rate]) AS [SumOfHit Rate] SELECT tbl_HitRegion_chrt.Month FROM tbl_HitRegion_chrt WHERE (((tbl_HitRegion_chrt.Region) Is Not Null)) GROUP BY tbl_HitRegion_chrt.Month, Month([month]), Year([month]) ORDER BY Month([month]), Year([month]) PIVOT tbl_HitRegion_chrt.Region;
Here is the EVENT PRODEDURE
Private Sub Label276_Click()
On Error GoTo Err_rprt_mkt_reg_Click
If (IsNull(Me!start_date) Or IsNull(Me!end_date)) Then
MsgBox "Please specify a time interval for the Region Chart", vbOKOnly, "Time Interval Error!"
Me!start_date.SetFocus
Exit Sub
End If
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryStatus byRegionNumberGroupTemp", acViewNormal
DoCmd.SetWarnings True
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryHitRateChart1", acViewNormal
DoCmd.SetWarnings True
Dim stDocName As String
stDocName = "rpt_HitRateRegionChart"
DoCmd.OpenReport stDocName, acPreview
Exit_rprt_mkt_reg_Click:
Exit Sub
Err_rprt_mkt_reg_Click:
MsgBox Err.Description
Resume Exit_rprt_mkt_reg_Click
End Sub
What i have been asked to do is
Total = cancel + lost
HIT RATE = WON over WON + LOST + PENDING
I have taken all the data out of the db but its still over 1mb in size
I hope someone can help me here I know that you will require more info just tell me what
Thanks so very much in advance.
TIDMAN
Hi there all,
I hope someone can help here, I have an access 97 db and i have been asked to get it to generate a graph because the one it has right now i am not sure what it is doing all to gether here is the ROW SOURCE info of the graph
TRANSFORM Sum(tbl_HitRegion_chrt.[Hit Rate]) AS [SumOfHit Rate] SELECT tbl_HitRegion_chrt.Month FROM tbl_HitRegion_chrt WHERE (((tbl_HitRegion_chrt.Region) Is Not Null)) GROUP BY tbl_HitRegion_chrt.Month, Month([month]), Year([month]) ORDER BY Month([month]), Year([month]) PIVOT tbl_HitRegion_chrt.Region;
Here is the EVENT PRODEDURE
Private Sub Label276_Click()
On Error GoTo Err_rprt_mkt_reg_Click
If (IsNull(Me!start_date) Or IsNull(Me!end_date)) Then
MsgBox "Please specify a time interval for the Region Chart", vbOKOnly, "Time Interval Error!"
Me!start_date.SetFocus
Exit Sub
End If
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryStatus byRegionNumberGroupTemp", acViewNormal
DoCmd.SetWarnings True
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryHitRateChart1", acViewNormal
DoCmd.SetWarnings True
Dim stDocName As String
stDocName = "rpt_HitRateRegionChart"
DoCmd.OpenReport stDocName, acPreview
Exit_rprt_mkt_reg_Click:
Exit Sub
Err_rprt_mkt_reg_Click:
MsgBox Err.Description
Resume Exit_rprt_mkt_reg_Click
End Sub
What i have been asked to do is
Total = cancel + lost
HIT RATE = WON over WON + LOST + PENDING
I have taken all the data out of the db but its still over 1mb in size
I hope someone can help me here I know that you will require more info just tell me what
Thanks so very much in advance.
TIDMAN
