|
Действия ...
|
13.04.2004, 16:24
|
|||
|---|---|---|---|
|
|||
RefreshLinks из цикла. |
|||
|
|
|
13.04.2004, 16:28
|
|||
|---|---|---|---|
|
|||
RefreshLinks из цикла. |
|||
|
|
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
13.04.2004, 16:22
|
|||
|---|---|---|---|
RefreshLinks из цикла. |
|||
|
#18+
Всем привет, Дан код запускающий процедуру обновления связей: 'proveryaem nalichie linkovanih tablic Set myRst = CurrentDb.OpenRecordset("SELECT Database,ForeignName FROM MSysObjects WHERE Database <> """" ") 'esli linkovanie tablici est If Not myRst.EOF Then 'proveryaem svyazi linkovanih tablic While Not myRst.EOF myRefreshLink '"tblUsers" myRst.MoveNext Wend End If И соответсвенно сама процедура: Public Sub myRefreshLink(myTbl As String) 'obnovlyaem svyaz linkovanoi tablici CurrentDb.TableDefs(myTbl).RefreshLink End Sub Проблема в том что после вызова процедуры цикл не преривается. Не пойму в чем тут дело? (Access97, MDB) Спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
13.04.2004, 16:24
|
|||
|---|---|---|---|
|
|||
RefreshLinks из цикла. |
|||
|
#18+
1. А зачем его прерывать? 2. А где в программе написано, что он должен прерваться? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
13.04.2004, 16:26
|
|||
|---|---|---|---|
RefreshLinks из цикла. |
|||
|
#18+
А почему он должен прерываться-то?:) Вы замечательно обновляете 1 таблицу в цикле - ура:) Интересно, с таким программированием как много отличнейших продуктов можно сделать?:) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
13.04.2004, 16:28
|
|||
|---|---|---|---|
|
|||
RefreshLinks из цикла. |
|||
|
#18+
А почему вообще в процедуру передается "tblUsers"??? Надо ведь передавать что-то из рекордсета! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
13.04.2004, 16:31
|
|||
|---|---|---|---|
RefreshLinks из цикла. |
|||
|
#18+
Извиняюсь, если непонятно написал. Ссмысл в том чтобы пройти по данным рекордсета (список линкованых таблиц) и обновить связи всех таблиц (имя таблицы в примере я явно обьявил для наглядности). ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
13.04.2004, 16:33
|
|||
|---|---|---|---|
RefreshLinks из цикла. |
|||
|
#18+
Ну всё правильно написано тогда:) ЗАЧЕМ ПРЕРЫВАТЬ ЦИКЛ?:) Если хотите по всем таблицам:) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
13.04.2004, 16:35
|
|||
|---|---|---|---|
|
|||
RefreshLinks из цикла. |
|||
|
#18+
Ну, если у тебя такой цикл не прерывается, значит ты получил то, к чему стремились алхимики всех времен и народов - ДОМ ПРЕМУДРОГО ЦЫПЛЕНКА, также известный как БЕСКОНЕЧНЫЙ РЕКОРДСЕТ ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
13.04.2004, 16:38
|
|||
|---|---|---|---|
RefreshLinks из цикла. |
|||
|
#18+
2 Hummer: Да не завершается команда, виснет комп пока ctl+break не нажмеш. 2 ЛП: Меня бы "небесконечный" вполне устроил, в чем ошибка? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
13.04.2004, 16:50
|
|||
|---|---|---|---|
|
|||
RefreshLinks из цикла. |
|||
|
#18+
закоментарь myRefreshLink и погляди - выйдет когда-нибудь или нет ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
13.04.2004, 16:56
|
|||
|---|---|---|---|
RefreshLinks из цикла. |
|||
|
#18+
2 ЛП: Закоментарил :) Если вызываю из других процедур то работает, а из рекордсета нет. Блин волюнтаризм какой то... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=45&tablet=1&tid=1675356]: |
0ms |
get settings: |
7ms |
get forum list: |
13ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
145ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
37ms |
get tp. blocked users: |
1ms |
| others: | 207ms |
| total: | 427ms |
| 0 / 0 |
