здравствуйте все!!!!

Большое спасибо за моральную поддержку!!
А вот и вопрос

У меня в первый раз возникла необходимость динамического отбора записей для формы

Я представляю как сделать сам отбор, но вот с трудом понимаю, как эти записи вернуть в форму

Посоветуйте Плиззз что-нибудь

>>(сразу скажу, я делаю это через свои функции VB
наподобие GetDate1(), которая просто лезет в форму и читает значение контрола

Я тоже обычно так делаю, а сегодня появилась такая проблема
В запросе поле со значением, я хочу отобрать два случая, ести значение -
нет значения

В условие поставила функцию,
прописала для нее два ванианта
Is Null
Is Not Null
Но проблема в том, что функция возвращает значения в кавычках

"Is Null"
"Is Not Null", а, насколько я понимаю, в условиях запроса это неприемлемо

>>Criteria1 = IsNull(FieldValue)

Если я правильно поняла, то (FieldValue) это поле, в котором я буду делать отбор?

Вот что у меня получилось, но боюсь что не совсем правильно
или совсем неправильно
Private Sub Form_Load()
Dim strSql As String

strSql = "SELECT Подрядчики.КодП, Подрядчики.[Наименование подрядчика], Sum(Накопительная.Выполнение) AS [Sum-Выполнение], Sum(Накопительная.Сумма) AS [Sum-Сумма], Месторождения.Месторождение, Накопительная.Объект" _
& "FROM Подрядчики INNER JOIN ((Месторождения INNER JOIN Договора ON Месторождения.[Шифр месторождения] = Договора.[Шифр месторождения]) INNER JOIN Накопительная ON Договора.КодД = Накопительная.КодД) ON Подрядчики.КодП = Договора.КодП" _
& "WHERE (((Накопительная.ДатаВ) Between [txt1] And [txt2]))" _
& "GROUP BY Подрядчики.КодП, Подрядчики.[Наименование подрядчика], Месторождения.Месторождение, Накопительная.Объект" _
& "HAVING (((Подрядчики.[Наименование подрядчика]) Like " * " & psk() & " * ") And ((Накопительная.Объект) = True))" _
& "ORDER BY Подрядчики.КодП;"

Me![Анализ].Form.RecordSource = strSql

Me![Анализ].Form.Requery

End Sub
Public Function Criteria1(FieldValue As Variant) As Boolean

If (Forms!АнализГл!Otb = "Is Null") Then ' Здесь твое условие (значение контрола например)'

Criteria1 = IsNull(FieldValue)

Else

Criteria1 = Not IsNull(FieldValue)

End If

End Function

Ухожу домой
завтра потыкаюсь со вторым вариантом
Надеюсь, что получиться