Поиск по параметрам(не понятен синтаксис)

@kivikivi · Регистрация: 02.07.2013

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

Всем добрый день!. Сегодня наткнулась в путеводителе по форуму на пример Ameli, решила попробовать осуществить такой поиск по нескольким параметрам. Но немного не получилось. Подскажите пожалуйста по коду (я начинающий). Первый вопрос (на её же примере, простите если так нельзя делать(()

Visual Basic

'Если выбран критерий Владелец
If Not IsNull(Me![КритВладелец]) Then
    If flg = True Then
    Criterii = Criterii & " And [Владелец] = " & Me![КритВладелец]
    Else
    flg = True
    Criterii = " WHERE [Владелец] = " & Me![КритВладелец] & " And " & Me![КритВладелец]
    End If
End If

Не могли бы вы объяснить синтаксис

Visual Basic

1	Criterii = Criterii & " And [Владелец] = " & Me![КритВладелец]

И почему нельзя написать , что если критерий выбран ( If flg = True ), то Criterii = " WHERE [Владелец] = " & Me![КритВладелец] & " And " & Me![КритВладелец], ? ....И почему в этом предложении два AND?
Я заранее извиняюсь за такое количество вопросов.
И еще вопрос. У меня было два поля - одно текстовое , другое числовое...подобный запрос не выполнялся..синтаксиси для таких полей одинаковый?

Ну и наконец третий вопрос..если у меня не равенство , а сравнение, то как изменится условие?
Спасибо за внимание

@Ameli · 19.07.2013, 10:53

Сообщение от kivikivi

Не могли бы вы объяснить синтаксис

Пример предназначен для одновременного поиска по нескольким параметрам.
Переменная flg показывает, есть ли уже какой-нибудь выбранный критерий ДО ЭТОГО. Поэтому проверяем, если flg = True, то дописываем в переменную Criterii еще одно условие отбора, т.е. берем то, что было в этой переменной до этого и плюс новый критерий. Поэтому

Visual Basic

1	Criterii = Criterii & " And [Владелец] = " & Me![КритВладелец]

Сообщение от kivikivi

И почему в этом предложении два AND

А вот это у меня ошибка! один раз должно быть. Просто перед этим были критерии с Between, скопировала и забыла подправить

Сообщение от kivikivi

Ну и наконец третий вопрос..если у меня не равенство , а сравнение, то как изменится условие?

Для сравнения по части текстового поля используйте оператор Like и добавляйте звездочки вначале/в конце, если впереди/после в текстовом поле могут быть еще символы:
Например,

Visual Basic

1	Criterii = "WHERE [Описание] Like '" & "строка сравнения" & "'"

При этом заключаем строку сравнения вместе со звездочками в одинарные кавычки

@kivikivi · 22.07.2013, 08:37 **[ТС]**

Ameli, Спасибо большое за полный ответ)

P.S ребята, кто искал подобные решения, кроме этого примера есть еще такой вариант, найденный недавно совершенно случайно:

@kivikivi · 22.07.2013, 20:17 **[ТС]**

Вот база с подобны примером (не моя) Вдруг пригодится

@kivikivi 0 / 0 / 0 Регистрация: 02.07.2013 Сообщений: 20
	22.07.2013, 08:37 [ТС]	3
	Ameli, Спасибо большое за полный ответ) P.S ребята, кто искал подобные решения, кроме этого примера есть еще такой вариант, найденный недавно совершенно случайно: 0

	22.07.2013, 20:17