Label.SampleSize

SVB Example

Data Entry Example 6: Running the QC analysis configuration:

Sub Main

    Dim oOM As New ObjectManager
    oOM.Reconnect(Application)

    'Find the QC analysis configuration
    Dim mon As Monitor
    Set mon = oOM.Monitors.Item("/Blake's Materials/Bread Charts")

    '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
    'We will display the analysis
    '(and be prompted for cause and action labels for the out-of-control sample)
    monRunOpt.Add "RunQuiet", False
    monRunOpt.Add "DisableAutoTransfer", True
    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_New(mon.ID, monRunOpt)

    monRunStatus.WaitForComplete

    'Add a custom report explaining what this analysis is.
    Dim rpt As New Report
    rpt.SelectionText = "BAKERY REPORT" & vbCrLf & _
        "Pieces per sample:" & Str(oOM.Labels("/Blake's Materials/Bakers").SampleSize) & vbCrLf & _
        "Measurement: Grain level (" & oOM.Characteristics("/Blake's Materials/Grain Level").Description & ")"
    rpt.Visible = True

    oOM.Disconnect

End Sub