ник: ГлазастыйМышь
я таким макаром собираю хитрые выборки на лету
modProm = Nz(DLookup("[VALUE]", "[STRATEGY_OPER_OBJECT_PROPERTY]", "[ID_OBJECT] ='kn29737' AND [ID_PROPERTY]='pr6958'"), "---")
If modProm <> "---" Then
StrFilter = StrFilter + " AND " & "([Vpr6958] Like ('*" & modProm & "*'))"
StrCriteria = StrCriteria + IIf(Len(StrCriteria) = 0, vbNullString, " // ")
StrCriteria = StrCriteria + "Название организации: " & modProm
End If
где StrFilter как Variant и начальное значение как null
таким образом не надо проверять нужен или нет AND в предложении Where