| |
|
|
| | У меня есть кое-какой код:
Option Compare Database
Private Sub ShowFile(strPath)
'===============================================================
On Error GoTo ShowFileErr
Application.FollowHyperlink strPath
Exit Sub
ShowFileErr:
MsgBox "Такого файла нет" & vbCrLf & _
Err.Description & vbCrLf & " Err#" & Err.Number, vbCritical
End Sub
Private Sub Кнопка0_Click()
ShowFile "C:\changelog.txt"
End Sub
|
Можно сделать так, чтобы открывался не тот файл, путь которого указан в коде, а тот, чей путь отображается в поле Поле0 на форме например, тут речь о текущей записи, то есть у разных записей разные пути к файлу на Поле0 соответсвенно. | |
| |
| |
| |
|
|
| | Если этот код в той же форме, то просто:
Application.FollowHyperlink Me![Поле0] | |
| |
| |
| |
|
|
| | Супер, все получилось, спасибо! | |
| |
| |
| |
|
|
| | Не подскажете еще кое-что, если поле с путем файла пустое, то кнопка недоступна или сообщение "файла нет" | |
| |
| |
| |
|
|
| | следующий вопрос будет типа -
не подскажете что делать если ссылка битая и запрашивает несуществующий файл - как сделать чтобы кнопка была недоступна или выдавалось сообщение пользователю...
|
| |
| |
| |
| |
|
|
| | Вы что издеваетесь? Не хотите отвечать, не надо. Плакать никто не будет. И вообще, ссылка не будет битая, файл будет лежать на сервере и никуда оттуда не денется, а если что случится, мы его восстановим | |
| |
| |
| |
|
|
| |
скорблю
если вы так уверены что ссылка не будет битой и файл будет на месте - что мешает вам быть уверенным в том, что Хайпелинк поле таблицы не будет пустым?
в некотором смысле пустое поле (отсутствие ссылки на файл) это битая ссылка.
а вообще - вопрос очень простой - навалом примеров в интернет (причем уже готовые решения) | |
| |
| |
| |
|
|
| | Ну раз простой, вам трудно было написать строчку? А вместо этого вы исписали столько текста, сколько хватило бы исходников на всю мою базу | |
| |
| |
| |
|
|
| | я ненавижу исходники.
в хелпе и в интернете все есть - к чему дублировать контент.
http://yandex.ru/nosuchpagehere.doc | |
| |
| |
