|
|
|
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:22 |
|
||
|
RefreshLinks из цикла.
|
|||
|---|---|---|---|
Модератор форума
|
|||
|
#18+
1. А зачем его прерывать? 2. А где в программе написано, что он должен прерваться? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.04.2004, 16:24 |
|
||
|
RefreshLinks из цикла.
|
|||
|---|---|---|---|
|
#18+
А почему он должен прерываться-то?:) Вы замечательно обновляете 1 таблицу в цикле - ура:) Интересно, с таким программированием как много отличнейших продуктов можно сделать?:) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.04.2004, 16:26 |
|
||
|
RefreshLinks из цикла.
|
|||
|---|---|---|---|
Модератор форума
|
|||
|
#18+
А почему вообще в процедуру передается "tblUsers"??? Надо ведь передавать что-то из рекордсета! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.04.2004, 16:28 |
|
||
|
RefreshLinks из цикла.
|
|||
|---|---|---|---|
|
#18+
Извиняюсь, если непонятно написал. Ссмысл в том чтобы пройти по данным рекордсета (список линкованых таблиц) и обновить связи всех таблиц (имя таблицы в примере я явно обьявил для наглядности). ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.04.2004, 16:31 |
|
||
|
RefreshLinks из цикла.
|
|||
|---|---|---|---|
|
#18+
Ну всё правильно написано тогда:) ЗАЧЕМ ПРЕРЫВАТЬ ЦИКЛ?:) Если хотите по всем таблицам:) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.04.2004, 16:33 |
|
||
|
RefreshLinks из цикла.
|
|||
|---|---|---|---|
|
#18+
Ну, если у тебя такой цикл не прерывается, значит ты получил то, к чему стремились алхимики всех времен и народов - ДОМ ПРЕМУДРОГО ЦЫПЛЕНКА, также известный как БЕСКОНЕЧНЫЙ РЕКОРДСЕТ ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.04.2004, 16:35 |
|
||
|
RefreshLinks из цикла.
|
|||
|---|---|---|---|
|
#18+
2 Hummer: Да не завершается команда, виснет комп пока ctl+break не нажмеш. 2 ЛП: Меня бы "небесконечный" вполне устроил, в чем ошибка? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.04.2004, 16:38 |
|
||
|
RefreshLinks из цикла.
|
|||
|---|---|---|---|
|
#18+
закоментарь myRefreshLink и погляди - выйдет когда-нибудь или нет ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.04.2004, 16:50 |
|
||
|
RefreshLinks из цикла.
|
|||
|---|---|---|---|
|
#18+
2 ЛП: Закоментарил :) Если вызываю из других процедур то работает, а из рекордсета нет. Блин волюнтаризм какой то... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.04.2004, 16:56 |
|
||
|
|
start [/forum/topic.php?fid=45&gotonew=1&tid=1675356]: |
0ms |
get settings: |
6ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
155ms |
get topic data: |
6ms |
get first new msg: |
3ms |
get forum data: |
2ms |
get page messages: |
30ms |
get tp. blocked users: |
1ms |
| others: | 236ms |
| total: | 452ms |
| 0 / 0 |
