Под запрос или ?

[alco84]

Добрый день Уважаемые! У меня опять возник вопрос. В источнике данных формы нужно заменить поле DocSum на xStr. Голова что то сломалась у меня от этого.

xStr = "SELECT Sum(J05.DocSum) AS [Sum-DocSum] FROM D0510H LEFT JOIN J05 ON D0510H.DocCode = J05.D1501Uni GROUP BY D0510H.DocCode HAVING (((D0510H.DocCode)=D0510H.DocCode));"

MoneyPg41.Form.RecordSource = "SELECT D0510H.DocCode, D0510H.Posted, D0510H.DocDate, Format(DocDate,""dd.mm.yy"") AS DDate, D0510H.DocTime, D0510H.DocNum, D0510H.Client," & _
  "Clients.ItemName, D0510H.NonEndDate, D0510H.EndDate, Format(EndDate,""dd.mm.yy"") AS EDate, D0510H.CloseDate, Format(CloseDate,""dd.mm.yy"") AS CDate, D0510H.PayForm, " & _
  "ENums.ItemName, D0510H.DocState, ENums_1.ItemName, D0510H.PoolRate, D0510H.PoolRateType, ENums_2.ItemName, D0510H.DocSum, D0510H.RepaySum, [_MoneyPg41].EndRest, " & _
  "[_MoneyPg41].TodayRest, D0510H.Remark FROM ((((D0510H INNER JOIN Clients ON D0510H.Client=Clients.ItemCode) INNER JOIN ENums ON D0510H.PayForm=ENums.ItemCode) INNER " & _
  "JOIN ENums AS ENums_1 ON D0510H.DocState=ENums_1.ItemCode) INNER JOIN ENums AS ENums_2 ON D0510H.PoolRateType=ENums_2.ItemCode) INNER JOIN _MoneyPg41 ON D0510H.DocCode=" & _
  "[_MoneyPg41].DC WHERE (ENums.ENumCode=33) AND (ENums_1.ENumCode=32) AND (ENums_2.ENumCode=34)" & _
  IIf(Pg4UseState = 0, "", " AND (D0510H.DocState=" & Pg4StateFilter.Column(0) & ")") & _
  IIf(Pg4UseClient = 0, "", " AND (D0510H.Client=" & Pg4ClientFilter.Column(0) & ")") & DFilter & _
  " ORDER BY D0510H.DocCode DESC;"

[Teslenko_EA]

Здравствуйте alco84.
"..Голова что то сломалась у меня от этого..." и Вы решили "сломать голову" участникам форума?
Для получения помощи образцы SQL конструкций бесполезны, нужен архив с образцом БД и описание проблемы.
Евгений.

[alco84]

Вопрос снят