Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.10.2010, 07:02   #1
Swatch
Форумчанин
 
Регистрация: 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. Причина: Решила вопрос появился новый
Swatch вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вычитание дат(дата-дата=кол.дней) 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