Параметрический запрос со сложным отбором

@EvgenTrack · Регистрация: 25.07.2018

Author24 — интернет-сервис помощи студентам

Доброго времени суток!

Суть проблемы: у нас есть список показателей и данные по ним. в форме сделан список с этими показателями, сделав выбор из которого, нам по запросу вытягиваются данные. Если у данного списка параметр "отсутствует несвязанное выделение" - запрос работает норм, как только меняем параметр на "со связанным выбором" - запрос не работает, точнее пустая таблица. Исследовав данный вопрос пришел к выводу, что нужно будет прописать команду на ВБ, но после этого все равно не работает отбор. Суть кода планировалась следующая: выделяю параметры со списка и код "проставляет" их в отбор соответствующей графы запроса. Код, который у меня получился:

Visual Basic

Private Sub Список_показники_AfterUpdate()
   
    Dim varItem As Variant
    Dim strTemp As String
    Dim strSQL As String
    Dim db As DAO.Database
    Dim qry As QueryDef
    
strSQL = "SELECT Показник.Код показника, Показник.Найменування показників FROM Показник "
 
    For Each varItem In Me.ActiveControl.ItemsSelected
        strTemp = strTemp & "((Показник.Код показника) = " & Me.ActiveControl.ItemData(varItem) & ") Or "
    Next
    
    strSQL = strSQL & "WHERE (" & Left(strTemp, Len(strTemp) - 4) & ");"
    
'    On Error Resume Next
    Set db = CurrentDb
    With db
        .QueryDefs.Delete "Запрос1"
        Set qry = .CreateQueryDef("Запрос1", strSQL)
    End With
 
End Sub

Прошу гуру и мастеров помочь в решении вопроса.
ПС. если можно решить данный вопрос без прописки кода ВБ - прошу подсказать как...

mobile · 28.07.2018, 16:39

Попробуйте. Предполагается, что в БД есть сохраненный запрос с именем "Запрос1" и любым содержанием, чтобы его можно было менять.

Visual Basic

Private Sub Список_показники_AfterUpdate()
    Dim s, v, sq
    For Each v In Me.Список_показники.ItemsSelected
        s = s & "," & Me.Список_показники.ItemData(v)
    Next
    s = Mid(s, 2)
    Me.txt = s
    sq = "SELECT Показник.Код показника, Показник.Найменування показників FROM Показник " _
    & " where Показник.Код показника in (" & s & ")"
    CurrentDb.QueryDefs("Запрос1").sql = sq
End Sub

@EvgenTrack · 29.07.2018, 08:07 **[ТС]**

Ув. mobile, не получилось, гляньте пожалуйста на базу (может у меня руки кривые...

)... базу прикладываю

mobile · 29.07.2018, 09:55

Код показника введен в sql-выражение источника списка, поскольку выбор по коду, а его нет. Исправлен характеристики списка на случай 2 столбцов. Изменен код ВБА из-за наличия пробелов в именах полей. Ранее просмотрел, не заметил.

Visual Basic

Private Sub Список_показники_AfterUpdate()
    Dim s, v, sq
    For Each v In Me.Список_показники.ItemsSelected
        s = s & "," & Me.Список_показники.Column(1, v)
    Next
    s = Mid(s, 2)
    sq = "SELECT Показник.[Код показника], Показник.[Найменування показників] FROM Показник " _
    & " where Показник.[Код показника] in (" & s & ")"
    CurrentDb.QueryDefs("Запрос1").SQL = sq
End Sub

@EvgenTrack · 30.07.2018, 09:07 **[ТС]**

Всем доброго времени суток. Ув. mobile, огоромное спасибо - все работает!

ПС. подскажите, пожалуйста, что значит строка в Вашем коде?

Visual Basic

1	s = Mid(s, 2)

mobile · 30.07.2018, 19:03

Это удаление первой запятой до перечисления кодов. Функция Mid позволяет не использовать третий параметр (длина строки), в этом случае по умолчанию предполагается весь текст, начиная с указанного символа и до конца строки. И применяя Mid, удобнее ставить запятую впереди набора кодов, поскольку не требуется высчитывать еще и длину строки, как в Вашем коде/

mobile 26815 / 14494 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	30.07.2018, 19:03	6
	Это удаление первой запятой до перечисления кодов. Функция Mid позволяет не использовать третий параметр (длина строки), в этом случае по умолчанию предполагается весь текст, начиная с указанного символа и до конца строки. И применяя Mid, удобнее ставить запятую впереди набора кодов, поскольку не требуется высчитывать еще и длину строки, как в Вашем коде/ 0