слишком мало параметров

[evdss]

Добрый день!
Подскажите, пожалуйста, что не так? Жалуется на Set rsd = CurrentDb.OpenRecordset(strSQL)
Выдается сообщение слишком мало параметров
private Sub печать_Click()

'Объявляем переменные
Dim XL As Object
Dim XLT As Object
Dim newrow As Object
Dim db As Database
Dim qr As QueryDef
Dim rsd As DAO.Recordset
Dim strSQL As String
Set qr = CurrentDb.QueryDefs("реестр")
'Запрос к базе данных
strSQL = qr.SQL
qr.Close
Set rsd = CurrentDb.OpenRecordset(strSQL)

End Sub

[evdss]

запрос такой
strSQL=SELECT вызов.дата_письмаС, вызов.окпо, makepadeg([фио_гс],3) AS фио, (PersonDescription([фио_гс],True,[должность],[наименование],3,True)) AS адресат, гс.адрес, вызов.индекс_отдела, вызов.окуд
FROM гс INNER JOIN вызов ON гс.окпо = вызов.окпо
ORDER BY вызов.дата_письмаС, вызов.окпо, makepadeg([фио_гс],3);
кроме этого надо вставить where
процедура
Dim XL As Object
Dim XLT As Object
Dim newrow As Object
Dim db As Database
Dim qr As QueryDef
Dim rsd As DAO.Recordset
Dim датап As Date
Dim j As Currency
Dim strSQL As String
Set qr = CurrentDb.QueryDefs("реестр_excel")
'Запрос к базе данных
strSQL = qr.SQL
qr.Close
strSQL = Replace(strSQL, ";")
strSQL = strSQL & " WHERE (((вызов.дата_письмаС)=forms!реестр П!датасп) And ((вызов.индекс_отдела)=forms!вызов! индекс_отдела))" & ";"
Set rsd = CurrentDb.OpenRecordset(strSQL)
подскажите, пожалуйста, что не так, без where все работает, сам запрос с where работает

SELECT вызов.дата_письмаС, вызов.окпо, makepadeg([фио_гс],3) AS фио, (PersonDescription([фио_гс],True,[должность],[наименование],3,True)) AS адресат, гс.адрес, вызов.индекс_отдела, вызов.окуд
FROM гс INNER JOIN вызов ON гс.окпо=вызов.окпо
WHERE (((вызов.дата_письмаС)=forms!реестр П!датасп) And ((вызов.индекс_отдела)=forms!вызов! индекс_отдела))
ORDER BY вызов.дата_письмаС, вызов.окпо, makepadeg([фио_гс],3);

[shanemac51]

Sub mm150211()
Dim XL As Object
Dim XLT As Object
Dim newrow As Object
Dim db As Database
Dim qr As QueryDef
Dim rsd As DAO.Recordset
Dim датап As Date
Dim j As Currency
Dim strSQL As String
Set qr = CurrentDb.QueryDefs("реестр_excel")
'Запрос к базе данных
strSQL = qr.SQL
qr.Close
strSQL = Replace(strSQL, ";", "")
strSQL = strSQL & " WHERE (((вызов.дата_письмаС)=forms![реестр П]!датасп)"
strSQL = strSQL & " And ((вызов.индекс_отдела)=forms!вызов! индекс_отдела))" & ";"
''у вас одновременно две формы открыты?
''и в поле (реестр п ) пробел в середине
''-----------------------------------
''контроль в окне отладки , что вы насцепляли !!!!!!!!!!!

Debug.Print strSQL
Set rsd = CurrentDb.OpenRecordset(strSQL)

''''''''''''''''''''''''''''
''SELECT вызов.дата_письмаС,
'' вызов.окпо,
'' makepadeg([фио_гс],3) AS фио,
'' (PersonDescription([фио_гс],True,[должность],[наименование],3,True)) AS адресат,
'' гс.адрес , вызов.индекс_отдела, вызов.окуд
''FROM гс INNER JOIN вызов ON гс.окпо = вызов.окпо
''ORDER BY вызов.дата_письмаС, вызов.окпо, makepadeg([фио_гс],3)
'' WHERE (((вызов.дата_письмаС)=forms![реестр П]!датасп)
'' And ((вызов.индекс_отдела)=forms!вызов! индекс_отдела));


End Sub