Dim v As Variant
Dim strOpenArgs As String
Dim strInputPar As String
Dim strFilter As String

On Error GoTo  999 

strOpenArgs = Nz(Me.OpenArgs, "")

If Len(strOpenArgs) =  0  Then GoTo  999 

v = Split(strOpenArgs, "***")

strInputPar = v( 0 )
strFilter = v( 1 )


If Len(strInputPar) >  0  Then
 'Передаём ХП с параметрами 
    Me.RecordSource = " exec dbo.rpHistoryOrderSumForClient " & strInputPar
End If

 'Значения в шапке 
v = Split(strInputPar, ",")
    
Me!txt_Date.ControlSource = "='" & "c " & dhConvertStrToDate(CStr(v( 0 ))) & _
    " по " & dhConvertStrToDate(CStr(v( 1 ))) & "'"

If Len(strFilter) >  0  Then
    Me.Filter = strFilter
    Me.FilterOn = True
Else
    Me.FilterOn = False
End If

 999 :

dhError "Ошибка формирования отчёта " & Me.Name
End Sub