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


The information in this article applies to:

  • Microsoft Operations Manager 2000
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 = ""
   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 = ""
   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.
Modification Type:MinorLast Reviewed:6/13/2005
Keywords:kbbug kbenv kberrmsg KB310702
©2004 Microsoft Corporation. All rights reserved.