ReSQL.ru
     
powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Меню 2003 - 2007
15 сообщений из 15, страница 1 из 1
Меню 2003 - 2007
    #37428898
Фотография vah
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vah
Участник
Скажите пожалуйста. Формирую меню в 2007 с помощью xml, но код обрабатывающий загрузку меню в 2007 не компилируется в 2003. Другие библиотеки. А приложение используется и 2003 и в 2007.

Как это победить?

Заранее благодарен.
...
Рейтинг: 0 / 0
07.09.2011, 13:25
| Ответить | Цитировать | Написать  
Меню 2003 - 2007
    #37429029
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
dim b as boolean
b=(val(application.version)>=12)
#if b then
application.LoadCustomUI ....
#else
CurrentProject.Properties.add "StartUpMenuBar", "menu2003"
#end if
...
Рейтинг: 0 / 0
07.09.2011, 14:21
| Ответить | Цитировать | Написать  
Меню 2003 - 2007
    #37429192
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
Хотя наврал. Не расчетное значение д.б.,а константа

#const b=true
...
Рейтинг: 0 / 0
07.09.2011, 15:13
| Ответить | Цитировать | Написать  
Меню 2003 - 2007
    #37429216
Фотография vah
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vah
Участник
Senin ViktorХотя наврал. Не расчетное значение д.б.,а константа

#const b=true

А можно сделать такое условие на весь модуль?
...
Рейтинг: 0 / 0
07.09.2011, 15:23
| Ответить | Цитировать | Написать  
Меню 2003 - 2007
    #37429235
Фотография vah
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vah
Участник
Senin ViktorХотя наврал. Не расчетное значение д.б.,а константа

#const b=true


А как можно записать такое?

Код: plaintext
1.
2.
#Const b = (Val(Application.Version) >=  12 )

#If b Then
...
Рейтинг: 0 / 0
07.09.2011, 15:30
| Ответить | Цитировать | Написать  
Меню 2003 - 2007
    #37429236
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
vah,

чуть поискал оказывается (слова "условная компиляция" есть константа новая vba7
наверное,можно ее юзать -для отличия 2003 (и ниже) от 20 10
http://msdn.microsoft.com/ru-ru/library/ee691831.aspx

#if vba7 then
application.LoadCustomUI ....
#else
CurrentProject.Properties.add "StartUpMenuBar", "menu2003"
#end if
...
Рейтинг: 0 / 0
07.09.2011, 15:30
| Ответить | Цитировать | Написать  
Меню 2003 - 2007
    #37429238
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
пардон за ошибки.

Код: plaintext
1.
чуть поискал оказывается (слова "условная компиляция") есть константа новая vba7
наверное,можно ее юзать -для отличия 2007 (и ниже) от 2010
...
Рейтинг: 0 / 0
07.09.2011, 15:32
| Ответить | Цитировать | Написать  
Меню 2003 - 2007
    #37429248
Фотография vah
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vah
Участник
Senin Viktorпардон за ошибки.

Код: plaintext
1.
чуть поискал оказывается (слова "условная компиляция") есть константа новая vba7
наверное,можно ее юзать -для отличия 2007 (и ниже) от 2010


Спасибо Вам огромное. Мне бы отличить 2007 от меньших версий...
...
Рейтинг: 0 / 0
07.09.2011, 15:35
| Ответить | Цитировать | Написать  
Меню 2003 - 2007
    #37429281
Фотография vah
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vah
Участник
Как при условном компилировании опознать Acctss 2007?
...
Рейтинг: 0 / 0
07.09.2011, 15:45
| Ответить | Цитировать | Написать  
Меню 2003 - 2007
    #37429298
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
vahКак при условном компилировании опознать Acctss 2007?

да никак - см. хэлп.
Придется делать два файла с разными #Const b=true/false

либо распространять приложение с runtime'ом нужной версии акеса
...
Рейтинг: 0 / 0
07.09.2011, 15:49
| Ответить | Цитировать | Написать  
Меню 2003 - 2007
    #37430419
T_Alex_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
T_Alex_G
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Application.SetOption "Conditional Compilation Arguments", "AccessVersion_ = " & Val(Application.SysCmd(acSysCmdAccessVer))
#If AccessVersion_ =  11  Then
    MsgBox "код для Acc2003 "
#ElseIf AccessVersion_ =  14  Then
    MsgBox "код для Acc2010"
#else
    msgbox "прочие версии"
#End If
...
Рейтинг: 0 / 0
08.09.2011, 12:08
| Ответить | Цитировать | Написать  
Меню 2003 - 2007
    #37430640
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
чуда не случилось,код, конечно, работает, только не работает :) должным образом
Верней работает правильно, но только после двух запусков.
Первый запуск (установка свойства) не вызывает инициализацию вновь добавленной константы AccessVersion_ , а юзается либо ее ранее существовавшее значение, либо выполняется #else

Проверил. Запустил пару раз в акесе 2010. Свойство стало "AccessVersion_ = 14"
Открыл в акесе 2003 - выдало,что это акес 2010, повторный запуск - выдало 2003.
...
Рейтинг: 0 / 0
08.09.2011, 13:40
| Ответить | Цитировать | Написать  
Меню 2003 - 2007
    #37430669
T_Alex_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
T_Alex_G
Гость
а если вынести функцию с кодом
Код: plaintext
Application.SetOption "Conditional Compilation Arguments", "AccessVersion_ = " & Val(Application.SysCmd(acSysCmdAccessVer))
в autoexec ?
...
Рейтинг: 0 / 0
08.09.2011, 13:53
| Ответить | Цитировать | Написать  
Меню 2003 - 2007
    #37442876
Фотография vah
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vah
Участник
T_Alex_Gа если вынести функцию с кодом
Код: plaintext
Application.SetOption "Conditional Compilation Arguments", "AccessVersion_ = " & Val(Application.SysCmd(acSysCmdAccessVer))
в autoexec ?

Идея хорошая, НО когда я делаю mde и запускаю его в 2007, то вылезает ошибка:
"Ошибка записи параметров модуля"
...
Рейтинг: 0 / 0
16.09.2011, 08:49
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Меню 2003 - 2007
    #39394518
ser_volk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ser_volk
Гость
Если надо скомпилировать конструкцию
Application.LoadCustomUI strRibbonName, strRibbonXML

под Access 2003, то можно сделать это так:
CallByName Application, "LoadCustomUI", VbMethod, strRibbonName, strRibbonXML
...
Рейтинг: 0 / 0
30.01.2017, 12:35
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Меню 2003 - 2007
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=84&tid=1612768]:
 0ms
get settings:
 6ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 22ms
get topic data:
 8ms
get forum data:
 1ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 8ms
total:  105ms
созд. / загр.: 105ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]