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

Article translations Article translations
Article ID: 310702 - View products that this article applies to.
This article was previously published under Q310702
This article has been archived. It is offered "as is" and will no longer be updated.
Expand all | Collapse all

On This Page

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.

Properties

Article ID: 310702 - Last Review: October 24, 2013 - Revision: 1.3
APPLIES TO
  • Microsoft Operations Manager 2000 Enterprise Edition
Keywords: 
kbnosurvey kbarchive kbbug kbenv kberrmsg KB310702

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com