Не хочет работать iif

[alco84]

Добрый вечер уважаемые не могу понять ругается на выделенное красным а ошибки я не вижу.

CurrentDb.CreateQueryDef "qryOutWord", "SELECT D1501H.UniCode, D1501H.DocCode, D1501H.DocType, D1501H.DocNum, Format([D1501H.DocDate],""«dd» mmmm yyyy"") AS DocDate," & _
" D1601H.Contact, D1501T6.Subject, D1601H.PreObjectAddress, D1501H.DocSum, iif(D1501H.DocSum is epty,"""",Sum2text([DocSum],True) AS SummText), Contacts.ItemName, Contacts.ItemName as Name," & _
" Contacts.BirthDate, Contacts.Passport as Passport, Contacts.PassportDate as PassportDate, Contacts.PassportPlace as PassportPlace, Contacts.EMail as EMail," & _
" Contacts.Phone as Phone, Contacts.PhoneMobile as PhoneMobile, Contacts.PostAddress as PostAddress" & _
" FROM Contacts INNER JOIN ((D1501H INNER JOIN D1601H ON D1501H.ProjectCode = D1601H.DocCode) INNER JOIN D1501T6 ON D1501H.UniCode = D1501T6.UniCode)" & _
" ON Contacts.ItemCode = D1601H.Contact WHERE (((D1501H.UniCode)=" & Forms!Docs!DocsPg1.Form.Controls!Un iCode & ") AND ((D1501H.DocType)=1));"

[Teslenko_EA]

Здравствуйте alco84.
Что отозначает текст ...DocSum is epty... используемый в конструкции? как минимум опечатка.
Без анализа, возможно подобная "корректировка" исправит ситуацию:
.., iif(Len(Nz(D1501H.DocSum)) = 0 ,"""",Sum2text([DocSum],True) AS SummText), ..
Евгений.

[alco84]

Совершенно верно это опечатка, но и ваша конструкция не хочет работать. Выдает одну и ту же ошибку синтаксиса якобы пропущен оператор только я никак не пойму что я упустил.

[alco84]

К сожалению не могу предоставить код программы тк данные хранятся на sql сервере а без них нет смысла от приложения.

[Serge_Bliznykov]

а если перенести скобку? вот так, например,

iif(Len(Nz(D1501H.DocSum)) = 0 ,"""",Sum2text([DocSum],True)) AS SummText,

p.s. и ещё, удобнее отлаживать подобные вещи, временно выкинув всё "лишнее" из select ... — оставьте только одно выражение и добивайтесь, чтобы оно заработало.

[alco84]

Спасибо за совет и поправку все теперь работает.

[Teslenko_EA]

alco84, я писал "Без анализа..", стоит его всё же выполнить.
для возможности проверить текст SQL конструкции передаваемой на выполнение (и не только для этого) измените структуру построения кода:
постоянные значения поместите в константы
Const sQ = "SELECT D1501H.UniCode,...", sQ2 = "") AND ((D1501H.DocType)=1.."
явно объявляйте переменные
Dim s As String ' для построения SQL конструкции лучше если они будут текстовые
задавайте значение переменным
s = Forms!Docs!DocsPg1.Form.Controls!Un iCode & "" ' амперсанд все объединяемые значения "превращает" в текст
далее можно формировать SQL конструкцию
s = sQ + s + sQ2..
отображать текст для возможности копирования и проверки в SQL конструкторе
Debug.Print s
и передавать её команде для выполнения
CurrentDb.CreateQueryDef "qryOutWord", s
как видите на всех этапах можно контролировать выполнение и "поймать" ошибку.
Мнение: конечно SQL конструкции запросов MS Access допускают применения в тексте запроса функций VBA, функция Sum2text, возможно она у Вас не верно объявлена и в этом проблема или я ошибаюсь
Евгений.