|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.10.2010, 07:02 | #1 |
Форумчанин
Регистрация: 05.07.2009
Сообщений: 209
|
Просмотр сканированного документа
Здравствуйте! Подскажите пожалуйста, как можно решить проблему. У меня есть ленточная форма: список документов. В ней поля: номер документа и т.д. На sql сервере я храню таблицу где есть поле с номером документа и текстовое поле, содержащее ссылку на сканированнный экземпляр документа, который хранится в сети. Мне нужно чтобы при щелчке в форме на поле "номер" открылся на просмотр сканированный документ. Я попробовала реализовать это с помощью гиперссылки:
Dim hlk As Hyperlink Dim ctlSelected As Control Set ctlSelected = Me.IDKR ' привязала гиперссылку к полю с номером документа Set hlk = ctlSelected.Hyperlink Dim strAddress As String Dim rstscan As New ADODB.Recordset rstscan.Open "select * from КР_Сканированные where IDKR= " & Me.IDKR & " ", cnnProiz ' выбрала на сервере из таблицы запись по данному документу If Not isnull(rstscan!Scan1) Then strAddress = rstscan!Scan1 'присвоила адрес гиперссылки из таблицы на сервере hlk.Address = strAddress hlk.Follow End If If Not isnull(rstscan!Scan2) Then ' документ может быть до 3 страниц поэтому открываю 3 сканера strAddress = rstscan!Scan2 hlk.Address = strAddress hlk.Follow End If If Not isnull(rstscan!Scan3) Then strAddress = rstscan!Scan3 hlk.Address = strAddress hlk.Follow End If hlk.Address = "" Но в итоге мне вышло сообщение что свойство "Адрес гиперссылки" или "Дополнительный адрес гиперссылки" доступно только для чтения для этого элемента управления. В чем ошибка? Последний раз редактировалось Swatch; 13.10.2010 в 19:30. Причина: Решила вопрос появился новый |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вычитание дат(дата-дата=кол.дней) | zallza | Общие вопросы Delphi | 1 | 31.05.2010 22:50 |
Непонятная проблема | CrazyDude | Работа с сетью в Delphi | 2 | 02.04.2010 00:35 |
Непонятная ошибка. | program123 | Общие вопросы Delphi | 12 | 12.04.2009 23:07 |
Дата Конечная (ДД.ММ.ГГГГ) - Дата Начальная (ДД.ММ.ГГГГ) = Количество Месяцев | stanislav24 | Microsoft Office Excel | 5 | 20.12.2008 10:36 |