Здравствуйте!

Потребовалось мне одну разработку регулярно переводить в различные версии Access, включая Ac97.
В разработке использованы некоторые возможности более поздних версий, неизвестные 97-ому.
В частности, условное форматирование.
Задается оно программно – изначально в ленточной форме отсутствует, чтобы не мигало и не тормозило,
а в определенном случае создаются нужные правила, это вынесено в отдельную процедуру.
Чтобы исключить ошибки компиляции, в Ac97 попробовала применить условную компиляцию.
Разумеется,
оказалось глупостью, ведь значение S в момент компиляции не определено, да и само S тоже.

Передавать аргументы условной компиляции извне не очень хочется,
так как потребуется их каждый раз задавать вручную.
Кроме того, они и задаются по-разному:
для Ac97 — через главное меню БД
для Ac2000 и далее — через редактор VBA

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

Пока вижу наименее трудоемкий способ таким – два разных условия и переносить знак комментария:
Всего одно движение.
Но хочется так наладить, чтобы все происходило вообще само собой, без моего участия каждый раз.

Поэтому такой вопрос:

Есть ли такая константа компилятора VBA, значение которой будет говорить об используемой версии Access, или хотя бы офиса?
По аналогии с константами Win16/Win32/Win64.

Список имеющихся констант смотрела https://msdn.microsoft.com/ru-ru/library/office/gg264614.aspx.
Но вдруг кто-то знает секретные константы.)))

akirey,

Спасибо.
Очень возможно.
Доступ к 97-му буду иметь завтра, там и проверю.
Думаю, главное определить, что это 97, то есть достаточно будет проверять Vba6.
Для всех же остальных версий действия одинаковые.

А если на машине несколько офисов, не перекроется ли более раннее VBA более поздним?
Наверное, все же нет.
В общем, надо все проверить.

О результатах сообщу.

Анатолий ( Киев ),

Да. Спасибо.
Этот вариант мною уже опробован как запасной.
Но я еще для гарантии вместо явного указания формы сделала так

Может, это использование объекта и лишнее.
Вместо acExpression использовала 1.

Но это уже после того, как у меня не вышло с условной компиляцией.
А разобраться ведь все-таки надо.)))

studieren,

Спасибо. Очень интересно.
Что-то более осмысленное сказать пока не в состоянии -
надо внимательно прочитать и здесь и по ссылкам. И не один раз.
Первое впечатление - весьма непростой вариант, для корифеев.)))

Вакшуль Сергей,

)))
Спасибо.
Но это действительно появилось позже.
Сейчас проверила в 2000-м - еще такого свойства нет, а вот в 2003-м уже есть.

И потом, ведь это, как мне кажется, примерно то же, что и SysCmd(acSysCmdAccessVer).
Только результат по-другому представлен.
А, нет, все же не полный аналог.
SysCmd(acSysCmdAccessVer) дает версию Access, а
CodeProject.FileFormat - в каком формате сохранен файл БД.

Анатолий ( Киев ), akirey,

Спасибо за идеи.
Прошу прощения за долгую паузу.)))

Проверила константы VBA6 и VBA7 в версиях Access 97, 2000, 2003, 2007.
Получилось следующее.
В 97-ом ни одна константа не известна.
2000-й, 2003-й, 2007-й знают только VBA6.
Гипотетической константы VBA5 нет вообще.
Окончательно сделала так:
Все работает. И не пришлось применять уловки, замещать acExpression значением.
_________________________________________________________________________________

Однако попутно возникли некоторые странности, заставившие разбираться.
и
дают одинаковый результат – Истина. Почему?
В конце концов, экспериментальным путем, выяснилось, что VBA6 = 1, а Not VBA6 = –2.
И то, и другое трактуется как Истина.
И вообще, Истиной считается любое ненулевое и непустое число –
как положительное, так и отрицательное, как целое, так и дробное.
А Not, согласно результатам моих экспериментов, действует на <значение> так:
, то есть, например,
Информация о том, что ненулевое число дает Истину, где-то мне раньше попадалась.

