| |
|
|
| | dim xEcrMode as Long
Do Until xEcrMode = 15
xEcrMode = ECR.ECRMode
Loop
У меня на этом цикле всё зацикивается на оооооооочен долгое время.
Есть ли способ - всёж таки выйти из цика по истечении N- ного количества.
Скажем через гдей-то 10 секунд......  | |
| |
| |
| |
|
|
| | Поставь или больше 15 или меньше 15 ( а не равно15 ) | |
| |
| |
| |
|
|
| | 
Мне нуна чтоы из цикла вываливаться, как только значение переменной станет равно 15,
а до того циклить и циклить,
но в то же время не до бесконечности, а тока секунд 10 - 12 - достатошно будет.......... | |
| |
| |
| |
|
|
| |
Dim dTime As Date
dTime = Time()
Do Until 14 = 15 Or Second(Time() - dTime) > 10
Debug.Print Time()
Loop
|
| |
| |
| |
|
|
Чудесно работает 
