'ALTER PROCEDURE listDealObject
'(
'   @iBalanceTypeCode int,
'   @iInstrumentTypeCode int,
'   @iInstrumentSubTypeCode int,
'   @sDealBalanceFlag nvarchar(1)=null
')

Public Sub LoadObject()

    Dim s As String
    
    If IsNull(Me!iInstrumentSubTypeCode) Then
        With Me!iObjectNomer
            .RowSource = ""
            .Enabled = False
            .value = Null
        End With
        Exit Sub
    Else
        With Me!iObjectNomer
            s = "exec listDealObject "
            If Not IsNull(Me!iBalanceTypeCode) Then
                s = s & CStr(Me!iBalanceTypeCode) & ", "
            Else
                s = s & "null, "
            End If
            If Not IsNull(Me!iInstrumentTypeCode) Then
                s = s & CStr(Me!iInstrumentTypeCode) & ", "
            Else
                s = s & "null, "
            End If
            If Not IsNull(Me!iInstrumentSubTypeCode) Then
                s = s & CStr(Me!iInstrumentSubTypeCode) & ", "
            Else
                s = s & "null, "
            End If
            If Not IsNull(Me!sBalanceFlag) Then
                s = s & "'" & CStr(Me!sBalanceFlag) & "'"
            Else
                s = s & "null"
            End If
            .RowSource = s
            If .ListCount =  1  Then
                Dim rs As ADODB.Recordset
                Set rs = CurrentProject.Connection.Execute(.RowSource)
                .value = rs.Fields( 0 )
                .Enabled = True
                Set rs = Nothing
            Else
                .value = Null
                .Enabled = True
            End If
            .Enabled = True
            .value = Null
        End With
    End If
    
End Sub