Что скажете обо всем этом?)))

Владимир Саныч,

Меня удивило, что поэтому
#If VBA6 Then
и
#If Not VBA6 Then
дают одинаковый результат.

Но в справке также сказаноИз справки Access Remarks

The following table illustrates how result is determined:

If expression is Then result is True False False True Null Null
То есть, применение Not к выражению, трактуемому как True, должно давать False.
Возьмем выражение 1, это трактуется как True, но
.А –2 тоже трактуется как True.
Налицо противоречие.
Табличка, получается, справедлива только, если expression 0, -1 или Null.

ROIА есть есчё константа "-1".
С уважением.ROIВернее значение, сориВ чем смысл Вашего замечания?
Прошу прощения, но мне кажется, что Вы сорите.)))

Панург
Многие функции API возвращают 0 или 1 как булевы значения, в системе они соответствуют False и True Такое условие дало False для совместимой среды разработки, и True для несовместимой.
Вроде, тоже правильно.
Но мне все же очевидней условие
Только действия противоположные.

Анатолий ( Киев )Итак:
1. Not, это оператор меняющий состояние каждого бита на противоположное, т.е. 1->0, а 0->1
2. Хоть VBA в операторах сравнения и оперирует понятиями ноль и не ноль, но родным True для него является -1, т.е. в FF в Hex, т.е. все биты равны 1. Поэтому Not превращает это значение в 0 и обратно.
Любые целые числа (отличные от 0 и -1) оператор Not превращает в другие целые числа.
При этом для всех числовых типов кроме Byte (здесь FF равно 255) самый старший бит определяет - положительное число или отрицательное.Все это поняла. И, надеюсь, усвоила.
И пояснения -Практикант- — также.
Спасибо всем.
Про старший бит тоже уже начала вспоминать. Надо бы Джермейна полистать.)))

Но вот осталась "закавыка":
https://msdn.microsoft.com/ru-ru/library/office/gg264614.aspx msdn.microsoft.com Справочник по языку VBA для Office > Константы компилятораКонстантаЗначениеОписаниеVba6TrueУказывает, что в качестве среды разработки используется Visual Basic для приложений, совместимый с версией 6.0.Vba6FalseУказывает, что средой разработки не является Visual Basic для приложений, совместимый с версией 6.0.Vba7TrueУказывает, что в качестве среды разработки используется Visual Basic для приложений, совместимый с версией 7.0.Vba7FalseУказывает, что средой разработки не является Visual Basic для приложений, совместимый с версией 7.0.Нет пояснения, что в данном случае True не -1, а 1.
Отсюда и все дальнейшие нестыковки, как мне кажется.

Но все на пользу — теперь буду знать тонкости If и Not.)))

Владимир Саныч__MichelleТо есть, применение Not к выражению, трактуемому как True, должно давать False.
Нет. Применение Not к настоящему True должно давать False. А только после этого результат трактуется.То есть, Not корректно применяется только к Boolean.
Числа, отличные от 0, -1, Null, следует предварительно преобразовать в "истинное" True.
И в справке msdn.microsoft.com "Справочник по языку VBA для Office > Константы компилятора"
должно было быть уточнение, что значение True для этих констант не -1, а 1.

Predeclared__Michelle..., что значение True для этих констант не -1, а 1.
:)
Зря вы так.Почему? Разве -1? У меня получилось, что 1. Проверяла.

А Вы считаете иначе?

Получится ошибка компиляции.
Рисунок вставлять не буду, просто скопирую сообщение.
---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

Variable not defined
---------------------------
ОК Справка
---------------------------

Думаю, константы эти известны только препроцессору.

2013-го у меня тоже нет. Сейчас проверяю в 2000-м.
Ноутбук с 2003-м и 2007-м доставать не хочется.

В оригинале "the compiler constants are defined as follows".
Определяются, задаются,....
В заголовке Value, значение.

И на что это влияет с точки зрения моего понимания?

