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

This article was previously published under Q310702
This article has been archived. It is offered "as is" and will no longer be updated.
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 = ""   End IfIf 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 IfEnd 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 = ""   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.
Properties

Article ID: 310702 - Last Review: 10/24/2013 08:08:03 - Revision: 1.3

  • Microsoft Operations Manager 2000 Enterprise Edition
  • kbnosurvey kbarchive kbbug kbenv kberrmsg KB310702
Feedback