MonitorDocuments.ItemByRevision

This property is read only.

Syntax Parameters Return Value 
ReadOnly Property MonitorDocuments.ItemByRevision( _
    Hwnd As Integer, _
    MonitorID As Integer, _
    Revision As Integer) As Object
  • Hwnd [in]

The Statistica handle.

Type: Integer

  • MonitorID [in]

The ID of the monitor to access.

Type: Integer

  • Revision [in]

The revision of the monitor to access.

Type: Integer

Object

SVB Example

Using a specific version of an Enterprise object: 

Sub Main

    Dim oOM As New ObjectManager
    oOM.Reconnect(Application)

    Dim mon As Monitor
    'Access the 7th revision of the analysis configuration "/Bob/Bakery Review".
    'Note that this is the revision number, not the version number.
    Set mon = oOM.Documents.Monitors.ItemByRevision( _
        Application.Handle, oOM.Monitors("/Bob/Bakery Review").ID, 7)

    'Create a service to run analysis configurations
    Dim monSrvCreator As New MonitorServiceCreator
    Dim monSrv As MonitorService
    Set monSrv = monSrvCreator.CurrentServiceEx(Application)

    'Set the parameters for how to run the analysis configuration
    Dim monRunOpt As New MonitorRunOption
    monRunOpt.Add "RunQuiet", True
    monRunOpt.Add "DisplayInPanel", False
    monRunOpt.Add "DisableAutoTransfer", True
    monRunOpt.Add "TargetSpreadsheetFileName", "NoFile"
    monRunOpt.Add "CheckMonitorRunEntryExist", False
    monRunOpt.Add "Force_Display_SQLCriteria_Dialog_If_Required_Fields_Need_Values", True

    'Run it
    Dim monRunStatus As MonitorRunStatus
    Set monRunStatus = monSrv.RunMonitor(mon.ID, monRunOpt)

    monRunStatus.WaitForComplete

    oOM.Disconnect

End Sub