Access БД .Проблема из функции в условие запроса

[ABPOPA]

проблема такая.
есть код

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

Public Function SpisokOsnov() As String
Dim varItem As Variant
Dim strRez As String
For Each varItem In spisok.ItemsSelected
strRez = strRez & spisok.ItemData(varItem) & ","
Next varItem
If Len(strRez) = 0 Then SpisokOsnov = "": Exit Function
strRez = Left$(strRez, Len(strRez) - 1)
strRez = "In(" & strRez & ")"
SpisokOsnov = strRez
End Function


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

Public Function GetValue()
GetValue = Form_Форма1.SpisokOsnov
End Function

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

SELECT таблица.id
FROM таблица
WHERE (((таблица.id)=GetValue()));

Первый блок:
Беру все выделенные в ЛистБокс значения и записываю в строку ввиде "In(73,74,75)"
Второй блок:
Получаю отдельным модулем строку из первого блока.
Тетий блок:
В запросе как условие беру значение из функции модуля.


собственно вопрос:
Запрос не отбирает данные(просто пустой получается),почему?
как еше попробывать?

пробывал строку "73 Or 74 Or 75" и "In(73,74,75)"
работает только если передается например "73"


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

[GSerg]

Код, не содержащий отступов, является издевательством над читающими его.

Что касается вопроса, то нельзя не сказать, что функция, вызываемая из запроса, не может возвращать текст на языке SQL, коим является "In(73,74,75)". "73,74,75" тоже им является. Функция может возвращать только одно значение.

Поэтому весь запрос целиком надо формировать в коде.

[ABPOPA]

Код, не содержащий отступов, является издевательством над читающими его.

Что касается вопроса, то нельзя не сказать, что функция, вызываемая из запроса, не может возвращать текст на языке SQL, коим является "In(73,74,75)". "73,74,75" тоже им является. Функция может возвращать только одно значение.

Поэтому весь запрос целиком надо формировать в коде.

Извеняюсь за форматирование.

а пример можно как формировать в коде. Просто не очень с этим дело имел.

[GSerg]

Пишешь базу данных, а s="hello " & "world" не делал никогда?

[ABPOPA]

в таком виде не писал.

интерисовался именно как запрос создать в коде.

могу предположить что надо сделать строку.в нее записать sql запрос, а потом передать эту строку. скорей всего в один из параметров .

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

   
    stDocName = "qwer"
    DoCmd.OpenReport stDocName, acPreview


но вот с этим я не работал.

просто спрашивал может пример кто привести сможет как это сделать

[gjghjc]

ну например так

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


Set ADDD = DAO.OpenDatabase(MainPath, False, False, "dBASE IV;LANGID=0x0419;CP=866;COUNTRY=0")

SQLExecString = "INSERT INTO " & Full_Name & " (Field1, Field2, Field3, Field4, Field5) values ( "
                SQLExecString = SQLExecString & """" & Text1.text & ""","
                SQLExecString = SQLExecString & """" & Text2.text & ""","
                SQLExecString = SQLExecString & """" & CCur(Text3.text) & ""","
                SQLExecString = SQLExecString & """" & Text4.text & ""","
                SQLExecString = SQLExecString & """" & UCase(Text5.text)     ' & ""","
                SQLExecString = SQLExecString & """" & " " & ")"
               


ADDD.Execute (SQLExecString)
Может не самый совершенный вариант.... но я думаю будет понятно что строка как бы сшивается из твоих данных и конструкций языка SQL.
А жирным выделено КУДА потом подставить полученную строчку