кавычки у вас похоже нормально, а вот пробелы ---увы
strsql = "SELECT Sum(BedCalc([ПланОбъемДеят],"
strsql = strsql & " [кодФункционал],[МедОрг])) AS РасчетКоек "
strsql = strsql & " FROM (сСпециальностей INNER JOIN сШН"
strsql = strsql & " ON сСпециальностей.Код = сШН.МедСпец) "
strsql = strsql & " INNER JOIN ФункционалМедОрг"
strsql = strsql & " ON сШН.КодФункционал = ФункционалМедОрг.Функционал"
strsql = strsql & " WHERE (((ФункционалМедОрг.МедОрг)=""" & glngMedOrgCode & """) AND "
strsql = strsql & "((ФункционалМедОрг.Функционал)<69) AND ((сСпециальностей.Хирургичность)=Yes));"
хотя glngMedOrgCode--похоже число, зачем тогда кавычки
strsql = "SELECT Sum(BedCalc([ПланОбъемДеят],"
strsql = strsql & " [кодФункционал],[МедОрг])) AS РасчетКоек "
strsql = strsql & " FROM (сСпециальностей INNER JOIN сШН"
strsql = strsql & " ON сСпециальностей.Код = сШН.МедСпец) "
strsql = strsql & " INNER JOIN ФункционалМедОрг"
strsql = strsql & " ON сШН.КодФункционал = ФункционалМедОрг.Функционал"
strsql = strsql & " WHERE (((ФункционалМедОрг.МедОрг)=" & glngMedOrgCode & ") AND "
strsql = strsql & " ((ФункционалМедОрг.Функционал)<69) AND ((сСпециальностей.Хирургичность)=Yes));"
каков тип ФункционалМедОрг.МедОрг
|