Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Странное выполнение метода OpenForm / 7 сообщений из 7, страница 1 из 1
14.03.2007, 14:03:11
    #34390221
Emu
Emu
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Странное выполнение метода OpenForm
Здравствуйте

Нужно из 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:07:57
    #34390251
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Странное выполнение метода OpenForm
Emu
Код: plaintext
1.
  AccessObject.Quit  
  Set AccessObject = Nothing

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



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



Всем спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Странное выполнение метода OpenForm / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 295ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2183308]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 51ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 23ms
get tp. blocked users:
 1ms
others: 191ms
total:  295ms
x
x
Закрыть


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