Помогите разобраться с запросом

[yura613]

Привет всем, помогите пож. разобраться.
Я формирую sql запрос, и потом пытаюсь открыть его. Но почему то выскакиевает ошибка "Слишком мало паремтров. Требуется 1".
Неработающий код

Код: Выделить всё

Dim basa As DAO.Database
Dim RecNum As DAO.Recordset
Dim SN As String, SQLStr As String
Dim i As Integer, max As Integer

Set basa = CurrentDb

SQLStr = "SELECT Партии.[Код SAP], Партии.[Экспертное заключение], Партии.Статус FROM Партии " & _
"WHERE (((Партии.[Код SAP])=[forms]![Загрузка отчетов]![Поле23]) AND ((Партии.Статус)=False))"

Set RecNum = basa.OpenRecordset(SQLStr) 'тут ругается



В другом месте похожий код работает, с единственным отличаем что в запросе есть Inner join

[HandKot]

Привет всем, помогите пож. разобраться.
Я формирую sql запрос, и потом пытаюсь открыть его. Но почему то выскакиевает ошибка "Слишком мало паремтров. Требуется 1".
Неработающий код

Код: Выделить всё

Dim basa As DAO.Database
Dim RecNum As DAO.Recordset
Dim SN As String, SQLStr As String
Dim i As Integer, max As Integer

Set basa = CurrentDb

SQLStr = "SELECT Партии.[Код SAP], Партии.[Экспертное заключение], Партии.Статус FROM Партии " & _
"WHERE (((Партии.[Код SAP])=[forms]![Загрузка отчетов]![Поле23]) AND ((Партии.Статус)=False))"

Set RecNum = basa.OpenRecordset(SQLStr) 'тут ругается



В другом месте похожий код работает, с единственным отличаем что в запросе есть Inner join

Код: Выделить всё

SQLStr = "SELECT Партии.[Код SAP], Партии.[Экспертное заключение], Партии.Статус FROM Партии " & _
"WHERE (((Партии.[Код SAP])= " & [forms]![Загрузка отчетов]![Поле23]) & "  AND ((Партии.Статус)=False))"

[yura613]

Спасибо
А тут еще с одним запросом проблемка.
Суть: есть список моделей, пользователь выбирает несколько едениц;эти еденицы закидываются в листбокс после чего пользователь нажимает кнопку которая создает запрос. Проблема в том что если пользователь выбирает всего одну модель то запрос работает как надо, а вот уже больше двух паказывает не то(а именно просто выдает все данные,которые есть в таблице по указанным моделям.) Помогите и с ним разобраться пож.

Код: Выделить всё

Set frmCust = Forms!МегаЗапрос
    With frmCust

CmbQr = "SELECT Партии.[Код SAP], Партии.[Экспертное заключение], Партии.[Дата окончания ЭЗ], Партии.Статус, Модели.[Название модели] " & _
      "FROM Модели INNER JOIN Партии ON Модели.[Код SAP] = Партии.[Код SAP] " & _
      "GROUP BY Партии.[Код SAP], Партии.[Экспертное заключение], Партии.[Дата окончания ЭЗ], Партии.Статус, Модели.[Название модели]  " & _
      "HAVING Партии.Статус=False AND Партии.[Дата окончания ЭЗ]>Now() AND Модели.[Название модели] ='"
       
     For intI = 0 To !Список8.ListCount - 1

       If intI = !Список8.ListCount - 1 Then
       
         CmbQr = CmbQr & frmCust!Список8.Column(0, intI) & "'"

       Else
       
         CmbQr = CmbQr & frmCust!Список8.Column(0, intI) & "'" & " OR " & "Модели.[Название модели] ='"

       End If

     Next intI
       
   End With

Set frmCust = Nothing

Set base = CurrentDb
Set qr = base.OpenRecordset(CmbQr)

[HandKot]

все перечисления моделей через OR надо внести в скобки
Having ... And (Model = '' or Model = '' or ...)



CmbQr = "SELECT Партии.[Код SAP], Партии.[Экспертное заключение], Партии.[Дата окончания ЭЗ], Партии.Статус, Модели.[Название модели] " & _
"FROM Модели INNER JOIN Партии ON Модели.[Код SAP] = Партии.[Код SAP] " & _
"GROUP BY Партии.[Код SAP], Партии.[Экспертное заключение], Партии.[Дата окончания ЭЗ], Партии.Статус, Модели.[Название модели] " & _
"HAVING Партии.Статус=False AND Партии.[Дата окончания ЭЗ]>Now() AND (Модели.[Название модели] ='"

For intI = 0 To !Список8.ListCount - 1

If intI = !Список8.ListCount - 1 Then

CmbQr = CmbQr & frmCust!Список8.Column(0, intI) & "')"

Else

CmbQr = CmbQr & frmCust!Список8.Column(0, intI) & "'" & " OR " & "Модели.[Название модели] ='"

End If

Next intI

End With

[yura613]

HandKot спасибо, так и сделал.

[yura613]

А еще вопрос по запросам.
Если уже создан запрос в БД. (При помощи конструктора) Можно ли программно изменять его параметры. (Например добавлять поле или наоборот условие.)

[Konst_One]

через QueryDefs можно , подставляя ему новый SQL

[yura613]

Konst_One так мне придется для каждого случая формирвоать новый SQL запрос. А запрос может быть как по одной таблице так и по нескольким или каждый раз может отображаться разное количество полей.
А вот если просто взять создать запрос по всем таблицам и полям, созадать пользовательскую форму и через нее просто выбирать какое поле отображать в запросе а какое нет, так можно сделать ?
Или если я заблуждаюсь в чем то можно примерчик? как через querydef можно подставлять sql ?

[gjghjc]

Лучше сделать свой конструктор строки запроса

" SELECT " & Функция выбора полей & " FROM " & Функция выбора таблиц & " WHERE " & Функция выбора условий отбора данных.

Вот что-то типа такого.

[yura613]

gjghjc по ходу так и придется делать.