Microsoft KB Archive/310702

= Exchange Performance Analysis Queue Sizes Report Does Not Work Correctly in MOM 2000 =

Article ID: 310702

Article Last Modified on 10/27/2006

-

APPLIES TO


 * Microsoft Operations Manager 2000 Service Pack 1

-



This article was previously published under Q310702



SYMPTOMS
The Microsoft Operations Manager (MOM) 2000 Exchange Performance Analysis Queue Sizes report may not work, and it may generate an error 1004 error message.



CAUSE
This problem can occur because the function in ServerHeader_Format is not correct in the report.



WORKAROUND
To work around this problem:
 * 1) Open the OnePoint\Reporting\Eearept.mdb file in Microsoft Access 2000.
 * 2) In the Objects pane on the left, click Reports.
 * 3) In the right pane, click Queue_Sizes report.
 * 4) Click the Code button. The code module that corresponds to the report opens in the Microsoft Visual Basic editor.
 * 5) Change the ServerHeader_Format function by replacing the existing code with the new code that contains the fix.

Existing Code
Private Sub ServerHeader_Format(Cancel As Integer, FormatCount As Integer) Static lTickLabelSpacing As Long Static lChartWidth As Long Static sServer As String Static sChartType As String Static bUseSmoothLines As Boolean Static bUseYAxisRange As Boolean Static lYAxisMin As Double Static lYAxisMax As Double Static bInitialized As Boolean Static lCurrentPage As Long Static lLegendLeft As Long Static lLegendWidth As Long Static bDeletedLegendEntry As Boolean If mlPage = 0 Then lTickLabelSpacing = 0 lChartWidth = 0 sServer = &quot;&quot; End If If mlPage <> Me.Page Then mlPage = Me.Page FormatGraphServerHeader EEMChart.Object.Application.CHART, PERFORMANCE_GRAPH, [server], mlPage, lLegendWidth, lLegendLeft, lTickLabelSpacing, lChartWidth, sServer, _ sChartType, bUseSmoothLines, bUseYAxisRange, lYAxisMin, lYAxisMax, bInitialized, CurrentPage, bDeletedLegendEntry EEMChart.Object.Application.CHART.Legend.LegendEntries(1).Delete Call SetGraphAxisCaptions(EEMChart.Object.Application.CHART, PRIMARY_AXIS_CAPTION, SECONDARY_AXIS_CAPTION, 8, SECONDARY_AXIS_SERIES_INDEX) End If End Sub

New Code
Private Sub ServerHeader_Format(Cancel As Integer, FormatCount As Integer) Static lTickLabelSpacing As Long Static lChartWidth As Long Static lDelete As Long Static sServer As String Static sChartType As String Static bUseSmoothLines As Boolean Static bUseYAxisRange As Boolean Static lYAxisMin As Double Static lYAxisMax As Double Static bInitialized As Boolean Static lCurrentPage As Long Static lLegendLeft As Long Static lLegendWidth As Long Static bDeletedLegendEntry As Boolean If mlPage = 0 Then lTickLabelSpacing = 0 lChartWidth = 0 lDelete = 0 sServer = &quot;&quot; End If  If mlPage <> Me.Page Then mlPage = Me.Page FormatGraphServerHeader EEMChart.Object.Application.CHART, PERFORMANCE_GRAPH, [server], mlPage, lLegendWidth, lLegendLeft, lTickLabelSpacing, lChartWidth, sServer, _ sChartType, bUseSmoothLines, bUseYAxisRange, lYAxisMin, lYAxisMax, bInitialized, lCurrentPage, bDeletedLegendEntry If lDelete < 1 Then lDelete = lChartWidth EEMChart.Object.Application.CHART.Legend.LegendEntries(1).Delete End If       Call SetGraphAxisCaptions(EEMChart.Object.Application.CHART, PRIMARY_AXIS_CAPTION, SECONDARY_AXIS_CAPTION, 8, SECONDARY_AXIS_SERIES_INDEX) End If  End Sub



STATUS
Microsoft has confirmed that this is a problem in the Microsoft products that are listed at the beginning of this article.

Keywords: kbbug kbenv kberrmsg KB310702

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.