CurrentDb.OpenRecordset Слишком мало параметров. Требуется 1

[Stilet]

Всем доброго.
Мне в отчет Акцесса 2003 нужно итоговое поле. Поскольку Акцесс не знаю толком, решил сделать функцию:

Function Itog()
 Dim rs As Recordset
  Itog = 0
  Dim q As DAO.QueryDef
  Set q = CurrentDb.QueryDefs("Запрос1")
  Dim sql As String
  sql = q.sql
  q.Close
     
  Set rs = CurrentDb.OpenRecordset(sql)
  If Not rs.EOF Then
    Itog = rs.Fields(0).Value
  End If
  rs.Close
  'q.Close
  
End Function

На основании темы http://www.programmersforum.ru/showt....OpenRecordset
Поскольку с CurrentDb.OpenRecordset есть некий прикол (которого я чесно говоря не понял)

Ошибка, как правило, возникает со следующим текстом "Too few parameters. Expected Число" ("Слишком мало параметров. Ожидалось Число").
Эта ошибка возникает, если команда или один из нижележащих запросов содержит обращения к формам или собственные параметры, - все эти обращения будут восприняты как параметры, которым не передано значение.
Почему так происходит? - Вот вольный перевод из MSDN (ms-help://MS.MSDNQTR.2003APR.1033/enu_kbacc2000kb/acc2000kb/209203.htm):
MSDN

NOTE: В DAO Вы должны явно присвоить значение параметру. При использовании DoCmd.OpenQuery Вы этого делать не должны, т.к. DAO использует операции низкого уровня, что даёт Вам большую свободу в использовании параметров (т.е. Вы можете сами присвоить параметру значение переменной, а не использовать ссылку на форму), но Вы должны выполнить служебные действия, которые Аксесс делает "за кулисами" при исполнении DoCmd. С другой стороны, DoCmd работает на более высоком уровне, чем DAO. Выполняя DoCmd, Microsoft Access делает некоторые предположения о том, как поступить с параметрами, и не дает Вам никакой свободы в этом отношении.

Это я на одном форуме нашел описание.

Вопрос: Поскольку ошибка эта все еще вылезает, подскажите что я упустил из виду.
Если есть другие способы вставить итоговое поле в отчет, в которое будет вписываться значение некоего запроса типа SELECT Sum(...) ... прошу указать на них.

Заранее спасибо.

[R Dmitry]

Сообщение от Stilet

Всем доброго.
Мне в отчет Акцесса 2003 нужно итоговое поле. Поскольку Акцесс не знаю толком, решил сделать функцию:

Function Itog()
 Dim rs As Recordset
  Itog = 0
  Dim q As DAO.QueryDef
  Set q = CurrentDb.QueryDefs("Запрос1")
  Dim sql As String
  sql = q.sql
  q.Close
     
  Set rs = CurrentDb.OpenRecordset(sql)
  If Not rs.EOF Then
    Itog = rs.Fields(0).Value
  End If
  rs.Close
  'q.Close
  
End Function

На основании темы http://www.programmersforum.ru/showt....OpenRecordset
Поскольку с CurrentDb.OpenRecordset есть некий прикол (которого я чесно говоря не понял)


Это я на одном форуме нашел описание.

Вопрос: Поскольку ошибка эта все еще вылезает, подскажите что я упустил из виду.
Если есть другие способы вставить итоговое поле в отчет, в которое будет вписываться значение некоего запроса типа SELECT Sum(...) ... прошу указать на них.

Заранее спасибо.

если отчет в access то достаточно сделать группировку, и в примечании группы добавить поле формула которого будет содержать
такую формулу
=Sum([Summa]), где [Summa] это поле по которому суммируем данные

еще как вариант можно использовать union с результирующим запросом

Вот маленький пример, думаю будет понятно

[Stilet]

Спасибо, но при таком раскладе он отчего-то выводит мне окно с просьбой указать значение... Видимо я где-то еще навтыкал... Но идею понял, буду пока что от нее отталкиваться

[gluk_fm]

По личному опыту скажу что в 99% такая ошибка выскакивает в случае если параметр отбора нулевой или не соответствует. Для решения переводите рекордсет в запрос и смотрите где глюк....