А в примерах там и подавно, смотрите, какие разъяснения даны.
И какому же true они, согласно этим комментариям, равны, позвольте спросить?
Обычному для VBA -1, как можно ожидать, исходя из названия справки "Справочник по языку VBA"?
Нет.

PredeclaredТо, что в комментариях они понаписали не совсем (точнее, совсем не) корректное:
' Win64=true, Win32=true, Win16= false
не дает повода предлагать не менее нелепое:
__Michelle..., что значение True для этих констант не -1, а 1Вовсе не на основе процитированного комментария сделан мною этот "нелепый" вывод.
А на основе нескольких проверок.
Могу согласиться лишь с тем, что формулировка этого вывода слегка "нелепая".
Правильно будет так: значение этих констант в случаях "совместимости" (для краткости так обзову) равно 1.

Насчет "приколоченности гвоздями к стенке"...
Все относительно.
В VBA True=-1, в SQL Server True=1.
Почему я не могла допустить, что для препроцессора тоже True=1,
прочитав эту справку и убедившись на опыте, что VBA6 не равно VBA-шному True?

PredeclaredНЕ МОЖЕТ быть разных значений констант для разных случаев.
Ну не может по определению. Патамушта константы.
:)Да-да.)))
Только на рисунке с табличкой, который Вы приводите,
для констант VBA6 и VBA7 по две строки, с двумя разными значениями для каждой.
Конечно, в "несовместимых" случаях они просто неизвестны препроцессору и потому результат False.
Но, тем не менее...

И потом, если я говорю о значении, принимаемом константой в таком-то случае,
разве это означает, что я собираюсь приписывать ей другие значения для других случаев?
Нет.
В случае "совместимости" константа знакома препроцессору и имеет значение 1,
в случае же "несовместимости" константа не знакома препроцессору и попытка ее проанализировать через #If дает False.

О, Боги....

Да.
Знала ведь, что это "уязвимая"формулировка, но надеялась, что контекст выручит.
Хорошо, не "о значении, принимаемом константой ...", а
"о значении, имманентно присущем константе и проявляющемся в таком-то случае".)))
Это значение единица.

А теперь той же монетой.)))
"..... части condition стайтмента If...Then...Else..."
Эти константы не могут участвовать в таком If, только в #If....#Then.....#Else.
)))

1. Predeclared__Michelle..., а
"о значении, имманентно присущем константе и проявляющемся в таком-то случае".)))
...
Ну да, ну да.
В полнолуние проявляется имманентно присущее значение констант.
:)Нет. Не обязательно в полнолуние. Фаза Луны значения не имеет.
Я ведь уже писала в 19021105 про эту VBA6В случае "совместимости" константа знакома препроцессору и имеет значение 1,
в случае же "несовместимости" константа не знакома препроцессору и попытка ее проанализировать через #If дает False.
2. Predeclared__Michelle... Эти константы не могут участвовать в таком If, только в #If....#Then.....#Else...
И ...?
От наличия решеток If...Then...Else перестал быть If...Then...Else?
Или у него пропала часть condition?Нет. Не перестает и не пропадает. Суть не в этом.
У Вас было про "разные результаты интерпретации части condition стайтмента If...Then...Else для разных версий платформ.".
Но для этого варианта If...Then...Else нет зависимости результата интерпретации части condition от версии платформы.

3.
Снова про "гвозди сотка". (Nine Inch Nails ???)
То есть, Вы утверждаете, что один и тот же код всегда имеет дело с одним и тем же значением используемой константы условной компиляции?
Но ведь смысл условной компиляции в том и состоит, чтобы, в зависимости от текущего значения этой константы
либо компилировать, либо игнорировать некоторый участок кода.

Predeclared__Michelle..., в зависимости от текущего значения этой константы ...

Все, я больше не могу, и не хочу в 32 раз писать одну и ту же прописанную в букваре истину.

Michelle, завязывайте бухать уже!
:)Вместо 32-кратной писанины лучше хотя бы раз внимательно прочитать мои сообщения.

Думаете, очень остроумно завершили навязанную мне Вами дискуссию?
А мне кажется, грубо и неуместно.

Но, действительно, достаточно.