| |
|
|
| | Копирую таблицу из одной базы в другую и тотчас обращаюсь к её полям - мне в ответ таблицы ещё нет.....
Проходит какое то время - а вот она появилась..
А как мне скоротать это время - чтоб ошибка не выскакивала???  | |
| |
| |
| |
 7 Кб. |
|
| | Мона так: | |
| |
| |
| |
|
|
| | Красиво 
А как узнать ,что пора сворачивать прогресс бар?
Проверкой наличия таблицы - она может и не появиться......
По истечении времени, а скока его должно истеч..... | |
| |
| |
| |
|
|
| | ловить ошибку, ждать пока не исчезнет, считать кол-во повторов
примерно так
ErrHandler:
If Err.Number = 282 Then 'Невозможно открыть DDE канал
' Эта ошибка может возникать когда Acrobat загружился не польностью
' делаем Max282Errors попыток перез тем как вернуть AcroDDEFailed = True
Error282Count = Error282Count + 1
If Error282Count <= Max282Errors Then
PauseFor 3
Resume
Else
AcroDDEFailed = True
Resume Next
End If
End If
MsgBox "Error in PrintPDF sub Error# " & Err.Number & " " & Err.Description & "."
End Sub
|
'Error282Count - переменная в которой считаем кол-во повтором
'Max282Errors - константа определяющая сколько раз допускается ошибка после превышения выходим из функции
Private Sub PauseFor(iSeconds As Integer)
'Пауза iSecond секунд
Dim sngTimer As Single
sngTimer = Timer
While Timer - sngTimer < iSeconds
DoEvents
Wend
End Sub
|
| |
| |
| |
| |
|
|
| | да,  наверное такккккккк | |
| |
| |
| |
20 Кб. |
|
| | а для юзера
ой вирус получился.......   | |
| |
| |
