ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Странное выполнение метода OpenForm
7 сообщений из 7, страница 1 из 1
Странное выполнение метода OpenForm
    #34390221
Emu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Emu
Гость
Здравствуйте

Нужно из Word открыть базу Access и открыть форму с определённой записью (т.е. "WHERE x='y' "). Делаю таким образом:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
  Dim AccessDB As Access.Application
  Const PathDB = "C:\TestDB.mdb"
  
  Set AccessDB = CreateObject("Access.Application")
  AccessDB.Visible = True  
  AccessDB.OpenCurrentDatabase PathDB
  AccessDB.DoCmd.OpenForm "ЧудоФорма", , , "Поле1 = 'Z5'"  
 
  AccessObject.Quit  
  Set AccessObject = Nothing

Всё как надо открывается, в форме находится нужная запись, НО окно Access тут же само закрывается (еле успеваю увидеть свою форму)
...
Рейтинг: 0 / 0
14.03.2007, 14:03:11
| Ответить | Цитировать | Написать  
Странное выполнение метода OpenForm
    #34390251
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
Emu
Код: plaintext
1.
  AccessObject.Quit  
  Set AccessObject = Nothing

метод Quit и закрывает Access
...
Рейтинг: 0 / 0
14.03.2007, 14:07:57
| Ответить | Цитировать | Написать  
Странное выполнение метода OpenForm
    #34390278
Emu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Emu
Гость
Нет.
Можно вообще две последние строки удалить, и всё равно Access сам закрывается
...
Рейтинг: 0 / 0
14.03.2007, 14:13:05
| Ответить | Цитировать | Написать  
Странное выполнение метода OpenForm
    #34390335
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
Замени строку
Код: plaintext
Dim AccessDB As Access.Application
на
Код: plaintext
Dim AccessDB
...
Рейтинг: 0 / 0
14.03.2007, 14:26:07
| Ответить | Цитировать | Написать  
Странное выполнение метода OpenForm
    #34390422
Emu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Emu
Гость
klen_Замени строку
Код: plaintext
Dim AccessDB As Access.Application
на
Код: plaintext
Dim AccessDB



Заменил - точно также работает, т.е. окно только появляется и тут же закрывается
...
Рейтинг: 0 / 0
14.03.2007, 14:43:32
| Ответить | Цитировать | Написать  
Странное выполнение метода OpenForm
    #34390449
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
А сам файл C:\TestDB.mdb без Word-а нормально ли запускается???
...
Рейтинг: 0 / 0
14.03.2007, 14:50:33
| Ответить | Цитировать | Написать  
Странное выполнение метода OpenForm
    #34390468
Emu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Emu
Гость
Так и не понял почему окна открываются на десятую долю секунды, и сами закрываются.
Но для своего случая решил эту проблему просто, поставив параметр acDialog для формы. В итоге открывается Access, а в нём нужная форма с отобранной записью, когда в окне нажимаю "закрыть", приложение само закрывается, и возвращается в Word.



Всем спасибо
...
Рейтинг: 0 / 0
14.03.2007, 14:53:58
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Странное выполнение метода OpenForm
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34390221&tid=2183308]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 54ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 29ms
get tp. blocked users:
 1ms
others: 215ms
total:  330ms
созд. / загр.: 330ms
x
x
Закрыть


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