| Вопрос: Ошибка выполнения "On Error Goto..." | Добавлено: 10.08.07 16:30 |
Автор вопроса:  Игорь | ICQ: 457394129 |
|
Товарищи помогите разобраться!
Вот например этот код работает нормально: "OnError goto 1: Dir1.path=drive1.drive 1: drive1.drive=dir1.path" а вот этот всегда сводится на ошибку: On Error goto 1: "Open App.Path & "\Data\Properties\BC1.dat" For Input As #1 Do While Not EOF(1) Line Input #1, Letter Form1.BC1.Text = Letter Loop Close" 1:MsgBox "Нет файла!",,"Редактор" даже если файл присутствует! Обьясните как надо правильно использовать отвод, чтобы он срабатывал по назначению, а не каждый раз? |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  mzx ICQ: 259560026 Вопросов: 21 Ответов: 143 |
Профиль | | #1 | Добавлено: 10.08.07 16:57 |
|
Перед
1:MsgBox "Нет файла!",,"Редактор" поставь Exit Sub или Exit Function, если код находится в функции |
||
|
Номер ответа: 2 Автор ответа: Administrator ICQ: ------------------------------ Вопросов: 6 Ответов: 98 |
Web-сайт: Профиль | | #2 | Добавлено: 10.08.07 17:00 |
|
Может сделать так:
On Error GoTo ErrorHandler
Dim FileNum As Integer Dim Letter As String FileNum = FreeFile Open App.Path & "\Data\Properties\BC1.dat" For Input As #FileNum Do While Not EOF(FileNum) Line Input #FileNum, Letter Form1.BC1.Text = Letter Loop Close #FileNum ErrorHandler: MsgBox "No File!" |
||
|
Номер ответа: 3 Автор ответа: el-pasoВопросов: 0 Ответов: 56 |
Профиль | | #3 | Добавлено: 10.08.07 17:01 |
чота ты там с кавычками намудрил, когда копи-пастил 
но суть не в этом... после вызова Close нужно выходить нафих из функции (типа Exit Function) |
||
|
Номер ответа: 4 Автор ответа: AdministratorICQ: ------------------------------ Вопросов: 6 Ответов: 98 |
Web-сайт: Профиль | | #4 | Добавлено: 10.08.07 17:02 |
|
ДА... И в конце добавь:
Exit Sub
|
||
Страница: 1 |