ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Автоматизация создания MDE
10 сообщений из 35, страница 2 из 2
  2  все
Автоматизация создания MDE
    #36328521
QWERiON
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QWERiON
Участник
АлексейК,
Спасибо за Вашу процедурку.

Возник вопрос.
Как можно в этой процедуре прописать запрет Shift при запуске в MDE, не отображать окно БД и др подобные вещи, а mdb чтоб такого запрета не было.

Я так понимаю,м ожно перед созданием нового объекта аппликейшн выставить AllowBypassKey и прочие переменные такого рода.
А потом после того как mde был создан вернуть в mdb все обратно.

а вот не прибегая к таким манипуляциям можно сделатЬ?
...
Рейтинг: 0 / 0
24.11.2009, 14:41
| Ответить | Цитировать | Написать  
Автоматизация создания MDE
    #36329284
MsDatabaseru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MsDatabaseru
Участник
мне кажется что логичнее в ярлыке запуска mde указать ключ /runtime
...
Рейтинг: 0 / 0
24.11.2009, 18:38
| Ответить | Цитировать | Написать  
Автоматизация создания MDE
    #36329675
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge Gavrilov
Участник
QWERiONЯ так понимаю,м ожно перед созданием нового объекта аппликейшн выставить AllowBypassKey и прочие переменные такого рода.
Вы можете выставить все эти свойства непосредственно в mde
...
Рейтинг: 0 / 0
24.11.2009, 23:47
| Ответить | Цитировать | Написать  
Автоматизация создания MDE
    #36339528
QWERiON
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QWERiON
Участник
подскажите пожалуйста!
Не понимаю в чем дело, но не создает mde пишет ss=0 пробовал пошагово.. не работает.

Код: plaintext
ss = accapp.SysCmd( 603 , CurrentProject.path & "\TMP" & CurrentProject.Name, Replace(CurrentProject.FullName, ".mdb", ".mde", , , vbBinaryCompare))
возвращает 0

Может быть связано с тем что база защищена файлом рабочей группы?

з.ы. пробовал на новом пустом mdb без файла раб. групп там все ок. .. отрабатывает хорошо и также хорошо создается файлик.
...
Рейтинг: 0 / 0
30.11.2009, 17:31
| Ответить | Цитировать | Написать  
Автоматизация создания MDE
    #36339614
QWERiON
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QWERiON
Участник
да действительно дело в нем.
попросил админа, чтоб он мне сделал рабочий файл файлом по умолчанию :) заработало.. только база почемуто теперь два раза просит ввести логин пароль =)
...
Рейтинг: 0 / 0
30.11.2009, 18:11
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Автоматизация создания MDE
    #38383394
sahard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sahard
Участник
Может кому пригодится

экспереминтировал в access 2010 с предложенными вариантами
вот такой код создал скомпилированный "accde"

были вставлены две новые строчки
accapp.AutomationSecurity = 1 'MsoAutomationSecurityLow
accapp.UserControl = False

без них не работало

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Sub my()
Dim ss
Dim fso
Dim accapp As Access.Application
Set accapp = New Access.Application
Set fso = CreateObject("scripting.filesystemobject")
accapp.AutomationSecurity = 1 'MsoAutomationSecurityLow
accapp.UserControl = False

CurrentProject.Application.SysCmd 504, 16483 ' компилировать и сохранить все модули
fso.copyFile CurrentProject.FullName, CurrentProject.Path & "\TMP" & CurrentProject.Name
ss = accapp.SysCmd(603, CurrentProject.Path & "\TMP" & CurrentProject.Name, Replace(CurrentProject.FullName, ".accdb", ".accde", , , vbBinaryCompare))
Kill CurrentProject.Path & "\TMP" & CurrentProject.Name
Set fso = Nothing
Set accapp = Nothing
MsgBox "Выполнено = " & ss

End Sub
...
Рейтинг: 0 / 0
01.09.2013, 08:02
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Автоматизация создания MDE
    #38798120
Начивок
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Начивок
Гость
Помогите пожалуйста не могу создать MDE файл, Access 2002-2003. База большой, весить оно : 60-таблица, 10-запросы, 70-формы, 10-отчеты, 2-макросы, 10-модули

please help......................................please help
...
Рейтинг: 0 / 0
07.11.2014, 08:18
| Ответить | Цитировать | Написать  
Автоматизация создания MDE
    #38800242
Начивок
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Начивок
Гость
Пожалуйста помогите! У меня есть база имеющий 60-таблица, 10-запросы, 70-формы, 10-отчеты, 2-макросы, 10-модули. Не могу создать MDE пожалуйста помогите. Видно что база большой, если можно то программным путем можно создать MDE, кто знает помогите очень нужна.
...
Рейтинг: 0 / 0
10.11.2014, 08:47
| Ответить | Цитировать | Написать  
Автоматизация создания MDE
    #38801371
sahard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sahard
Участник
Начивок,

http://www.sql.ru/forum/154929/avtomatizaciya-sozdaniya-mde?mid=7941760#7941760
...
Рейтинг: 0 / 0
10.11.2014, 23:28
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Автоматизация создания MDE
    #39613151
xaxexixo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xaxexixo
Гость
КД,
после
CurrentProject.Application.SysCmd 504, 16483
вставьте
t = Timer: While Timer < t + 1: DoEvents: Wend
и не надо нажимать ф8
...
Рейтинг: 0 / 0
12.03.2018, 01:20
| Ответить | Цитировать | Написать  
10 сообщений из 35, страница 2 из 2
  2  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Автоматизация создания MDE
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&gotonew=1&tid=1611612]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 70ms
get topic data:
 10ms
get first new msg:
 7ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 271ms
total:  440ms
созд. / загр.: 440ms
x
x
Закрыть


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