Здравствуйте,
вообщем у меня такая ситуация:
нужно с помошью VBA создать функцию с простеньким SQL запросом, из которого нужно выцепить результат в виде текстовой переменной (в результате этого запроса будет получаться всего лишь одно единственное значение).

PS В хелпе уже больше не могу ковыряться, всесь мозг сломал :(

Топик, ..., переименован

Если кто может, помогите, очень надо.....

incold, извени, что подробно не расписал, просто я ни когда не сталкивался с написанием макрасов в access, но очень срочно понадобилось сделать очень простую функцию, типа вложенного селекта.

Хотя у меня глобальная задача посложнее будет:
Вообщем, у меня есть список телефонных кодов(префиксов), операторов и цен на данное направление (таблица выгледит следующим образом [prefix, opperator, price]).
Есть маленькая хитрость: если оператор в прайсе дает код 1(сша и канада) по цене 5 центов, то все коды, которые начинаются с этой цифры (1204,12687, 1450 и т.п.) тоже должны быть по этой цене, т.е по 5 центов.
Для сравнения цен мне нужно сделать перекресный запрос с таким условием, чтоб если встречается пустая цена, то должна выполняться следующая штука: от текущего кода должно отсекаться по по одному символу, пока не будет найдена цена вышестоящего префикса. Если такого префикса нет, то должно остаться пустое значение.

Если делать с DLookup получается очень медленно, на запрос может уйти очень много времени (около часа наверное).

Я хотел сделать функцию, которая могла бы выполнять слелующий алгоритм и возвращатать нужную цену.

Кстати, у меня проблемма :( уже не первый раз пытаюсь запустить макрос, а у меня постоянно выдается ошибка...
Если рассматривать на примере написанного сдесь кода товаришем PA(за что ему огромное спасибо), то при запуске выделяется строка "Dim qdf As DAO.QueryDef" и появляется надпись: "User-defined type not defined"
Почему так получается? :(

Таблица есть, но только я её переслать не могу, на работе за такое по какосам настучать могут :(

чтоб было по понятней, приведу какой-нибудь пример:
Вообщем, предположим, один из операторов дал код 7(Россию целиком) по цене 10 центов, 79 (типа все сотовые) по 5 центов. В нашем случае в таблице появляется код 7095. Оператор отдельно его не выделил, хотя реально по его прайсу он стоит 10 центов. Адгоритм таков, что он отсекает последний символ (в нашем случае получается 709), ни чего не находит, отсекает еще один (70)- опять ни чего; опять отсекае(7) - находит код 7 с ценой 10 центов и присваивает эту цену текушему коду, т.е. в нашем случае 7095=10 центов... и т.д.
Вот такая вот загагулина :)

Hummer2 -=XXX=-
Как всё знакомо про префиксы:)

Ваша биллинговая система неверно устроена - алгоритм не таков - реально расписываются все возможные коды и комбинациии на конкрентную зону, плюс ещё есть правила подмены - в общем, не составляет никакого труда по справочникам с префиксами найти нужный тариф по заданной зоне...

Биллинг у нас хорошиы и зоны определяет, и с детализацией работает как надо :)
Честно говоря, он сдесь не причем... это нужно для анализа цен закупки у операторов. Т.к. зоны у всех разные, префиксы на направления тоже все по своему дают (бывает даже очень коряво), мне просто нужно их сравнить и проанализировать. В excele все очень просто и быстро работает, а вот в Accesse, что -то пока не получается :(

Geo
public function f
f=currentdb.execute("select ...и дальше текст запроса...").fields(0)
end function


Выделяет ".execute" и сообщает об ошибке "Expected Function or variable" :(