недостаточно параметров openrecordset

Пятница, 02 Июня 2017 г. 03:37 + в цитатник

Доброго времени суток.
Пытаюсь открыть recordset и выдается ошибка Слишком мало параметров требуется 2.
Уже делал таким способом, но там запрос поместился в одну строку и все нормально работает.
Подскажите в чем проблема может быть?

Dim db As Database
Dim strArray() As Variant
Dim prArray() As Variant
Dim strSQL1 As String
Dim tdf1 As DAO.Recordset
Dim rstData1 As DAO.Recordset
Dim eData1 As Integer
Dim fData1 As Integer
Dim efields1 As Integer

Set db = CurrentDb()
efields = 9
strSQL1 = "SELECT ZStrData.id_incoming_indicator, ZStrData.id_region, ZStrData.id_item_str, ZStrData.id_unit, [ZStrData].[ind_value]/[Sum-ind_value] AS Выражение1, StrItem.name_item_str, StrItem.id_str_type, ZStrData.twelvemonth, ZStrData.id_data FROM (ZStrDataSum INNER JOIN ZStrData ON (ZStrData.twelvemonth = ZStrDataSum.twelvemonth) AND (ZStrData.id_unit = ZStrDataSum.id_unit) AND (ZStrData.id_region = ZStrDataSum.id_region) AND (ZStrDataSum.id_incoming_indicator = ZStrData.id_incoming_indicator)) INNER JOIN StrItem ON ZStrData.id_item_str = StrItem.id_item_str GROUP BY ZStrData.id_incoming_indicator, ZStrData.id_region, ZStrData.id_item_str, ZStrData.id_unit, [ZStrData].[ind_value]/[Sum-ind_value], StrItem.name_item_str, StrItem.id_str_type, ZStrData.twelvemonth, ZStrData.id_data, ZStrData.twelvemonth "
strSQL1 = strSQL1 + "HAVING (((ZStrData.id_incoming_indicator) = " & [Forms]![main]![Data_str].[Form]![index1] & ") And ((ZStrData.id_region) = " & [Forms]![main]![Data_str].[Form]![region1] & ") And ((StrItem.id_str_type) = " & [Forms]![main]![Data_str].[Form]![str1] & ") And ((ZStrData.twelvemonth) = " & CDbl([Forms]![main]![Data_str].[Form]![period1]) & ")) Or (((ZStrData.twelvemonth) = " & CDbl([Forms]![main]![Data_str].[Form]![period2]) & ")) ORDER BY ZStrData.id_item_str, [ZStrData].[ind_value]/[Sum-ind_value] DESC;"


Set rstData1 = db.OpenRecordset(strSQL1, dbOpenDynaset)