|
|
|
Объясните с ОЛЕ
|
|||
|---|---|---|---|
|
#18+
Ситуация такая: если нет точек останова, то объект может запуститься, а может и нет, с точками останова - работает на ура. В чем дело и как решить эту проблему? Set oApp = GetObject("Word.Application") oApp.Visible = True Set oApp = GetObject(Soderg) Soderg.Action = acOLEActivate ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.12.2003, 08:51 |
|
||
|
Объясните с ОЛЕ
|
|||
|---|---|---|---|
|
#18+
Да, зря Саныч FAQ писал :( Daro ставь DoEvents. Захочешь подробностей - смотри в в поиске по форуму ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.12.2003, 09:00 |
|
||
|
Объясните с ОЛЕ
|
|||
|---|---|---|---|
|
#18+
Viktor! Так - не получается, цитирую справку Access'a: В Microsoft Access вызов функции DoEvents игнорируется в следующих случаях: ....... · в определяемой пользователем функции, создающей список в поле со списком, объект-список или объект OLE. ^^^^^^ ^^^ ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.12.2003, 11:13 |
|
||
|
Объясните с ОЛЕ
|
|||
|---|---|---|---|
|
#18+
а что не запускается Word.Application или (непонятно что это) Soderg? И почему такая страная конструкция - присвоить oApp объект Word.Application и тут же переопределит его Soderg. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.12.2003, 11:24 |
|
||
|
Объясните с ОЛЕ
|
|||
|---|---|---|---|
|
#18+
Soderg - поле объекта OLE с внедренным документом Word, идея была такова: чтобы не мудрить с отчетом, а запускать в ворде, и выводить на печать ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.12.2003, 11:36 |
|
||
|
Объясните с ОЛЕ
|
|||
|---|---|---|---|
|
#18+
без присвоения объекта Word.Application не открывается окно Worda, а проблема в неактивизации именно Soderg. Пробовал и MsgBox, и DoEvents, и таймер, - не помогат, единственно 100% работает точка останова ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.12.2003, 11:43 |
|
||
|
Объясните с ОЛЕ
|
|||
|---|---|---|---|
|
#18+
Что-то ты не то творишь. Внедренный ОЛЕ запускается двойнным щелчком, можно и по кнопке через RunCommand НеПомнюКонстанту Почему именно GetObject? А где проверка на ошибку и вызов CreateObject? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.12.2003, 11:55 |
|
||
|
Объясните с ОЛЕ
|
|||
|---|---|---|---|
|
#18+
Запускается то он запускается, но распечатать себя не дает. Также как и сохранить себя в файл. проверка на ошибку и вызов CreateObject осуществляются другим макросом, который по hWnd находит окно Ворда и если его нет, то открывает новое ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.12.2003, 12:17 |
|
||
|
Объясните с ОЛЕ
|
|||
|---|---|---|---|
|
#18+
Какой-то странный код ты привел... Достаточно Код: plaintext 1. И у объекта Soderg поставить Verb=-2 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.12.2003, 12:33 |
|
||
|
Объясните с ОЛЕ
|
|||
|---|---|---|---|
|
#18+
Да и зачем всякие hWnd и CreateObject потом? Ведь твой Soderg - это готовая ссылка на Word? Например сохранение файла, будет выглядеть так: Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.12.2003, 12:43 |
|
||
|
Объясните с ОЛЕ
|
|||
|---|---|---|---|
|
#18+
Да-а-а, хожу брожу ;) А все же интересно знать, почему в моем случае процесс не срабатывает? Ему все условия, тапочки, панимашь:) а он морду воротит :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.12.2003, 12:50 |
|
||
|
Объясните с ОЛЕ
|
|||
|---|---|---|---|
|
#18+
Спасибо за консультацию, Виктор, а то бы не один день сидел. Все заработало как надо и даже лучше! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.12.2003, 13:02 |
|
||
|
Объясните с ОЛЕ
|
|||
|---|---|---|---|
|
#18+
Вообще въедренный OLE часто ведет себя непредсказуемо. То работает то нет(изредка, но бесит) в одном и том же коде. Поэтому все мои последние базы - без въедренных объектов. В ячейку в бинарном виде записывается любой документ. Потом, при необходимости, записывается в файл, GetObject и вперед. Работает быстро, и что главное, без глюков, занимает меньше места в базе, отсутствуют ограничения внедренных OLE (они часто какие-то урезанные). ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.12.2003, 13:04 |
|
||
|
|
start [/forum/topic.php?fid=45&msg=32346327&tid=1676867]: |
0ms |
get settings: |
7ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
90ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
33ms |
get tp. blocked users: |
1ms |
| others: | 221ms |
| total: | 381ms |
| 0 / 0 |
