|
Действия ...
|
24.06.2003, 20:43
|
|||
|---|---|---|---|
|
|||
Не выгружается Access |
|||
|
|
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
24.06.2003, 19:16
|
|||
|---|---|---|---|
|
|||
Не выгружается Access |
|||
|
#18+
Помогите разобраться! Делаю так: Dim fs As AccessObject, appAccessSrc As Application Set appAccessSrc = CreateObject("Access.Application.10") appAccessSrc.OpenAccessProject "с:\my.adp" For Each fs In appAccessSrc.CurrentProject.AllForms 'Всякая фигня Next Set fs = Nothing appAccessSrc.CloseCurrentDatabase appAccessSrc.Quit acQuitSaveAll Set appAccessSrc = Nothing Так вот, после всего этого Access не выгружается:-( Но если вместо строки: For Each fs In appAccessSrc.CurrentProject.AllForms поставить строку: For i = 0 To appAccessSrc.CurrentProject.AllForms.Count - 1 то все ОК. Что за загвоздка fs. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
24.06.2003, 20:43
|
|||
|---|---|---|---|
|
|||
Не выгружается Access |
|||
|
#18+
А нет ли в этом цикле Exit For? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
25.06.2003, 16:56
|
|||
|---|---|---|---|
|
|||
Не выгружается Access |
|||
|
#18+
Exit For нету! Access не выгружается, даже если цикл пустой. Выгрузка происходит только после завершения выполнения процедуры, где находится данный код. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.07.2003, 11:26
|
|||
|---|---|---|---|
|
|||
Не выгружается Access |
|||
|
#18+
Неужели никто не подскажет? :-( ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.07.2003, 11:33
|
|||
|---|---|---|---|
|
|||
Не выгружается Access |
|||
|
#18+
Ну из идей только использовать раннее связывание Dim acc As Access.Application set acc=OpenAccessProject ... ну и т.д. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.07.2003, 11:34
|
|||
|---|---|---|---|
Не выгружается Access |
|||
|
#18+
Слушай, кажется я где-то видел, что такая проблема может возникнуть при очистке объектной переменной (=носинг). Но кажется это было связанно с созданием об.переменной с ВизЭвентс... Попробуй закомментировать очищение обеих объектных... //танцы с бубеном... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=45&tablet=1&tid=1680774]: |
0ms |
get settings: |
11ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
49ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
57ms |
get tp. blocked users: |
2ms |
| others: | 224ms |
| total: | 375ms |
| 0 / 0 |
